DataMuseum.dk

top - download

    Length: 2253 (0x8cd)
    Types: TextFile
    Names: »V«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Runtime_Ids;
with System_Definitions;

package Exceptions is

    type Exception_Rep is private;

    type Name is access Exception_Rep;
    for Name'Storage_Size use 0;

    Runtime_Error : exception;

    Tasking_Error : Name;

    procedure Raise_Exception;

    procedure Trace (Item : Name; Location : System_Definitions.Address);

private

    subtype Value_16 is Integer range 0 .. 2 ** 16 - 1;

    type Exception_Rep is
        record
            Comp_Unit : Integer;
            Id        : Value_16;
            Length    : Value_16;
            Image     : String (1 .. 65535);
        end record;

    for Exception_Rep use
        record at mod 4;
            Comp_Unit at 0 range 0 .. 31;
            Id        at 4 range 0 .. 15;
            Length    at 6 range 0 .. 15;
            Image     at 8 range 0 .. 65535 * 8;
        end record;

    pragma Import_Object (Tasking_Error, "__TASKING_ERROR_VAR");

    pragma Interface (Asm, Raise_Exception);
    pragma Import_Procedure (Raise_Exception, "__PROPAGATE_EXCEPTION");
    pragma Suppress (Elaboration_Check, On => Trace);
    pragma Export_Procedure (Trace, "__TRACE_EXCEPTION");

end Exceptions;
pragma Export_Elaboration_Procedure ("__EXCEPTIONS_SPEC_ELAB");
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);