DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦0ef0e3d5b⟧ TextFile

    Length: 1131 (0x46b)
    Types: TextFile
    Names: »B«

Derivation

└─⟦407de186f⟧ Bits:30000749 8mm tape, Rational 1000, RCFSUN
    └─ ⟦e5cd75ab4⟧ »DATA« 
        └─⟦this⟧

TextFile

separate (Library_Extensions)
procedure Link_Preprocess (Main_Unit : String;
                           Executable_Name : String;
                           Status : in out Simple_Status.Condition) is
begin
    Log.Put_Line (Message => "Executing Link_preprocess",
                  Kind => Profile.Note_Msg);

    -- set context
    Simple_Status.Initialize (Status);
    -- reset context
    if Executable_Name'Length > 14 then
        Log.Put_Line
           (Message => "This attempt to Link will probably not succeed." &
                          "Verify that the Bind operation has failed on" &
                          " the target. The current version of the Lynx Alsys" &
                          " compiler does not support generation of user-spec" &
                          "ified executable names that exceed 14 character" &
                          "s. Re-run Rcf.Link with an executable_name that " &
                          "is <= 14 characters.",
            Kind => Profile.Error_Msg);
    end if;
exception
    when others =>
        Unhandled_Exception (Status, "Link_Preprocess");

end Link_Preprocess;