DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦86333dd2c⟧ TextFile

    Length: 1436 (0x59c)
    Types: TextFile
    Names: »V«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

-- 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_Cpu32   : CONSTANT := 8;
   Tp_M1750a  : CONSTANT := 9;
   Tp_Ns32032 : CONSTANT := 10;

   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;