|
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: 886 (0x376)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦75a7785e8⟧
└─⟦this⟧
Date: 1993-Mar-18 10:33:38
1: with Callback;
2: with System;
3: with Text_Io;
4: procedure Callback_Test is
5:
6: procedure Call_Callback_C;
7: pragma Interface (C, Call_Callback_C);
8: pragma Interface_Information (Call_Callback_C, ".Call_Callback");
9:
10: procedure Set_P1_C (Ptr : System.Address);
11: pragma Interface (C, Set_P1_C);
12: pragma Interface_Information (Set_P1_C, ".Set_P1");
13:
14: begin
15: Text_Io.Put_Line ("callback_test: in");
16:
17: Set_P1_C (Callback.P1'Address);
18:
19: Call_Callback_C;
20:
21: Text_Io.Put_Line ("callback_test: out");
22: end Callback_Test;
23: pragma Main;
----
>>> WARNING: Unrecognized pragma
Syntax errors: 0 Semantic errors: 0 Warnings: 1 Lines compiled: 23