/* Copyright (C) 1992, Digital Equipment Corporation                         */
/* All rights reserved.                                                      */
/* See the file COPYRIGHT for a full description.                            */

/* Last modified on Thu Mar 19 17:51:14 PST 1992 by muller                   */

#include "M3Runtime.h"

/*-- NULL ----------------*/
_IMPORT _TYPE* _t8daa22a1_TC;
_PRIVATE _TYPE _t8daa22a1_tc = {
  0, 0,
  0x8daa22a1,
  &_t8daa22a1_TC,
  0, 0,
  0, 0, 0,
  0, 0,
  0, 0,
  0,
  0,
  0,
  0,
  "$null$",
  "NULL",
  0,
  0, 0, 0
};

/*-- ADDRESS ----------------*/
_IMPORT _TYPE* _t352479bd_TC;
_PRIVATE _TYPE _t352479bd_tc = {
  0, 0,
  0x352479bd,
  &_t352479bd_TC,
  0, 0,
  0, 1, 1,
  0, 0,
  0, 0,
  0,
  0,
  0,
  0,
  "$address$",
  "ADDRESS",
  0,
  0, 0, 0
};

/*-- REFANY ----------------*/
_IMPORT _TYPE* _t76b14e78_TC;
_PRIVATE _TYPE _t76b14e78_tc = {
  0, 0,
  0x76b14e78,
  &_t76b14e78_TC,
  0, 1,
  0, 1, 1,
  0, 0,
  0, 0,
  0,
  0,
  0,
  0,
  "$refany$",
  "REFANY",
  0,
  0, 0, 0
};

/*-- ROOT ----------------*/
_IMPORT _TYPE* _td28c3ed0_TC;

#define _td28c3ed0_init 0
_LOCAL_PROC void _td28c3ed0_setup () { };
_LOCAL_PROC void _td28c3ed0_map (_p, _arg, _r, _mask)
   void (*_p) (); _ADDRESS _arg; _ADDRESS _r; _MAPPROC_MASK _mask;
   { };

_PRIVATE _TYPE _td28c3ed0_tc = {
  0, 0,
  0xd28c3ed0,
  &_td28c3ed0_TC,
  0, 1,
  0, 4, 4,
  0, 4,
  0, 0,
  0,
  _td28c3ed0_setup,
  _td28c3ed0_map,
  _td28c3ed0_init,
  0,
  "ROOT",
  0,
  0, 0, 0
};

/*-- UNTRACED ROOT ----------------*/
_IMPORT _TYPE* _td2983fc3_TC;

#define _td2983fc3_init 0
_LOCAL_PROC void _td2983fc3_setup () { };
_LOCAL_PROC void _td2983fc3_map (_p, _arg, _r, _mask)
  void (*_p) (); _ADDRESS _arg; _ADDRESS _r; _MAPPROC_MASK _mask;
  { };

_PRIVATE _TYPE _td2983fc3_tc = {
  0, 0,
  0xd2983fc3,
  &_td2983fc3_TC,
  0, 0,
  0, 4, 4,
  0, 4,
  0, 0,
  0,
  _td2983fc3_setup,
  _td2983fc3_map,
  _td2983fc3_init,
  0,
  "_UNTRACED_ROOT",
  0,
  0, 0, 0
};

/*-- TEXT & MUTEX ----------------*/

_IMPORT _TYPE* _t97b236b1_TC; /* TEXT */
_IMPORT _TYPE* _t91096db0_TC; /* MUTEX */

/*------------------------------------------------------------------------*/

#define _proc_info 0

_PRIVATE int _fp_data[] = {
  0x24800000, 0x64696f76, 	/* _t95a227bb _VOID */
  0x72802991, 0x6bdc03e5, 	/* _t223565b7 INTEGER */
  0xe2bbd810, 0x7559eff2, 	/* _tdfa73f81 CARDINAL */
  0x69812291, 0x77d801ec, 	/* _t2b3260be BOOLEAN */
  0x24800000, 0x6c616572, 	/* _t91aa2fb1 REAL */
  0xe1a7d61f, 0x7559e4e9, 	/* _td156dd0a LONGREAL */
  0xe3bdc116, 0x7d5de5f5, 	/* _tdcec4c89 EXTENDED */
  0x24800000, 0x72616863, 	/* _t80b42fbc CHAR */
  0x24800000, 0x6c6c756e, 	/* _t8daa22a1 NULL */
  0x628a2191, 0x6aca01f2, 	/* _t352479bd ADDRESS */
  0x65722480, 0x796e6166, 	/* _t76b14e78 REFANY */
  0xf80919c8, 0x6586ad41, 	/* _td28c3ed0 ROOT */
  0xf80919c8, 0x7187be41, 	/* _td2983fc3 _UNTRACED_ROOT */
  0x69822391, 0x7ccb11f3, 	/* _t343970af _CLOSURE_TYPE */
  0x79b3ce97, 0x3c1112fe, 	/* _t89e7331d  */
  0xb35db46f, 0x26db0f7a, 	/* _t95892aae  */
    0x223565b7, 0x223565b7, 0x223565b7,
  0xb35db46f, 0x26db0f7a, 	/* _t6eb1b448  */
    0x223565b7, 0x223565b7, 0x2b3260be,
  0xe405efd4, 0x25434c83, 	/* _t677c55d7  */
    0x223565b7, 0x223565b7,
  0x8d537d3a, 0x3ac95f6a, 	/* _te372dd33  */
    0x223565b7, 0x223565b7, 0x223565b7,
  0x7b590036, 0x2f78728c, 	/* _tc8c200ad  */
    0x223565b7,
  0x8d537d3a, 0x3ac95f6a, 	/* _t68f0d581  */
    0x223565b7, 0xc8c200ad, 0x223565b7,
  0xb2b2670a, 0x2e3d17f0, 	/* _tf8fc3cc2  */
    0x223565b7, 0xdfa73f81, 0xdfa73f81, 0x223565b7,
  0x53127490, 0x350d5ea2, 	/* _tcc76f213  */
    0x223565b7, 0x223565b7, 0xdfa73f81, 0xdfa73f81, 0x223565b7,
  0
};

#define _exported_full_revelations 0
#define _exported_partial_revelations 0
#define _imported_full_revelations 0
#define _imported_partial_revelations 0

_LOCAL_PROC void _init_ () { };

_PRIVATE _TYPE_INFO _type_info [] = {
  { 0x95a227bb, 0, 0, _fp_data + 0, 2, 0, 0 }, 	/* _VOID */
  { 0x223565b7, 0, 0, _fp_data + 2, 2, 0, 0 }, 	/* INTEGER */
  { 0xdfa73f81, 0, 0, _fp_data + 4, 2, 0, 11 }, 	/* CARDINAL */
  { 0x2b3260be, 0, 0, _fp_data + 6, 2, 0, 2 }, 	/* BOOLEAN */
  { 0x91aa2fb1, 0, 0, _fp_data + 8, 2, 0, 0 }, 	/* REAL */
  { 0xd156dd0a, 0, 0, _fp_data + 10, 2, 0, 0 }, 	/* LONGREAL */
  { 0xdcec4c89, 0, 0, _fp_data + 12, 2, 0, 0 }, 	/* EXTENDED */
  { 0x80b42fbc, 0, 0, _fp_data + 14, 2, 0, 2 }, 	/* CHAR */
  { 0x8daa22a1, 0, 0, _fp_data + 16, 2, 0, 9 }, 	/* NULL */
  { 0x352479bd, 0, 0, _fp_data + 18, 2, 0, 9 }, 	/* ADDRESS */
  { 0x76b14e78, 0, 0, _fp_data + 20, 2, 0, 9 }, 	/* REFANY */
  { 0xd28c3ed0, 0, 0, _fp_data + 22, 2, 0, 3 }, 	/* ROOT */
  { 0xd2983fc3, 0, 0, _fp_data + 24, 2, 0, 3 }, 	/* _UNTRACED_ROOT */
  { 0x97b236b1, 0, 0, (int*)&_t97b236b1_TC, 0, 0, 4 }, 	/* TEXT */
  { 0x91096db0, 0, 0, (int*)&_t91096db0_TC, 0, 0, 4 }, 	/* MUTEX */
  { 0x343970af, 0, 0, _fp_data + 26, 2, 0, 0 }, 	/* _CLOSURE_TYPE */
  { 0x89e7331d, 0, 0, _fp_data + 28, 2, 0, 7 }, 	/* PROCEDURE ( ) */
  { 0x95892aae, 0, 0, _fp_data + 30, 5, 0, 7 }, 	/* PROC(x,y:INT):INT */
  { 0x6eb1b448, 0, 0, _fp_data + 35, 5, 0, 7 }, 	/* PROC(x,y:INT):BOOL*/
  { 0x677c55d7, 0, 0, _fp_data + 40, 4, 0, 7 }, 	/* PROC(x:INT):INT */
  { 0xe372dd33, 0, 0, _fp_data + 44, 5, 0, 7 }, 	/* PROC(x,n:INT):INT */
  { 0xc8c200ad, 0, 0, _fp_data + 49, 3, 0, 11 }, 	/* [0..31] */
  { 0x68f0d581, 0, 0, _fp_data + 52, 5, 0, 7 }, 	/* PROC(x:INT; n:[0..31]):INT */
  { 0xf8fc3cc2, 0, 0, _fp_data + 57, 6, 0, 7 }, 	/* PROC(x:INT; i,n:CARD): INT */
  { 0xcc76f213, 0, 0, _fp_data + 63, 7, 0, 7 }, 	/* PROC(x,y:INT; i,n:CARD):INT*/
  { 0, 0, 0, 0, 0, 0, 0 }
};

_PRIVATE _TYPE* _type_cells [] = {
  &_t8daa22a1_tc, 	/* NULL */
  &_t352479bd_tc, 	/* ADDRESS */
  &_t76b14e78_tc, 	/* REFANY */
  &_td28c3ed0_tc, 	/* ROOT */
  &_td2983fc3_tc, 	/* _UNTRACED_ROOT */
  0
};

_EXPORT _LINK_INFO _I_M3_BUILTIN = {
  "M3_BUILTIN.ic",
  _type_info,
  _fp_data,
  _type_cells,
  _exported_full_revelations,
  _exported_partial_revelations,
  _imported_full_revelations,
  _imported_partial_revelations,
  _proc_info,
  _init_,
  0
};