<mdl.comp>/peeph.record.92

   1 Compilation record for: SRC:<MDL.COMP>PEEPH.MUD.92;P777752;ADM
   2 Output file:  SRC:<MDL.COMP>PEEPH.NBIN.92
   3 File loaded.
   4 Functions ordered.
   5 COMPILING INSTYPE!-IPEEPH!-PEEPH!-PACKAGE
   6 ===== Computed decl of variable:  QX!-IPEEPH!-PEEPH!-PACKAGE is:  FIX
   7 ===== Computed decl of variable:  QY!-IPEEPH!-PEEPH!-PACKAGE is:  FIX
   8 Peephole  3% 144/139
   9 Job done in:  12 / 22
  10     COMPILING NFIND-LAB!-IPEEPH!-PEEPH!-PACKAGE
  11 ===== Non-specific structure for MAPF/R:   **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
  12 **
  13  type is:  STRUCTURED
  14  **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) FALSE) <COND (<SET X
  15  ...
  16 Peephole  4% 67/64
  17 Job done in:  5 / 9
  18    COMPILING FIND-NOD!-IPEEPH!-PEEPH!-PACKAGE
  19 Peephole  0% 45/45
  20 Job done in:  5 / 7
  21 COMPILING INSFIX!-IPEEPH!-PEEPH!-PACKAGE
  22 ===== Computed decl of variable:  XD!-IPEEPH!-PEEPH!-PACKAGE is:  LIST
  23 ===== Not open compiled because type is:  <OR FALSE
  24 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
  25 <LIST <1 .XD!-IPEEPH!-PEEPH!-PACKAGE>  **** <NTH <4 .X> 4> **** >
  26 ===== Not open compiled because type is:  <OR FALSE
  27 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
  28 (ELSE <LIST  **** <NTH <4 .X> 4> **** >)
  29 Peephole  0% 112/111
  30 Job done in:  7 / 9
  31   COMPILING PRT!-PEEPH!-PACKAGE
  32 ===== Non-specific structure for MAPF/R:   **** .X ****
  33  type is:  STRUCTURED
  34  **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) ATOM) <COND (<TYPE? .
  35  ...
  36 ===== External variable being referenced:  OUTCHAN
  37 <COND (<TYPE? .X ATOM>) (ELSE <PRINC "  "  **** .OUTCHAN **** >)>
  38 ===== External variable being referenced:  OUTCHAN
  39 <PRIN1 .X  **** .OUTCHAN **** >
  40 ===== External variable being referenced:  OUTCHAN
  41 <CRLF  **** .OUTCHAN **** >
  42 Peephole  0% 66/66
  43 Job done in:  6 / 7
  44   COMPILING FF!-IPEEPH!-PEEPH!-PACKAGE
  45 ===== Non-specific structure for MAPF/R:  <MAPF #FALSE () ,&  **** .X **** >
  46  type is:  STRUCTURED
  47  **** <MAPF #FALSE () ,& .X> ****
  48 ===== External variable being referenced:  OUTCHAN
  49 <CRLF  **** .OUTCHAN **** >
  50 Peephole  0% 44/44
  51 Job done in:  2 / 3
  52    COMPILING HACK-PRINT!-IPEEPH!-PEEPH!-PACKAGE
  53 ===== External variable being referenced:  OUTCHAN
  54 <FUNCTION (X) <PRIN1 <INSFIX .X>  **** .OUTCHAN **** >>
  55 Peephole  0% 26/26
  56 Job done in:  1 / 2
  57     COMPILING SKIPPABLE!-IPEEPH!-PEEPH!-PACKAGE
  58 Peephole  8% 61/56
  59 Job done in:  6 / 7
  60     COMPILING DEL-JUMP-LN!-IPEEPH!-PEEPH!-PACKAGE
  61 ===== Computed decl of variable:  QD!-IPEEPH!-PEEPH!-PACKAGE is:  LIST
  62 Peephole  0% 79/79
  63 Job done in:  6 / 8
  64 COMPILING CHANGE-COND!-IPEEPH!-PEEPH!-PACKAGE
  65 Peephole  2% 42/41
  66 Job done in:  2 / 3
  67   COMPILING MAKE:LABEL!-IPEEPH!-PEEPH!-PACKAGE
  68 ===== Computed decl of variable:  XX!-IPEEPH!-PEEPH!-PACKAGE is:  STRING
  69 ===== External variable being referenced:  LABNUM!-IPEEPH!-PEEPH!-PACKAGE
  70 <+  **** .LABNUM!-IPEEPH!-PEEPH!-PACKAGE ****  1>
  71 ===== External variable being SET:  LABNUM!-IPEEPH!-PEEPH!-PACKAGE
  72  **** <SET LABNUM!-IPEEPH!-PEEPH!-PACKAGE <+ .LABNUM!-IPEEPH!-PEEPH!-PACKAGE 1
  73  ...
  74 Peephole  0% 66/66
  75 Job done in:  2 / 3
  76     COMPILING NEXTS!-IPEEPH!-PEEPH!-PACKAGE
  77 Peephole  1% 62/61
  78 Job done in:  5 / 7
  79    COMPILING CROSS-OPT!-IPEEPH!-PEEPH!-PACKAGE
  80 ===== Computed decl of variable:  NEWLN!-IPEEPH!-PEEPH!-PACKAGE is:
  81 LNODE!-IPEEPH!-PEEPH!-PACKAGE
  82 ===== Computed decl of variable:  LABL!-IPEEPH!-PEEPH!-PACKAGE is:  ATOM
  83 ===== Computed decl of variable:  NEEDLABEL!-IPEEPH!-PEEPH!-PACKAGE is:  <OR
  84 ATOM FALSE>
  85 ===== External variable being SET: REDO
  86  **** <SET REDO "CROSS-OPTIMIZATION"> ****
  87 ===== External variable being referenced:  NLABLS!-IPEEPH!-PEEPH!-PACKAGE
  88  **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE ****
  89 ===== External variable being SET: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
  90  **** <SET NLABLS!-IPEEPH!-PEEPH!-PACKAGE (<LIST .LABL!-IPEEPH!-PEEPH!-PACKAGE
  91  ...
  92 ===== External variable being referenced:  MODLN!-IPEEPH!-PEEPH!-PACKAGE
  93  **** .MODLN!-IPEEPH!-PEEPH!-PACKAGE ****
  94 ===== External variable being SET:  MODLN!-IPEEPH!-PEEPH!-PACKAGE
  95  **** <SET MODLN!-IPEEPH!-PEEPH!-PACKAGE <LIST .NEWLN!-IPEEPH!-PEEPH!-PACKAGE
  96  ...
  97 ===== Frame being generated.
  98  **** <FUNCTION (TOPCOD!-IPEEPH!-PEEPH!-PACKAGE NCOD!-IPEEPH!-PEEPH!-PACKAGE
  99 " ...
 100 Peephole  3% 300/290
 101 Job done in:  44 / 59
 102  COMPILING BACKS!-IPEEPH!-PEEPH!-PACKAGE
 103 Peephole  5% 59/56
 104 Job done in:  2 / 3
 105    COMPILING ADDON!-IPEEPH!-PEEPH!-PACKAGE
 106 Peephole  0% 33/33
 107 Job done in:  5 / 7
 108    COMPILING FIND-LAB!-IPEEPH!-PEEPH!-PACKAGE
 109 ===== Non-specific structure for MAPF/R:   **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
 110 **
 111  type is:  STRUCTURED
 112  **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) FALSE) <COND (<TYPE?
 113  ...
 114 Peephole  7% 53/49
 115 Job done in:  2 / 3
 116     COMPILING PSEUDO?!-IPEEPH!-PEEPH!-PACKAGE
 117 Peephole  13% 97/84
 118 Job done in:  6 / 7
 119 COMPILING MUNG-LAB!-IPEEPH!-PEEPH!-PACKAGE
 120 ===== Non-specific structure for MAPF/R:   **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
 121 **
 122  type is:  STRUCTURED
 123  **** <MAPR #FALSE () <FUNCTION ("AUX" IN (OB!-IPEEPH!-PEEPH!-PACKAGE <NTH .IN
 124  ...
 125 ===== Not open compiled because type is:  <STRUCTURED ANY>
 126  **** <NTH .IN 1> ****
 127 ===== Not open compiled because type is: <STRUCTURED ANY>
 128  **** <PUT .IN 1 .OB!-IPEEPH!-PEEPH!-PACKAGE> ****
 129 Peephole  1% 86/85
 130 Job done in:  6 / 11
 131  COMPILING PEEP-PRINT!-IPEEPH!-PEEPH!-PACKAGE
 132 ===== External reference to LVAL:  OUTL!-IPEEPH!-PEEPH!-PACKAGE
 133 <NOT  **** <ASSIGNED? OUTL!-IPEEPH!-PEEPH!-PACKAGE> **** >
 134 ===== External variable being referenced:  OUTCHAN
 135 <PRINC "Peephole  "  **** .OUTCHAN **** >
 136 ===== Arithmetic can't open compile because:  <-  **** .LN!-IPEEPH!-PEEPH!-PACKA
 137 GE ****  .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE>
 138  is of type:  <OR FIX FLOAT>
 139  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
 140 ===== Arithmetic can't open compile because:  <- .LN!-IPEEPH!-PEEPH!-PACKAGE  **
 141 ** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE **** >
 142  is of type:  <OR FIX FLOAT>
 143  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
 144 ===== Arithmetic can't open compile because:   **** .NLN!-IPEEPH!-PEEPH!-PACKAGE
 145  ****
 146  is of type:  <OR FIX FLOAT>
 147  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 148 NNU ...
 149 ===== Arithmetic can't open compile because:   **** .NUMLABS!-IPEEPH!-PEEPH!-PAC
 150 KAGE ****
 151  is of type:  <OR FIX FLOAT>
 152  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 153 NNU ...
 154 ===== Arithmetic can't open compile because:   **** <- .NNUMLABS!-IPEEPH!-PEEPH!
 155 -PACKAGE> ****
 156  is of type:  <OR FIX FLOAT>
 157  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 158 NNU ...
 159 ===== Arithmetic can't open compile because:  <-  **** .LN!-IPEEPH!-PEEPH!-PACKA
 160 GE ****  .NLN!-IPEEPH!-PEEPH!-PACKAGE>
 161  is of type:  <OR FIX FLOAT>
 162  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
 163 ===== Arithmetic can't open compile because:  <- .LN!-IPEEPH!-PEEPH!-PACKAGE  **
 164 ** .NLN!-IPEEPH!-PEEPH!-PACKAGE **** >
 165  is of type:  <OR FIX FLOAT>
 166  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
 167 ===== Arithmetic can't open compile because:   **** .LN!-IPEEPH!-PEEPH!-PACKAGE
 168 ****
 169  is of type:  <OR FIX FLOAT>
 170  **** </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
 171  ...
 172 ===== Arithmetic can't open compile because:   **** </ <FLOAT <- .LN!-IPEEPH!-PE
 173 EPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
 174  ...
 175  is of type:  <OR FIX FLOAT>
 176  **** <* 100 </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .
 177 NLN!-IPEEPH!-PEEPH!-PAC ...
 178 ===== External variable being referenced:  OUTCHAN
 179  **** .OUTCHAN ****
 180 ===== External variable being referenced:  OUTCHAN
 181 <PRINC "% "  **** .OUTCHAN **** >
 182 ===== External variable being referenced:  OUTCHAN
 183 <PRIN1 .LN!-IPEEPH!-PEEPH!-PACKAGE  **** .OUTCHAN **** >
 184 ===== External variable being referenced:  OUTCHAN
 185 <PRINC "/"  **** .OUTCHAN **** >
 186 ===== External variable being referenced:  OUTCHAN
 187 <PRIN1 .NLN!-IPEEPH!-PEEPH!-PACKAGE  **** .OUTCHAN **** >
 188 ===== Arithmetic can't open compile because:  <-  **** .LN!-IPEEPH!-PEEPH!-PACKA
 189 GE ****  .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE>
 190  is of type:  <OR FIX FLOAT>
 191  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
 192 ===== Arithmetic can't open compile because:  <- .LN!-IPEEPH!-PEEPH!-PACKAGE  **
 193 ** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE **** >
 194  is of type:  <OR FIX FLOAT>
 195  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
 196 ===== Arithmetic can't open compile because:   **** .NLN!-IPEEPH!-PEEPH!-PACKAGE
 197  ****
 198  is of type:  <OR FIX FLOAT>
 199  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 200 NNU ...
 201 ===== Arithmetic can't open compile because:   **** .NUMLABS!-IPEEPH!-PEEPH!-PAC
 202 KAGE ****
 203  is of type:  <OR FIX FLOAT>
 204  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 205 NNU ...
 206 ===== Arithmetic can't open compile because:   **** <- .NNUMLABS!-IPEEPH!-PEEPH!
 207 -PACKAGE> ****
 208  is of type:  <OR FIX FLOAT>
 209  **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
 210 NNU ...
 211 ===== Arithmetic can't open compile because:  <-  **** .LN!-IPEEPH!-PEEPH!-PACKA
 212 GE ****  .NLN!-IPEEPH!-PEEPH!-PACKAGE>
 213  is of type:  <OR FIX FLOAT>
 214  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
 215 ===== Arithmetic can't open compile because:  <- .LN!-IPEEPH!-PEEPH!-PACKAGE  **
 216 ** .NLN!-IPEEPH!-PEEPH!-PACKAGE **** >
 217  is of type:  <OR FIX FLOAT>
 218  **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
 219 ===== Arithmetic can't open compile because:   **** .LN!-IPEEPH!-PEEPH!-PACKAGE
 220 ****
 221  is of type:  <OR FIX FLOAT>
 222  **** </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
 223  ...
 224 ===== Arithmetic can't open compile because:   **** </ <FLOAT <- .LN!-IPEEPH!-PE
 225 EPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
 226  ...
 227  is of type:  <OR FIX FLOAT>
 228  **** <* 100 </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .
 229 NLN!-IPEEPH!-PEEPH!-PAC ...
 230 Peephole  0% 180/180
 231 Job done in:  15 / 18
 232     COMPILING FIND-END-OF-CHAIN!-IPEEPH!-PEEPH!-PACKAGE
 233 ===== Computed decl of variable:  DEFAULT is:  <OR FALSE
 234 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
 235 ===== Not open compiled because type is:  <OR FALSE
 236 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
 237 <NTH  **** <NTH <4 .JMP!-IPEEPH!-PEEPH!-PACKAGE> 3> ****  1>
 238 ===== Not open compiled because type is:  STRUCTURED
 239  **** <NTH <NTH <4 .JMP!-IPEEPH!-PEEPH!-PACKAGE> 3> 1> ****
 240 Peephole  4% 46/44
 241 Job done in:  6 / 7
 242  COMPILING FLUSH-LABELS!-IPEEPH!-PEEPH!-PACKAGE
 243 ===== Computed decl of variable:  TEM!-IPEEPH!-PEEPH!-PACKAGE is:  LIST
 244 ===== External variable being referenced:  SLABS!-IPEEPH!-PEEPH!-PACKAGE
 245 <NOT <MEMQ .X  **** .SLABS!-IPEEPH!-PEEPH!-PACKAGE **** >>
 246 ===== External variable being referenced:  NLABLS!-IPEEPH!-PEEPH!-PACKAGE
 247  **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE ****
 248 ===== External variable being referenced:  NLABLS!-IPEEPH!-PEEPH!-PACKAGE
 249 <==? .N!-IPEEPH!-PEEPH!-PACKAGE  **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE **** >
 250 ===== External variable being referenced:  NLABLS!-IPEEPH!-PEEPH!-PACKAGE
 251 <REST  **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE ****  1>
 252 ===== External variable being SET:  NLABLS!-IPEEPH!-PEEPH!-PACKAGE
 253  **** <SET NLABLS!-IPEEPH!-PEEPH!-PACKAGE <REST .
 254 NLABLS!-IPEEPH!-PEEPH!-PACKAG ...
 255 ===== External variable being referenced:  NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE
 256 <+  **** .NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE ****  1>
 257 ===== External variable being SET:  NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE
 258  **** <SET NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE <+ .
 259 NNUMLABS!-IPEEPH!-PEEPH!-PACKA ...
 260 ===== External variable being SET: REDO
 261  **** <SET REDO "FLUSH REDUNDANT LABELS"> ****
 262 Peephole  0% 150/149
 263 Job done in:  18 / 21
 264    COMPILING CLEAN-IT-UP!-IPEEPH!-PEEPH!-PACKAGE
 265 ===== Not open compiled because type is:  <OR FALSE TUPLE>
 266  **** <NTH <3 .LND!-IPEEPH!-PEEPH!-PACKAGE> 1> ****
 267 ===== Not open compiled because type is:  STRUCTURED
 268  **** <NTH <BACK <3 .LND!-IPEEPH!-PEEPH!-PACKAGE> 1> 1> ****
 269 ===== Not open compiled because type is:  STRUCTURED
 270  **** <NTH .FIN-LNODE!-IPEEPH!-PEEPH!-PACKAGE 2> ****
 271 ===== Not open compiled because type is: #FALSE ()
 272  **** <PUT .FIN-LNODE!-IPEEPH!-PEEPH!-PACKAGE 2 <ADDON <LIST .
 273 JMPL!-IPEEPH!-PE ...
 274 Peephole  0% 164/164
 275 Job done in:  13 / 15
 276