DataMuseum.dk

top - metrics - download

    Length: 2147 (0x863)
    Types: TextFile
    Names: »MOVE_RUNTIME_TO_TARGET«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

-- The following procedure may be executed to download the modules
-- and text files needed for the Mc68020_Os2000 Ada runtime to a
-- target machine.

procedure Move_Runtime_To_Target
             (Target_Machine : String := "";
              Module_Directory : String := "/h0/cmds/bootobjs";
              Errors_Directory : String := "/h0/sys");
--
-- It is necessary to provide a non-null string for the Target_Machine
-- parameter.
--
-- The strings for the directories on the target may be changed,
-- however the runtime assumes that the Errors_Directory is "/h0/sys".
--
-- The Startup file on the target machine must be modified to load
-- and initialize the Ada_Runtime from the Module_Directory, eg.
--
--      load /h0/cmds/bootobjs/Ada_Runtime; Ada_Runtime
--      load /h0/cmds/bootobjs/Ada_Task
--
\f

with Os2000_Put;

procedure Move_Runtime_To_Target
             (Target_Machine : String := "";
              Module_Directory : String := "/h0/cmds/bootobjs";
              Errors_Directory : String := "/h0/sys") is
    Units : constant String :=
       "!Targets.Implementation.Mc68020_Os2000_Runtimes'View.Units.";
begin
    Os2000_Put (From_Local_File =>
                   Units & "Shared.Modules.Ada_Runtime_Module_Os2000",
                To_Remote_File => "Ada_Runtime",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File =>
                   Units & "Shared.Modules.Ada_Task_Module_Os2000",
                To_Remote_File => "Ada_Task",
                Remote_Machine => Target_Machine,
                Remote_Directory => Module_Directory,
                Transliterate => False,
                Response => "<PROFILE>");
    Os2000_Put (From_Local_File => Units & "Ada_Runtime_Error_Messages",
                To_Remote_File => "Art_Errmsg",
                Remote_Machine => Target_Machine,
                Remote_Directory => Errors_Directory,
                Transliterate => True,
                Response => "<PROFILE>");
end Move_Runtime_To_Target;