mim/development/mim/vax/mimlib/storage-defs.mud

   1 <DEFINITIONS "STORAGE-DEFS">
   2
   3 <USE "NEWSTRUC">
   4
   5 <COND (<FEATURE? "COMPILER"> <SET REDEFINE T>)>
   6
   7 "Storage types (low-order part of type code)"
   8 <MSETG $PFIX 0>
   9 <MSETG $PLIST 1>
  10 <MSETG $PRECORD 2>
  11 <MSETG $PBYTES 4>
  12 <MSETG $PSTRING 5>
  13 <MSETG $PUVECTOR 6>
  14 <MSETG $PVECTOR 7>
  15
  16 <DEFMAC ADDR-S ('S)
  17         <FORM PROG
  18               ((RESULT .S))
  19               '<IFSYS ("TOPS20"
  20                        <SET RESULT
  21                             <+ <ANDB <CALL VALUE .RESULT> 1073741823> 1>>)>
  22               '.RESULT>>
  23
  24 <DEFMAC GET-SAT-FROM-TYPEC ('TYPE-CODE)
  25    <FORM ANDB .TYPE-CODE *77*>>
  26
  27 <DEFMAC GET-SAT-FROM-OBJ ('OBJ)
  28    <FORM ANDB <FORM CALL TYPE .OBJ> *77*>>
  29
  30 "Offsets into ZONE"
  31 <MSETG GC-PARAMS <OFFSET 1 ZONE GC-PARAMS>>
  32 <MSETG GC-FCN <OFFSET 2 ZONE>>
  33 <MSETG MOVE-FCN <OFFSET 3 ZONE>>
  34 <MSETG GROW-FCN <OFFSET 4 ZONE>>
  35 <MSETG ZONE-ID <OFFSET 5 ZONE FIX>>
  36 <MSETG ALL-SPACES <OFFSET 6 ZONE LIST>>
  37 <MSETG GC-CTL <OFFSET 7 ZONE '<OR FALSE UVECTOR>>>
  38
  39 "Offsets into GC-CTL slot, if non-false"
  40 <MSETG GCC-MIN-SPACE 1>
  41 <MSETG GCC-MS-FREQ 2>
  42 <MSETG GCC-MS-CT 3>
  43
  44 "Offsets in GC-PARAMS"
  45 <MSETG RCL <OFFSET 1 GC-PARAMS>>
  46 <MSETG RCLV <OFFSET 2 GC-PARAMS>>
  47 <MSETG RCLV1 <OFFSET 3 GC-PARAMS>>
  48 <MSETG RCLV2 <OFFSET 4 GC-PARAMS>>
  49 <MSETG RCLV3 <OFFSET 5 GC-PARAMS>>
  50 <MSETG RCLV4 <OFFSET 6 GC-PARAMS>>
  51 <MSETG RCLV5 <OFFSET 7 GC-PARAMS>>
  52 <MSETG RCLV6 <OFFSET 8 GC-PARAMS>>
  53 <MSETG RCLV7 <OFFSET 9 GC-PARAMS>>
  54 <MSETG RCLV8 <OFFSET 10 GC-PARAMS>>
  55 <MSETG RCLV9 <OFFSET 11 GC-PARAMS>>
  56 <MSETG RCLV10 <OFFSET 12 GC-PARAMS>>
  57 <MSETG GCSBOT <OFFSET 13 GC-PARAMS>>
  58 <MSETG GCSMIN <OFFSET 14 GC-PARAMS>>
  59 <MSETG GCSMAX <OFFSET 15 GC-PARAMS>>
  60 <MSETG GCSFLG <OFFSET 16 GC-PARAMS>>
  61
  62 "Offsets into AREA"
  63 <MSETG ABOT <OFFSET 1 AREA>>
  64 <MSETG AMIN <OFFSET 2 AREA>>
  65 <MSETG AMAX <OFFSET 3 AREA>>
  66 <MSETG AFLGS <OFFSET 4 AREA>>
  67
  68 <END-DEFINITIONS>