|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12288 (0x3000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Operational_Info, seg_00aec0, seg_01199f, separate Rs6000_Aix_Ibm
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
separate (Rs6000_Aix_Ibm) function Get_Operational_Info return Op.Object is Compiler_Properties : constant Op.Compiler_Property_List := (Op.Generics_Share_Code => False, Op.Require_Body_And_Generic_In_Same_Compilation => False, Op.Requires_Subunits_And_Generic_In_Same_Compilation => False, Op.Implements_Pragma_Inline => True, Op.Separate_Subunits_Are_Inefficient => False); Option_List : constant Op.Option_List := (Op.Build (For_Target => T_Name, Option_Name => "a", Switch_Dependent => True, Switch_Name => "Assemble", Active_Phases => (Op.Promote => True, others => False), Default_Value => "false", Is_Pre_Option => True, Option_Takes_Arg => False, Help => "RCF Assembley Help"), Op.Build (For_Target => T_Name, Option_Name => "d", Switch_Dependent => True, Switch_Name => "Debugging", Active_Phases => (others => True), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "e", Switch_Dependent => True, Switch_Name => "Object_Only", Active_Phases => (Op.Link => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "G", Switch_Dependent => True, Switch_Name => "Minor_Optimize", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "i", Switch_Dependent => True, Switch_Name => "Include", Active_Phases => (Op.Link => True, others => False), Default_Value => "", Option_Takes_Arg => True, Is_Pre_Option => True, Help => "RCF Include Help"), Op.Build (For_Target => T_Name, Option_Name => "I", Switch_Dependent => True, Switch_Name => "Input_Files", Active_Phases => (others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "l", Switch_Dependent => True, Switch_Name => "List", Active_Phases => (Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "L", Switch_Dependent => True, Switch_Name => "Library_List", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "", Option_Takes_Arg => True, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "O", Switch_Dependent => True, Switch_Name => "Major_Optimize", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "p", Switch_Dependent => True, Switch_Name => "Profile", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "Q", Switch_Dependent => True, Switch_Name => "Fp_Ovrflw_Detect", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "S", Switch_Dependent => True, Switch_Name => "Suppress_All", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "t", Switch_Dependent => True, Switch_Name => "Os_Task", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "u", Switch_Dependent => True, Switch_Name => "Unlock", Active_Phases => (others => True), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "v", Switch_Dependent => True, Switch_Name => "Verbose", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "False", Option_Takes_Arg => False, Is_Pre_Option => True), Op.Build (For_Target => T_Name, Option_Name => "V", Switch_Dependent => True, Switch_Name => "Virtual_Pages", Active_Phases => (Op.Link | Op.Promote => True, others => False), Default_Value => "", Option_Takes_Arg => True, Is_Pre_Option => True)); Associated_File_List : constant Op.Associated_File_List := (Op.Build (For_Target => T_Name, The_File_Type => Op.Binary, The_Retrieve_Condition => Op.On_Normal, Retrieve_Phase => Op.Link, Option_Dependent => False, Associated_Option_Switch => "", Host_Filename_Extension => "exe", Remote_Filename_Type => Op.Ada_Name, Argument_Overrides_Fixed_Name => False, Fixed_Remote_Filename => "", Remote_Filename_Extension => ""), Op.Build (For_Target => T_Name, The_File_Type => Op.Text, The_Retrieve_Condition => Op.Always, Retrieve_Phase => Op.Promote, Option_Dependent => True, Associated_Option_Switch => "List", Host_Filename_Extension => "list", Remote_Filename_Type => Op.File_Name, Argument_Overrides_Fixed_Name => False, Fixed_Remote_Filename => "", Remote_Filename_Extension => "lst"), Op.Build (For_Target => T_Name, The_File_Type => Op.Text, The_Retrieve_Condition => Op.On_Normal, Retrieve_Phase => Op.Promote, Option_Dependent => True, Associated_Option_Switch => "Assemble", Host_Filename_Extension => "asm", Remote_Filename_Type => Op.File_Name, Argument_Overrides_Fixed_Name => False, Fixed_Remote_Filename => "", Remote_Filename_Extension => "s")); -------------------------------------------------- Op_Characteristics : Op.Object := Op.Build (Properties => Compiler_Properties, Max_Filename_Length => 31, Full_Pathname_Length => 255, Spec_Filename_Extension => "ada", Body_Filename_Extension => "ada", Extension_Separator => ".", Directory_Separator => "/", Directory_Prefix => "", Directory_Suffix => "", Directory_Unit_Separator => "/", Case_Sensitive => True, Command_Line_Case => Op.Lower, Max_Command_Line_Length => 255, Compiler_Command => "/usr/bin/ada/ada ", Compiler_Pre_Command => "PATH=$PATH:/usr/bin/ada; export PATH", Compiler_Post_Command => "", Linker_Command => "/usr/bin/ada/ada -b", Linker_Pre_Command => "PATH=$PATH:/usr/bin/ada; export PATH", Linker_Post_Command => "", Executable_Option => "o", Executable_Option_Is_Pre_Option => True, Context_Command => "cd", Library_Command => "", Default_Program_Library_Name => "", Parse_Standard_Output => False, Parse_Standard_Error => False, --Error_Pattern => ">>> S", Error_Pattern => "", Remote_Operating_System => Op.Unix, -- not used yet The_Transfer_Type => Get_Transfer_Type, -- options Option_Separator => " ", Option_Header => "-", Option_Argument_Separator => " ", Options => Option_List, Ada_Name_Subunit_Separator => ".", Ada_Name_Spec_Suffix => "", Ada_Name_Body_Suffix => "", Associated_Files => Associated_File_List, For_Target => T_Name); begin return Op_Characteristics; end Get_Operational_Info;
nblk1=b nid=0 hdr6=16 [0x00] rec0=1a rec1=00 rec2=01 rec3=04a [0x01] rec0=17 rec1=00 rec2=02 rec3=008 [0x02] rec0=16 rec1=00 rec2=03 rec3=01e [0x03] rec0=18 rec1=00 rec2=04 rec3=02c [0x04] rec0=18 rec1=00 rec2=05 rec3=018 [0x05] rec0=19 rec1=00 rec2=06 rec3=00c [0x06] rec0=17 rec1=00 rec2=07 rec3=06e [0x07] rec0=16 rec1=00 rec2=08 rec3=02a [0x08] rec0=1d rec1=00 rec2=09 rec3=000 [0x09] rec0=1a rec1=00 rec2=0a rec3=030 [0x0a] rec0=0f rec1=00 rec2=0b rec3=000 tail 0x21707ffb481f94dc5b5bd 0x42a00088462060003