|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Find_Pragmas_Input, seg_00439d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
--| @SUMMARY This is silly. with What; pragma Elaborate (What); with Library; pragma Private_Eyes_Only; with Library; package Find_Pragmas_Input is procedure P; procedure P2; pragma Inline (P, P2); type T is new Boolean; type A is access T; pragma Controlled (A); pragma Enable_Deallocation (A); function F return String; pragma Interface (Fortran, F); pragma List (On); generic type T is private; pragma Must_Be_Constrained; package Gen is end Gen; type Arr is array (1 .. 16) of Boolean; pragma Pack (Arr); type A2 is access Arr; pragma Controlled (A2); pragma Disable_Deallocation (A2); pragma Suppress (Index_Check, On => Arr); pragma Suppress (Range_Check, On => Arr); end Find_Pragmas_Input;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=27 rec1=00 rec2=01 rec3=001 tail 0x215002dd6815c62feef31 0x42a00088462061e03