|
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: 1689 (0x699) 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« └─⟦30263defe⟧ └─⟦this⟧
-- Copyright 1987, 1988 Verdix Corporation ---------------------------------------------------------------------- -- This package provides the interface to the ada.lib info directive -- parameters placed in foo.o by a.ld. -- -- Parameter constants are derived from rts_names.h in vax.fe project. ---------------------------------------------------------------------- package v_ada_info is pragma suppress(ALL_CHECKS); pragma suppress(EXCEPTION_TABLES); pragma not_elaborated; -- -- Processor types (TARGET info) -- TP_SELF: constant := 0; TP_MC68000: constant := 1; TP_MC68010: constant := 2; TP_MC68020: constant := 3; TP_MC68030: constant := 4; TP_MC68040: constant := 5; TP_I386: constant := 6; TP_Am29000: constant := 7; TP_Am29050: constant := 8; TP_CPU32: constant := 9; TP_M1750A: constant := 10; TP_NS32032: constant := 11; TP_SPARC: constant := 12; TP_MC88100: constant := 13; TP_R2000: constant := 14; TP_R3000: constant := 15; TP_R4000: constant := 16; TP_RS6000: constant := 17; TP_I860: constant := 18; TP_MC88110: constant := 19; TP_RH32: constant := 20; TP_PowerPC: constant := 21; processor_type: integer; pragma interface_name(processor_type, "PROCESSOR_TYPE"); -- -- Floating point support types (FLOATING_POINT_SUPPORT info) -- FP_NATIVE: constant := 0; FP_SOFTWARE: constant := 1; FP_MC68881: constant := 2; FP_MC68882: constant := 3; FP_80287: constant := 4; FP_80387: constant := 5; FP_WEITEK: constant := 6; FP_Am29027: constant := 7; floating_point_support: integer; pragma interface_name(floating_point_support, "FLOATING_POINT_SUPPORT"); end v_ada_info