mim/development/mim/mimc/help.mimcx

   1 <SETG MIM!- T>
   2
   3 <MAPF <> ,REMOVE (
   4        DEBUGSW
   5        IRSUBR
   6        NOTE
   7        WARNING
   8        ERRS
   9        WARNS
  10        NOTES
  11        DEBUG-COMPILE
  12        REASONABLE
  13        CAREFUL
  14        PRECOMPILED
  15        HAIRY-ANALYSIS
  16        SRC-FLG
  17        BIN-FLG
  18        GLOSP
  19        ANALY-OK
  20        VERBOSE
  21        COMPILER
  22        ALL
  23        M$$VALU
  24        M$$VALU!-
  25        ANALYSIS
  26        DONT-CARE!-COMPDEC!-PACKAGE
  27        FLUSHED!-COMPDEC!-PACKAGE)>
  28
  29 <SETG BQ+1 <+ <ASCII !\`> 1>>
  30
  31 <SETG OPPS <MAPF ,LIST <FUNCTION (A) (<OBLIST? .A> <REMOVE .A>)>
  32                        '(FCN STACK TEMP DISPATCH)>>
  33
  34 <FLOAD "COMPDEC.MSUBR">
  35
  36 <NEWTYPE INS-FIX!-COMFIL!-PACKAGE FIX>
  37
  38 <NEWTYPE INS-LIST!-COMFIL!-PACKAGE LIST>
  39
  40 <NEWTYPE ACCESS-LIST!-COMFIL!-PACKAGE LIST>
  41
  42 <PACKAGE "COMPDEC"> <REMOVE BOOLEAN>
  43 <REMOVE ANALYSIS><REMOVE M$$VALU><ENDPACKAGE>
  44
  45 <PACKAGE "SYMANA"> <REMOVE ANALYSIS><ENDPACKAGE>
  46
  47 <PACKAGE "MIMGEN"><REMOVE M$$VALU><ENDPACKAGE>
  48
  49 <COND (<==? <TYPEPRIM FIX> WORD>
  50        <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,BQ+1 0>>>)
  51       (ELSE
  52        <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,BQ+1 <>>>>)>
  53
  54 <MAPF <> <FUNCTION (L) <INSERT <2 .L> <1 .L>>> ,OPPS>
  55
  56 <COND (<LOOKUP "TEMP" <ROOT>> <NEWTYPE <LOOKUP "TEMP" <ROOT>> VECTOR>)>
  57
  58 <MAPF <>
  59       <FUNCTION (X) <PACKAGE .X> <ENDPACKAGE>>
  60                    '( "ISTRUC" "COMSUB" "BITTST" "CBACK" "CONFOR" "CPRINT"
  61                       "INFCMP" "CASE" "SPCGEN")>
  62 <SETG L-LOADER ,CLOSE>
  63