DataMuseum.dk

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⟧ 

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_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