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 - metrics - download
Index: T V

⟦0e4e58936⟧ TextFile

    Length: 1329 (0x531)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

package Ics is



    ------------------------------------------------------------------------

    --  PACKAGE RATIONALE:                                                --

    --                                                                    --

    --  THIS PACKAGE DEFINES THE TYPES AND SUPPORT OPERATIONS USED IN THE --

    --  COMPARISON TESTING.                                               --

    --                                                                    --

    ------------------------------------------------------------------------






    Zero : constant Integer := 0;
    One : constant Integer := 1;

    Init : constant Integer := 0;





    --  THE VARIABLE GLOBAL IS A GLOBAL VARIABLE.  IT IS REFERENCED BY ALL

    --  UNITS IN THIS PACKAGE.



    Global : Integer := Init;





    --  THE IDENT FUNCTION SIMPLY RETURNS THE VALUE OF ITS PARAMETER.

    --  HOWEVER, THIS ACTION IS DONE IN A WAY TO PROHIBIT OPTIMIZATION.



    function Ident (X : in Integer) return Integer;





    --  THE LET PROCEDURE PERFORMS ASSIGNMENT OF ITS SECOND ARGUMENT TO

    --  ITS FIRST ARGUMENT.  THE DESIGN PROHIBITS OPTIMIZATIONS THAT

    --  CAN BE PERFORMED ON ORDINARY ASSIGNMENT STATEMENTS.



    procedure Let (X : out Integer; Y : in Integer);



end Ics;



--PRAGMA PAGE;  NOT IMPLEMENTED