|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Exe_110_Pk, package body Test_Mixed_Types, seg_0055a9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Xlbt_Proc_Var;
use Xlbt_Proc_Var;
with Xlbt_String;
use Xlbt_String;
with Test_Io;
use Test_Io;
with Exe_100;
use Exe_100;
package body Exe_110_Pk is
------------------------------------------------------------------------------
-- Test Procedure Variables - for Procedure types
------------------------------------------------------------------------------
--\x0c
package Test_Mixed_Types is
procedure Zot;
end Test_Mixed_Types;
package body Test_Mixed_Types is
package Mixed_Types_Test_Proc_In10 is
new Test_Proc_In10 (Access_Type, Enumeration_Type,
Boolean_Type, Fixed_Type, Float_Type,
Float_Type, Constrained_Record_Type,
Unconstrained_Record_Type,
Constrained_String_Type,
Unconstrained_String_Type);
Arg1 : Unconstrained_Record_Type (10);
Arg2 : Unconstrained_String_Type (1 .. 10);
package Mixed_Types_Test_Proc_In_In_In_Out_Out is
new Test_Proc_In_In_In_Out_Out
(Access_Type, Unconstrained_Record_Type,
Unconstrained_String_Type, Unconstrained_Record_Type,
Unconstrained_String_Type, Arg1, Arg2);
procedure Zot is
begin
Mixed_Types_Test_Proc_In10.Zot;
Mixed_Types_Test_Proc_In_In_In_Out_Out.Zot;
end Zot;
end Test_Mixed_Types;
--\x0c
procedure Test_Procedure_Variable is
begin
Test_Mixed_Types.Zot;
Put_Line ("Exe_110 is done.");
end Test_Procedure_Variable;
end Exe_110_Pk;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=22 rec1=00 rec2=01 rec3=01a
[0x01] rec0=1c rec1=00 rec2=02 rec3=000
tail 0x21700a07a81978c28757a 0x42a00088462063203