|
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 - metrics - download
Length: 982 (0x3d6)
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«
└─⟦ed68262d2⟧
└─⟦this⟧
-- Copyright 1989 Verdix Corporation
----------------------------------------------------------------------
-- This package defines the data structures for the GROUP_TABLE build by
-- the cross linker.
----------------------------------------------------------------------
with system; use system;
with unchecked_conversion;
package grp_table is
pragma suppress(ALL_CHECKS);
pragma suppress(EXCEPTION_TABLES);
pragma not_elaborated;
pragma local_access;
--
-- group record
--
type grp_rec_t is record
g_base : address;
g_size : integer;
g_kind : integer;
end record;
--
-- group block kinds
--
TEXT_BLK: constant := 0;
CONST_BLK: constant := 1;
DATA_BLK: constant := 2;
BSS_BLK: constant := 3;
VOID_BLK: constant := 4;
DATA_IMAGE_BLK: constant := 5;
type grp_tbl_t is array(integer range <>) of grp_rec_t;
type a_grp_tbl_t is access grp_tbl_t;
function to_a_grp_tbl_t is new unchecked_conversion(address, a_grp_tbl_t);
end grp_table