#include // 1 %externalroutinespec debug(%string(255)s) #line 1 "regression-compile-tmp/vax-pass1.imp" extern void DEBUG( _imp_string /*%string(255)*/ S ); // 2 // 3 ! Computer Science IMP77 Compiler - Version 8 First pass // 4 ! 23rd March 1981 // 5 ! // 6 %control 0 // 7 // 8 %external %string (15) %fn %spec date #line 8 "regression-compile-tmp/vax-pass1.imp" extern _imp_string /*%string(15)*/ DATE( void ); // 9 %external %string (15) %fn %spec time #line 9 "regression-compile-tmp/vax-pass1.imp" extern _imp_string /*%string(15)*/ TIME( void ); // 10 // 11 %externalintegerfn pass1(%integer object tank) #line 11 "regression-compile-tmp/vax-pass1.imp" int PASS1( int OBJECTTANK ) #line 11 "regression-compile-tmp/vax-pass1.imp" { // 12 %externalroutinespec put(%integer n) #line 12 "regression-compile-tmp/vax-pass1.imp" extern void PUT( int N ); // 13 %externalroutinespec putword(%integer n) #line 13 "regression-compile-tmp/vax-pass1.imp" extern void PUTWORD( int N ); // 14 %externalroutinespec putlong(%integer n) #line 14 "regression-compile-tmp/vax-pass1.imp" extern void PUTLONG( int N ); // 15 %externalroutinespec putblock(%integer len, %bytename b) #line 15 "regression-compile-tmp/vax-pass1.imp" extern void PUTBLOCK( int LEN, unsigned char /*name*/*B ); // 16 %externalroutinespec select output tank(%integer n) #line 16 "regression-compile-tmp/vax-pass1.imp" extern void SELECTOUTPUTTANK( int N ); // 17 %systemroutinespec exit %alias "exit" (%integer status) #line 17 "regression-compile-tmp/vax-pass1.imp" extern void exit( int STATUS ); // 18 %externalstring(63)%spec error message #line 18 "regression-compile-tmp/vax-pass1.imp" extern _imp_string /*%string(63)*/ ERRORMESSAGE; // 19 %externalstring(72)%fnspec sysmess(%integer n) #line 19 "regression-compile-tmp/vax-pass1.imp" extern _imp_string /*%string(72)*/ SYSMESS( int N ); // 20 %externalstring(127)%fnspec infilename #line 20 "regression-compile-tmp/vax-pass1.imp" extern _imp_string /*%string(127)*/ INFILENAME( void ); // 21 // 22 %externalstring(6) version = "V08.02" #line 22 "regression-compile-tmp/vax-pass1.imp" _imp_string /*%string(6)*/ VERSION = _imp_str_literal("V08.02"); // 23 // 24 %externalintegerspec command #line 24 "regression-compile-tmp/vax-pass1.imp" extern int COMMAND; // 25 // 26 %constinteger warnbit = 8_200 // 27 %constinteger listbit = 8_400 // 28 // 29 !configuration parameters // 30 // 31 %CONSTINTEGER max int = ((-1)>>1)//10 // 32 %CONSTINTEGER max dig = (-1)>>1-maxint*10 // 33 %CONSTINTEGER byte size = 8; !bits per byte // 34 %CONSTINTEGER max tag = 1200; !max no. of tags // 35 %CONSTINTEGER max dict = 9000; !max extent of dictionary // 36 %CONSTINTEGER name bits = 11 // 37 %CONSTINTEGER max names = 1<0 strings, <0 chars #line 149 "regression-compile-tmp/vax-pass1.imp" static int QUOTE = 0; // 150 %owninteger end mark = 0; !%end flag #line 150 "regression-compile-tmp/vax-pass1.imp" static int ENDMARK = 0; // 151 %OWNINTEGER cont = ' ', csym = ' '; !listing continuation marker #line 151 "regression-compile-tmp/vax-pass1.imp" static int CONT = 32; #line 151 "regression-compile-tmp/vax-pass1.imp" static int CSYM = 32; // 152 %OWNINTEGER decl = 0; !current declarator flags #line 152 "regression-compile-tmp/vax-pass1.imp" static int DECL = 0; // 153 %OWNINTEGER dim = 0; !arrayname dimension #line 153 "regression-compile-tmp/vax-pass1.imp" static int DIM = 0; // 154 %OWNINTEGER spec given = 0 #line 154 "regression-compile-tmp/vax-pass1.imp" static int SPECGIVEN = 0; // 155 // 156 %OWNINTEGER escape class = 0; !when and where to escape #line 156 "regression-compile-tmp/vax-pass1.imp" static int ESCAPECLASS = 0; // 157 %OWNINTEGER protection=0, atom flags=0 #line 157 "regression-compile-tmp/vax-pass1.imp" static int PROTECTION = 0; #line 157 "regression-compile-tmp/vax-pass1.imp" static int ATOMFLAGS = 0; // 158 %OWNINTEGER otype = 0; !current 'own' type #line 158 "regression-compile-tmp/vax-pass1.imp" static int OTYPE = 0; // 159 %OWNINTEGER reals ln = 1; ! =4 for %REALSLONG #line 159 "regression-compile-tmp/vax-pass1.imp" static int REALSLN = 1; // 160 %OWNINTEGER last1 = 0; !previous atom class #line 160 "regression-compile-tmp/vax-pass1.imp" static int LAST1 = 0; // 161 %OWNINTEGER gen type = 0 #line 161 "regression-compile-tmp/vax-pass1.imp" static int GENTYPE = 0; // 162 %OWNINTEGER ptype = 0; !current phrase type #line 162 "regression-compile-tmp/vax-pass1.imp" static int PTYPE = 0; // 163 %OWNINTEGER papp = 0; !current phrase parameters #line 163 "regression-compile-tmp/vax-pass1.imp" static int PAPP = 0; // 164 %OWNINTEGER pformat = 0; !current phrase format #line 164 "regression-compile-tmp/vax-pass1.imp" static int PFORMAT = 0; // 165 %OWNINTEGER force = 0; !force next ptype #line 165 "regression-compile-tmp/vax-pass1.imp" static int FORCE = 0; // 166 %OWNINTEGER g = 0, gg = 0, map gg = 0; !grammar entries #line 166 "regression-compile-tmp/vax-pass1.imp" static int G = 0; #line 166 "regression-compile-tmp/vax-pass1.imp" static int GG = 0; #line 166 "regression-compile-tmp/vax-pass1.imp" static int MAPGG = 0; // 167 %OWNINTEGER fdef = 0; !current format definition #line 167 "regression-compile-tmp/vax-pass1.imp" static int FDEF = 0; // 168 %OWNINTEGER this = -1; !current recordformat tag #line 168 "regression-compile-tmp/vax-pass1.imp" static int THIS = (-1); // 169 %OWNINTEGER nmin = 0; !analysis record atom pointer #line 169 "regression-compile-tmp/vax-pass1.imp" static int NMIN = 0; // 170 %OWNINTEGER nmax = 0; !analysis record phrase pointer #line 170 "regression-compile-tmp/vax-pass1.imp" static int NMAX = 0; // 171 %OWNINTEGER rbase = 0; !record format definition base #line 171 "regression-compile-tmp/vax-pass1.imp" static int RBASE = 0; // 172 %OWNINTEGER stbase = 0; !constant work area base #line 172 "regression-compile-tmp/vax-pass1.imp" static int STBASE = 0; // 173 %OWNINTEGER gmin = max grammar; !upper bound on grammar #line 173 "regression-compile-tmp/vax-pass1.imp" static int GMIN = 1800; // 174 %OWNINTEGER dmax = 1 #line 174 "regression-compile-tmp/vax-pass1.imp" static int DMAX = 1; // 175 %OWNINTEGER tmin = max tag; !upper bound on tags #line 175 "regression-compile-tmp/vax-pass1.imp" static int TMIN = 1200; // 176 %OWNINTEGER ss = 0; !source statement entry #line 176 "regression-compile-tmp/vax-pass1.imp" static int SS = 0; // 177 %STRING(63) include file #line 177 "regression-compile-tmp/vax-pass1.imp" _imp_string /*%string(63)*/ INCLUDEFILE; // 178 %OWNINTEGER include list = 0 #line 178 "regression-compile-tmp/vax-pass1.imp" static int INCLUDELIST = 0; // 179 %OWNINTEGER include = 0; !=0 unused, #0 being used #line 179 "regression-compile-tmp/vax-pass1.imp" static int INCLUDE = 0; // 180 %OWNINTEGER perm = 1; !1 = compiling perm, 0 = program #line 180 "regression-compile-tmp/vax-pass1.imp" static int PERM = 1; // 181 %OWNINTEGER progmode= 0; !-1 = file, 1 = begin/eop #line 181 "regression-compile-tmp/vax-pass1.imp" static int PROGMODE = 0; // 182 %OWNINTEGER sstype = 0; !-1:exec stat #line 182 "regression-compile-tmp/vax-pass1.imp" static int SSTYPE = 0; // 183 ! 0: declaration // 184 ! 1: block in // 185 ! 2: block out // 186 %OWNINTEGER spec mode = 0; !>=0: definition #line 186 "regression-compile-tmp/vax-pass1.imp" static int SPECMODE = 0; // 187 ! -1: proc spec // 188 ! -2: recordformat // 189 %OWNINTEGER ocount = -1; !own constants wanted #line 189 "regression-compile-tmp/vax-pass1.imp" static int OCOUNT = (-1); // 190 %OWNINTEGER limit = 0; !lookup limit #line 190 "regression-compile-tmp/vax-pass1.imp" static int LIMIT = 0; // 191 %OWNINTEGER copy = 0; !duplicate name flag #line 191 "regression-compile-tmp/vax-pass1.imp" static int COPY = 0; // 192 %OWNINTEGER order = 0; !out of sequence flag #line 192 "regression-compile-tmp/vax-pass1.imp" static int ORDER = 0; // 193 %OWNINTEGER for warn = 0; !non-local flag #line 193 "regression-compile-tmp/vax-pass1.imp" static int FORWARN = 0; // 194 %OWNINTEGER dubious = 0; !flag for dubious statements #line 194 "regression-compile-tmp/vax-pass1.imp" static int DUBIOUS = 0; // 195 %OWNINTEGER dp = 1 #line 195 "regression-compile-tmp/vax-pass1.imp" static int DP = 1; // 196 %OWNINTEGER pos1 = 0, pos2 = 0; !error position #line 196 "regression-compile-tmp/vax-pass1.imp" static int POS1 = 0; #line 196 "regression-compile-tmp/vax-pass1.imp" static int POS2 = 0; // 197 %OWNINTEGER pos = 0; !input line index #line 197 "regression-compile-tmp/vax-pass1.imp" static int POS = 0; // 198 %OWNINTEGER dimension = 0; !current array dimension #line 198 "regression-compile-tmp/vax-pass1.imp" static int DIMENSION = 0; // 199 %OWNINTEGER local = 0; !search limit for locals #line 199 "regression-compile-tmp/vax-pass1.imp" static int LOCAL = 0; // 200 %OWNINTEGER fm base = 0; !entry for format decls #line 200 "regression-compile-tmp/vax-pass1.imp" static int FMBASE = 0; // 201 %OWNINTEGER search base = 0; !entry for record_names #line 201 "regression-compile-tmp/vax-pass1.imp" static int SEARCHBASE = 0; // 202 %OWNINTEGER format list = 0; !size of current format list #line 202 "regression-compile-tmp/vax-pass1.imp" static int FORMATLIST = 0; // 203 %INTEGER recid #line 203 "regression-compile-tmp/vax-pass1.imp" int RECID; // 204 %ownbyteintegername current char #line 204 "regression-compile-tmp/vax-pass1.imp" static unsigned char /*name*/*CURRENTCHAR; // 205 %OWNBYTEINTEGERARRAY char(0:133)=nl(134); !input line #line 205 "regression-compile-tmp/vax-pass1.imp" static unsigned char CHAR[134] = { [0 ... 133] = 10 }; // 206 %INTEGERARRAY lit pool(0:lit max) #line 206 "regression-compile-tmp/vax-pass1.imp" int LITPOOL[51]; // 207 %OWNINTEGER lit = 0; !current literal (integer) #line 207 "regression-compile-tmp/vax-pass1.imp" static int LIT = 0; // 208 %OWNINTEGER lp = 0; !literals pointer #line 208 "regression-compile-tmp/vax-pass1.imp" static int LP = 0; // 209 %OWNINTEGER block x = 0; !block tag #line 209 "regression-compile-tmp/vax-pass1.imp" static int BLOCKX = 0; // 210 %OWNINTEGER list = 2; !<= to enable #line 210 "regression-compile-tmp/vax-pass1.imp" static int LIST = 2; // 211 %OWNINTEGER control = 0 #line 211 "regression-compile-tmp/vax-pass1.imp" static int CONTROL = 0; // 212 %OWNINTEGER diag = 0; !diagnose flags #line 212 "regression-compile-tmp/vax-pass1.imp" static int DIAG = 0; // 213 %SHORTINTEGERARRAY hash(0:max names) #line 213 "regression-compile-tmp/vax-pass1.imp" short HASH[2048]; // 214 %RECORD(tagfm)%ARRAY tag(0:max tag) #line 214 "regression-compile-tmp/vax-pass1.imp" TAGFM TAG[1201]; // 215 {GT:%SHORT}%INTEGERARRAY dict(1:max dict) #line 215 "regression-compile-tmp/vax-pass1.imp" int DICT[9000]; // 216 // 217 !*** start of generated tables *** // 218 !! %include "tables.imp" // 219 !! %endoflist // 220 %conststring(8)%array text(0:255) = %c #line 220 "regression-compile-tmp/vax-pass1.imp" const _imp_string /*%string(8)*/ TEXT[256] = { _imp_str_literal("Z"), _imp_str_literal("VDEC"), _imp_str_literal("OWNVDEC"), _imp_str_literal("EXTVSPEC"), _imp_str_literal("ADEC"), _imp_str_literal("OWNADEC"), _imp_str_literal("EXTASPEC"), _imp_str_literal("PROC"), _imp_str_literal("PROCSPEC"), _imp_str_literal("FORMDEC"), _imp_str_literal("SWDEC"), _imp_str_literal("LDEC"), _imp_str_literal("FORMSPEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("OPTION"), _imp_str_literal("COMMA"), _imp_str_literal("T"), _imp_str_literal("COLON"), _imp_str_literal("COMMENT"), _imp_str_literal("LB"), _imp_str_literal("ALIAS"), _imp_str_literal("RB"), _imp_str_literal("SUB"), _imp_str_literal("ARRAYD"), _imp_str_literal("STYPE"), _imp_str_literal("ARRAY"), _imp_str_literal("NAME"), _imp_str_literal("PROCD"), _imp_str_literal("FNMAP"), _imp_str_literal("SWITCH"), _imp_str_literal("OWN"), _imp_str_literal("EXTERNAL"), _imp_str_literal("STRING"), _imp_str_literal("RECORD"), _imp_str_literal("FORMAT"), _imp_str_literal("SPEC"), _imp_str_literal("MCODE"), _imp_str_literal("LABEL"), _imp_str_literal("OP1"), _imp_str_literal("OP2"), _imp_str_literal("OP3"), _imp_str_literal("SIGN"), _imp_str_literal("UOP"), _imp_str_literal("MOD"), _imp_str_literal("DOT"), _imp_str_literal("COMP"), _imp_str_literal("ACOMP"), _imp_str_literal("EQ"), _imp_str_literal("EQEQ"), _imp_str_literal("JAM"), _imp_str_literal("JUMP"), _imp_str_literal("RESOP"), _imp_str_literal("AND"), _imp_str_literal("OR"), _imp_str_literal("NOT"), _imp_str_literal("WHILE"), _imp_str_literal("UNTIL"), _imp_str_literal("FOR"), _imp_str_literal("CWORD"), _imp_str_literal("EXIT"), _imp_str_literal("ON"), _imp_str_literal("SIGNAL"), _imp_str_literal("THEN"), _imp_str_literal("START"), _imp_str_literal("ELSE"), _imp_str_literal("FINISH"), _imp_str_literal("FELSE"), _imp_str_literal("CYCLE"), _imp_str_literal("REPEAT"), _imp_str_literal("PROGRAM"), _imp_str_literal("BEGIN"), _imp_str_literal("END"), _imp_str_literal("ENDPROG"), _imp_str_literal("ENDPERM"), _imp_str_literal("FRESULT"), _imp_str_literal("MRESULT"), _imp_str_literal("BACK"), _imp_str_literal("MONITOR"), _imp_str_literal("STOP"), _imp_str_literal("LIST"), _imp_str_literal(""), _imp_str_literal("CONTROL"), _imp_str_literal("INCLUDE"), _imp_str_literal("MASS"), _imp_str_literal("RTYPE"), _imp_str_literal("ADDOP"), _imp_str_literal("IDENT"), _imp_str_literal("V"), _imp_str_literal("N"), _imp_str_literal("CONST"), _imp_str_literal("FM"), _imp_str_literal(""), _imp_str_literal("R"), _imp_str_literal("F"), _imp_str_literal("M"), _imp_str_literal("P"), _imp_str_literal("RP"), _imp_str_literal("FP"), _imp_str_literal("MP"), _imp_str_literal("PP"), _imp_str_literal("L"), _imp_str_literal("S"), _imp_str_literal("A"), _imp_str_literal("AN"), _imp_str_literal("NA"), _imp_str_literal("NAN"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%MSTART"), _imp_str_literal("%CLEAR"), _imp_str_literal("%PRED"), _imp_str_literal(""), _imp_str_literal("%DUBIOUS"), _imp_str_literal("%DUP"), _imp_str_literal("%PIN"), _imp_str_literal("%POUT"), _imp_str_literal("%EDUP"), _imp_str_literal(""), _imp_str_literal("PIDENT"), _imp_str_literal("CIDENT"), _imp_str_literal("OIDENT"), _imp_str_literal("FNAME"), _imp_str_literal("SWID"), _imp_str_literal("DOTL"), _imp_str_literal("DOTR"), _imp_str_literal("ASEP"), _imp_str_literal("CSEP"), _imp_str_literal("OSEP"), _imp_str_literal("PSEP"), _imp_str_literal("ARB"), _imp_str_literal("BPLRB"), _imp_str_literal("ORB"), _imp_str_literal("PRB"), _imp_str_literal("CRB"), _imp_str_literal("RCRB"), _imp_str_literal("RECRB"), _imp_str_literal("RECLB"), _imp_str_literal("LAB"), _imp_str_literal("MLAB"), _imp_str_literal("SLAB"), _imp_str_literal("XNAME"), _imp_str_literal("OWNT"), _imp_str_literal("DBSEP"), _imp_str_literal("PCONST"), _imp_str_literal("CMOD"), _imp_str_literal("CSIGN"), _imp_str_literal("CUOP"), _imp_str_literal("COP1"), _imp_str_literal("COP2"), _imp_str_literal("COP3"), _imp_str_literal("INDEF"), _imp_str_literal("XELSE"), _imp_str_literal("CRESOP"), _imp_str_literal("NLAB"), _imp_str_literal("RUNTIL"), _imp_str_literal("ACONST"), _imp_str_literal("ORRB"), _imp_str_literal("FMANY"), _imp_str_literal("OSTRING"), _imp_str_literal("FMLB"), _imp_str_literal("FMRB"), _imp_str_literal("FMOR"), _imp_str_literal("RANGERB"), _imp_str_literal("FSID"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%DUMMY"), _imp_str_literal("%DECL"), _imp_str_literal("%TYPE"), _imp_str_literal("%ZERO"), _imp_str_literal("%APPLY"), _imp_str_literal("%PROT"), _imp_str_literal("%SETPROT"), _imp_str_literal("%PTYPE"), _imp_str_literal("%GAPP"), _imp_str_literal("%LOCAL"), _imp_str_literal("%GUARD"), _imp_str_literal("%MCODE"), _imp_str_literal("%CDUMMY"), _imp_str_literal("%SETTYPE"), _imp_str_literal("%OPER"), _imp_str_literal("%PARAM"), _imp_str_literal("%BLOCK"), _imp_str_literal("%OTHER"), _imp_str_literal("%COMPILE"), _imp_str_literal("APP"), _imp_str_literal("BASEAPP"), _imp_str_literal("APP2"), _imp_str_literal("APP3"), _imp_str_literal("APP4"), _imp_str_literal("APP5"), _imp_str_literal("APP6"), _imp_str_literal("ADEFN"), _imp_str_literal("NPARM"), _imp_str_literal("SWDEF"), _imp_str_literal("SWIDS"), _imp_str_literal("CIEXP"), _imp_str_literal("RCONST"), _imp_str_literal("SCONST"), _imp_str_literal("ARRAYP"), _imp_str_literal("XIMP"), _imp_str_literal("IMP"), _imp_str_literal("COND"), _imp_str_literal("SCOND"), _imp_str_literal("EXP1"), _imp_str_literal("EXP2"), _imp_str_literal("SEXP"), _imp_str_literal("IEXP"), _imp_str_literal("IEXP1"), _imp_str_literal("IEXP2"), _imp_str_literal("ISEXP"), _imp_str_literal("SEQ"), _imp_str_literal("FDEF"), _imp_str_literal("EXP"), _imp_str_literal("NARRAYP"), _imp_str_literal("STRUCT"), _imp_str_literal("RESEXP"), _imp_str_literal("BPL"), _imp_str_literal("CONSTB"), _imp_str_literal("FITEM"), _imp_str_literal("MOREA"), _imp_str_literal("CLIST"), _imp_str_literal("FPP"), _imp_str_literal("FPP0"), _imp_str_literal("FPP1"), _imp_str_literal("FPP2"), _imp_str_literal("INITVAR"), _imp_str_literal("RECEXP"), _imp_str_literal("EIMP"), _imp_str_literal("IDENTS"), _imp_str_literal("RANGE"), _imp_str_literal("RCONSTB"), _imp_str_literal("VARP"), _imp_str_literal("INITDEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("ESCDEC"), _imp_str_literal("ESCPROC"), _imp_str_literal("ESCARRAY"), _imp_str_literal("ESCREC"), }; // 221 "Z","VDEC","OWNVDEC","EXTVSPEC","ADEC","OWNADEC", // 222 "EXTASPEC","PROC","PROCSPEC","FORMDEC","SWDEC","LDEC", // 223 "FORMSPEC","","","","","", // 224 "OPTION","COMMA","T","COLON","COMMENT","LB", // 225 "ALIAS","RB","SUB","ARRAYD","STYPE","ARRAY", // 226 "NAME","PROCD","FNMAP","SWITCH","OWN","EXTERNAL", // 227 "STRING","RECORD","FORMAT","SPEC","MCODE","LABEL", // 228 "OP1","OP2","OP3","SIGN","UOP","MOD", // 229 "DOT","COMP","ACOMP","EQ","EQEQ","JAM", // 230 "JUMP","RESOP","AND","OR","NOT","WHILE", // 231 "UNTIL","FOR","CWORD","EXIT","ON","SIGNAL", // 232 "THEN","START","ELSE","FINISH","FELSE","CYCLE", // 233 "REPEAT","PROGRAM","BEGIN","END","ENDPROG","ENDPERM", // 234 "FRESULT","MRESULT","BACK","MONITOR","STOP","LIST", // 235 "","CONTROL","INCLUDE","MASS","RTYPE","ADDOP", // 236 "IDENT","V","N","CONST","FM","", // 237 "R","F","M","P","RP","FP", // 238 "MP","PP","L","S","A","AN", // 239 "NA","NAN","","","","", // 240 "","","","","","", // 241 "%MSTART","%CLEAR","%PRED","","%DUBIOUS","%DUP", // 242 "%PIN","%POUT","%EDUP","","PIDENT","CIDENT", // 243 "OIDENT","FNAME","SWID","DOTL","DOTR","ASEP", // 244 "CSEP","OSEP","PSEP","ARB","BPLRB","ORB", // 245 "PRB","CRB","RCRB","RECRB","RECLB","LAB", // 246 "MLAB","SLAB","XNAME","OWNT","DBSEP","PCONST", // 247 "CMOD","CSIGN","CUOP","COP1","COP2","COP3", // 248 "INDEF","XELSE","CRESOP","NLAB","RUNTIL","ACONST", // 249 "ORRB","FMANY","OSTRING","FMLB","FMRB","FMOR", // 250 "RANGERB","FSID","","","","", // 251 "","%DUMMY","%DECL","%TYPE","%ZERO","%APPLY", // 252 "%PROT","%SETPROT","%PTYPE","%GAPP","%LOCAL","%GUARD", // 253 "%MCODE","%CDUMMY","%SETTYPE","%OPER","%PARAM","%BLOCK", // 254 "%OTHER","%COMPILE","APP","BASEAPP","APP2","APP3", // 255 "APP4","APP5","APP6","ADEFN","NPARM","SWDEF", // 256 "SWIDS","CIEXP","RCONST","SCONST","ARRAYP","XIMP", // 257 "IMP","COND","SCOND","EXP1","EXP2","SEXP", // 258 "IEXP","IEXP1","IEXP2","ISEXP","SEQ","FDEF", // 259 "EXP","NARRAYP","STRUCT","RESEXP","BPL","CONSTB", // 260 "FITEM","MOREA","CLIST","FPP","FPP0","FPP1", // 261 "FPP2","INITVAR","RECEXP","EIMP","IDENTS","RANGE", // 262 "RCONSTB","VARP","INITDEC","","","", // 263 "ESCDEC","ESCPROC","ESCARRAY","ESCREC" // 264 %constinteger gmax1=718 // 265 %owninteger gmax=718 #line 265 "regression-compile-tmp/vax-pass1.imp" static int GMAX = 718; // 266 %constinteger imp phrase =24 // 267 // 268 %ownshortintegerarray phrase(200:255) = %C #line 268 "regression-compile-tmp/vax-pass1.imp" static short PHRASE[56] = { 0, 563, 564, 566, 568, 570, 572, 561, 613, 202, 199, 601, 477, 479, 623, 297, 205, 307, 317, 432, 425, 436, 443, 457, 452, 460, 466, 481, 401, 626, 628, 602, 520, 510, 485, 501, 574, 526, 527, 542, 549, 577, 396, 286, 196, 635, 515, 620, 166, 0, 0, 0, 639, 692, 700, 708, }; // 269 0, 563, 564, 566, 568, 570, 572, 561, // 270 613, 202, 199, 601, 477, 479, 623, 297, // 271 205, 307, 317, 432, 425, 436, 443, 457, // 272 452, 460, 466, 481, 401, 626, 628, 602, // 273 520, 510, 485, 501, 574, 526, 527, 542, // 274 549, 577, 396, 286, 196, 635, 515, 620, // 275 166, 0, 0, 0, 639, 692, 700, 708 // 276 // 277 %constbyteintegerarray atomic(130:179) = %c #line 277 "regression-compile-tmp/vax-pass1.imp" const unsigned char ATOMIC[50] = { 90, 90, 90, 90, 90, 48, 48, 19, 19, 19, 19, 25, 25, 25, 25, 25, 25, 25, 23, 104, 104, 105, 30, 20, 21, 93, 47, 45, 46, 42, 43, 44, 40, 68, 55, 104, 60, 93, 25, 40, 93, 23, 25, 57, 25, 90, 176, 177, 178, 179, }; // 278 90, 90, 90, 90, 90, 48, 48, 19, // 279 19, 19, 19, 25, 25, 25, 25, 25, // 280 25, 25, 23, 104, 104, 105, 30, 20, // 281 21, 93, 47, 45, 46, 42, 43, 44, // 282 40, 68, 55, 104, 60, 93, 25, 40, // 283 93, 23, 25, 57, 25, 90, 176, 177, // 284 178, 179 // 285 // 286 ! FLAG<1> 0<1> SS<2> 0<3> T<1> LINK<8> // 287 %constshortintegerarray initial(0:119) = %c #line 287 "regression-compile-tmp/vax-pass1.imp" const short INITIAL[120] = { 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (-32552), 0, 0, 0, 0, 13, 0, 14, 4, (-32558), 16, (-32551), 0, 0, 5, 6, 3, 12, 15, 8, 7, 9, 10, 11, (-32559), (-32555), (-32560), (-32553), (-32554), 18, 0, 17, 21, 19, 0, 0, 0, (-32563), (-32561), 0, 0, 0, (-32562), 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, (-32557), 0, (-32556), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; // 288 23, 0, 0, 0, 0, 0, 0, 0, // 289 0, 0, 0, 0, 0, 0, 0, 0, // 290 0, 0, 22, 0, 0, 0, 0, 0, // 291 0, 0, 0, 0, 0, 0, 0, 0, // 292 0, 0, 0, 0, 0, 0, 0, 0, // 293 20, 0, 0, 0, 0, 0, 0, 0, // 294 0, 0, 0, 0, 0, 0, -32552, 0, // 295 0, 0, 0, 13, 0, 14, 4, -32558, // 296 16, -32551, 0, 0, 5, 6, 3, 12, // 297 15, 8, 7, 9, 10, 11, -32559, -32555, // 298 -32560, -32553, -32554, 18, 0, 17, 21, 19, // 299 0, 0, 0, -32563, -32561, 0, 0, 0, // 300 -32562, 0, 0, 0, 0, 0, 0, 0, // 301 1, 2, 0, -32557, 0, -32556, 0, 0, // 302 0, 0, 0, 0, 0, 0, 0, 0 // 303 // 304 ! MORE<1> 0<1> ORDER<2> TYPE<4> CLASS<8> // 305 %ownshortintegerarray gram(0:max grammar) = %c #line 305 "regression-compile-tmp/vax-pass1.imp" static short GRAM[1801] = { 0, (-28523), (-28521), (-28602), (-32706), (-28509), (-28603), (-24502), (-24503), (-20405), (-20404), (-28595), (-32697), (-32709), (-16323), (-28600), (-32704), (-28587), (-28589), (-32681), (-16344), (-28586), (-16366), (-32586), 216, (-12287), (-16380), (-8185), (-8184), (-12285), (-12286), (-12283), (-12282), (-12279), (-12276), (-16373), 20490, (-32706), (-32701), 216, (-16364), (-28610), (-28613), (-28612), 16445, 217, (-16364), 62, (-32701), 16450, (-16364), 5346, (-16364), 166, (-16344), 4332, 130, (-16360), (-16361), 126, 217, (-32701), 216, (-16364), 16450, (-32700), 16404, (-32701), (-32706), 216, 16405, 16407, (-16222), 8414, 130, 217, (-32697), 16450, 1250, 4307, 4318, 192, 93, 170, 90, 207, (-16365), 16404, 90, (-16360), (-16365), 16404, 241, (-16365), 16404, 132, 132, (-16360), 4329, (-16365), 16404, 133, 175, 90, (-16365), 16404, 209, (-16365), 16404, 4313, 217, 16451, 4263, 16384, 16384, 120, 216, (-32700), 16404, (-32706), 16404, 243, 16409, 454, (-32685), 16404, 454, 248, (-16365), 16404, 4263, 194, (-16360), 4329, (-32717), 16404, 4263, 16407, 454, 237, 127, 215, 454, 4263, 16384, (-16364), 1502, (-32629), (-16361), 153, (-32606), 222, 143, (-32629), 153, 454, 126, 16409, 454, 16384, 234, (-16365), (-32595), 147, (-32678), 234, 193, (-32677), (-32676), (-32661), 109, (-32717), 53, 52, 52, 52, 194, 194, 194, (-28581), 4188, 194, (-28566), 4203, 194, (-28564), 4205, 4580, 16429, 183, 183, 186, 186, (-28583), 0, 9437, 90, (-16365), 0, 134, (-16365), 0, 210, 4329, 199, (-32677), (-32672), (-32676), (-32688), (-32690), (-32705), (-32661), (-32659), (-32689), (-32686), (-32687), (-16330), 65, (-32716), 186, (-28583), (-32717), (-32715), (-32713), 52, (-32664), 4201, 186, (-32717), (-32715), 55, (-16328), 0, 197, 197, 52, 52, 197, (-28581), (-28580), 186, (-28581), 4188, 4318, 194, (-28581), 4188, 9437, 194, 194, 454, 16407, 216, 194, (-28566), (-28565), 186, (-28566), 4203, 194, (-28564), (-28563), 186, (-28564), 4205, 183, 183, 186, 183, (-16365), 0, 183, 4580, 16429, 5095, 9444, 5348, 186, (-28583), (-16328), 0, 16409, (-16365), 0, 9437, 5348, 217, (-32701), 16450, (-32701), 216, (-32700), 0, (-32701), (-32706), 216, 243, 217, (-16318), 0, (-32552), 0, (-32700), 0, (-32706), 0, 215, (-32550), 228, (-28616), (-28615), 0, 4096, 218, 218, (-28616), 0, (-32677), (-32676), (-16361), (-32710), (-32669), (-32662), (-32661), (-32660), (-32659), 740, (-32039), 740, (-32719), 4096, 194, (-32719), (-32718), (-32604), (-32726), (-32725), (-32724), (-32720), 4096, 710, 6116, (-32719), 0, 710, 6116, (-28581), 4188, 218, 122, 50, 16409, (-32726), (-32725), (-32724), (-32719), 4096, 710, 454, 195, 195, 195, 454, (-28581), 4188, 194, (-28566), (-28565), (-28564), 4205, 195, 195, 195, 710, 4836, 5095, 4829, (-32726), (-32725), (-32724), (-32719), 4096, 4827, 4828, 454, (-32720), (-32719), 4096, 4829, 4827, 4828, 194, (-32719), 0, 710, 4836, (-16291), (-32677), 92, 184, 121, (-28581), (-28580), (-32722), (-32723), 4317, (-32726), (-32725), (-32724), 0, 183, (-32726), (-32725), (-32724), (-32720), 0, 4316, 195, 195, 195, 454, (-28581), 4188, 4315, 183, 4317, (-32726), (-32725), 0, 195, 195, 4315, 4317, (-32726), 0, 195, (-32677), (-32676), (-16361), 16431, 228, 228, 47, (-32610), (-32611), 5345, (-32609), (-32608), (-32607), 0, 4320, 4319, 5345, (-32609), (-32608), 0, 4319, 5345, (-32609), 0, (-32613), (-16361), 16431, 222, 222, 156, (-32677), 92, 183, 186, 1222, 16435, 228, 16403, 4324, 138, 8420, (-32723), 4189, 93, 454, 148, (-32674), 16546, 16409, (-32597), 182, (-16383), 16388, 234, (-16365), (-32595), 172, (-32678), 234, 90, 244, 246, (-16365), 0, 235, (-32678), 234, (-16365), 246, (-16365), 0, (-32678), 234, 90, 16407, 222, 16405, 222, 145, 16407, 222, 16405, 222, 146, 16407, 1252, 154, 5348, (-16365), 142, 126, 182, (-16383), 16391, 90, (-16365), 127, (-32678), 238, 90, 125, 239, (-16365), 8319, 8430, 128, 126, (-16361), 127, 190, 240, 189, 16409, 182, (-16383), 16391, 90, (-16365), 0, (-32678), 240, 90, 16623, (-16365), 0, 244, 232, 1252, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 222, (-16365), 0, 131, 194, (-16360), (-16333), (-16332), 124, 181, (-16292), (-16277), 16493, (-31802), 5342, (-28581), 4188, 4263, 181, 186, 454, 16475, 183, (-28583), 199, 5598, 9438, 222, (-32677), (-32676), 16407, 186, 228, 135, 16409, (-32632), 0, (-32677), 92, (-32677), (-32676), (-32662), (-32661), (-32660), (-32659), 165, (-32677), 92, 188, (-32662), 107, 188, (-32660), 109, (-32732), 37, (-16344), 4318, 148, (-32674), 16424, 222, 16405, 222, 174, (-28644), (-32734), (-32680), (-28641), (-32733), (-32730), (-32735), (-32727), (-32738), 4326, (-32738), (-32739), (-32741), (-32736), 199, (-28644), (-32680), (-28641), 4326, (-32739), (-32741), 199, (-32738), (-32739), (-32741), (-32736), (-32729), 199, (-32616), 199, (-32739), (-32741), (-32729), 199, (-32616), (-32729), 199, (-28644), (-32680), 4326, (-32738), (-32739), (-32741), 199, 245, 4318, 245, 16409, 152, 4318, 16409, 152, 245, (-32672), (-32671), (-32670), 99, 16407, 200, 144, 185, (-32677), 92, 16407, (-32582), 200, 200, 187, 141, (-32677), 92, 16410, 191, (-32677), (-32676), (-32662), (-32661), (-32660), 109, 198, [719 ... 1800] = 0 }; // 306 0, -28523, -28521, -28602, -32706, -28509, -28603, -24502, // 307 -24503, -20405, -20404, -28595, -32697, -32709, -16323, -28600, // 308 -32704, -28587, -28589, -32681, -16344, -28586, -16366, -32586, // 309 216, -12287, -16380, -8185, -8184, -12285, -12286, -12283, // 310 -12282, -12279, -12276, -16373, 20490, -32706, -32701, 216, // 311 -16364, -28610, -28613, -28612, 16445, 217, -16364, 62, // 312 -32701, 16450, -16364, 5346, -16364, 166, -16344, 4332, // 313 130, -16360, -16361, 126, 217, -32701, 216, -16364, // 314 16450, -32700, 16404, -32701, -32706, 216, 16405, 16407, // 315 -16222, 8414, 130, 217, -32697, 16450, 1250, 4307, // 316 4318, 192, 93, 170, 90, 207, -16365, 16404, // 317 90, -16360, -16365, 16404, 241, -16365, 16404, 132, // 318 132, -16360, 4329, -16365, 16404, 133, 175, 90, // 319 -16365, 16404, 209, -16365, 16404, 4313, 217, 16451, // 320 4263, 16384, 16384, 120, 216, -32700, 16404, -32706, // 321 16404, 243, 16409, 454, -32685, 16404, 454, 248, // 322 -16365, 16404, 4263, 194, -16360, 4329, -32717, 16404, // 323 4263, 16407, 454, 237, 127, 215, 454, 4263, // 324 16384, -16364, 1502, -32629, -16361, 153, -32606, 222, // 325 143, -32629, 153, 454, 126, 16409, 454, 16384, // 326 234, -16365, -32595, 147, -32678, 234, 193, -32677, // 327 -32676, -32661, 109, -32717, 53, 52, 52, 52, // 328 194, 194, 194, -28581, 4188, 194, -28566, 4203, // 329 194, -28564, 4205, 4580, 16429, 183, 183, 186, // 330 186, -28583, 0, 9437, 90, -16365, 0, 134, // 331 -16365, 0, 210, 4329, 199, -32677, -32672, -32676, // 332 -32688, -32690, -32705, -32661, -32659, -32689, -32686, -32687, // 333 -16330, 65, -32716, 186, -28583, -32717, -32715, -32713, // 334 52, -32664, 4201, 186, -32717, -32715, 55, -16328, // 335 0, 197, 197, 52, 52, 197, -28581, -28580, // 336 186, -28581, 4188, 4318, 194, -28581, 4188, 9437, // 337 194, 194, 454, 16407, 216, 194, -28566, -28565, // 338 186, -28566, 4203, 194, -28564, -28563, 186, -28564, // 339 4205, 183, 183, 186, 183, -16365, 0, 183, // 340 4580, 16429, 5095, 9444, 5348, 186, -28583, -16328, // 341 0, 16409, -16365, 0, 9437, 5348, 217, -32701, // 342 16450, -32701, 216, -32700, 0, -32701, -32706, 216, // 343 243, 217, -16318, 0, -32552, 0, -32700, 0, // 344 -32706, 0, 215, -32550, 228, -28616, -28615, 0, // 345 4096, 218, 218, -28616, 0, -32677, -32676, -16361, // 346 -32710, -32669, -32662, -32661, -32660, -32659, 740, -32039, // 347 740, -32719, 4096, 194, -32719, -32718, -32604, -32726, // 348 -32725, -32724, -32720, 4096, 710, 6116, -32719, 0, // 349 710, 6116, -28581, 4188, 218, 122, 50, 16409, // 350 -32726, -32725, -32724, -32719, 4096, 710, 454, 195, // 351 195, 195, 454, -28581, 4188, 194, -28566, -28565, // 352 -28564, 4205, 195, 195, 195, 710, 4836, 5095, // 353 4829, -32726, -32725, -32724, -32719, 4096, 4827, 4828, // 354 454, -32720, -32719, 4096, 4829, 4827, 4828, 194, // 355 -32719, 0, 710, 4836, -16291, -32677, 92, 184, // 356 121, -28581, -28580, -32722, -32723, 4317, -32726, -32725, // 357 -32724, 0, 183, -32726, -32725, -32724, -32720, 0, // 358 4316, 195, 195, 195, 454, -28581, 4188, 4315, // 359 183, 4317, -32726, -32725, 0, 195, 195, 4315, // 360 4317, -32726, 0, 195, -32677, -32676, -16361, 16431, // 361 228, 228, 47, -32610, -32611, 5345, -32609, -32608, // 362 -32607, 0, 4320, 4319, 5345, -32609, -32608, 0, // 363 4319, 5345, -32609, 0, -32613, -16361, 16431, 222, // 364 222, 156, -32677, 92, 183, 186, 1222, 16435, // 365 228, 16403, 4324, 138, 8420, -32723, 4189, 93, // 366 454, 148, -32674, 16546, 16409, -32597, 182, -16383, // 367 16388, 234, -16365, -32595, 172, -32678, 234, 90, // 368 244, 246, -16365, 0, 235, -32678, 234, -16365, // 369 246, -16365, 0, -32678, 234, 90, 16407, 222, // 370 16405, 222, 145, 16407, 222, 16405, 222, 146, // 371 16407, 1252, 154, 5348, -16365, 142, 126, 182, // 372 -16383, 16391, 90, -16365, 127, -32678, 238, 90, // 373 125, 239, -16365, 8319, 8430, 128, 126, -16361, // 374 127, 190, 240, 189, 16409, 182, -16383, 16391, // 375 90, -16365, 0, -32678, 240, 90, 16623, -16365, // 376 0, 244, 232, 1252, 1252, 137, 1252, 137, // 377 1252, 137, 1252, 137, 1252, 137, 222, -16365, // 378 0, 131, 194, -16360, -16333, -16332, 124, 181, // 379 -16292, -16277, 16493, -31802, 5342, -28581, 4188, 4263, // 380 181, 186, 454, 16475, 183, -28583, 199, 5598, // 381 9438, 222, -32677, -32676, 16407, 186, 228, 135, // 382 16409, -32632, 0, -32677, 92, -32677, -32676, -32662, // 383 -32661, -32660, -32659, 165, -32677, 92, 188, -32662, // 384 107, 188, -32660, 109, -32732, 37, -16344, 4318, // 385 148, -32674, 16424, 222, 16405, 222, 174, -28644, // 386 -32734, -32680, -28641, -32733, -32730, -32735, -32727, -32738, // 387 4326, -32738, -32739, -32741, -32736, 199, -28644, -32680, // 388 -28641, 4326, -32739, -32741, 199, -32738, -32739, -32741, // 389 -32736, -32729, 199, -32616, 199, -32739, -32741, -32729, // 390 199, -32616, -32729, 199, -28644, -32680, 4326, -32738, // 391 -32739, -32741, 199, 245, 4318, 245, 16409, 152, // 392 4318, 16409, 152, 245, -32672, -32671, -32670, 99, // 393 16407, 200, 144, 185, -32677, 92, 16407, -32582, // 394 200, 200, 187, 141, -32677, 92, 16410, 191, // 395 -32677, -32676, -32662, -32661, -32660, 109, 198, // 396 0(max grammar-718) // 397 // 398 %ownshortintegerarray glink(0:max grammar) = %c #line 398 "regression-compile-tmp/vax-pass1.imp" static short GLINK[1801] = { (-1), 70, 71, 37, 45, 46, 66, 66, 74, 66, 0, 66, 50, 75, 78, 52, 54, 79, 66, 80, 81, 82, 83, 25, 40, 84, 85, 56, 56, 88, 92, 95, 96, 101, 102, 103, 106, 45, 66, 66, 0, 109, 109, 110, 51, 48, 0, 60, 66, 61, 0, 66, 0, 110, 111, 111, 57, 112, 113, 114, 63, 66, 65, 115, 116, 67, 0, 66, 121, 66, 0, 72, 122, 122, 66, 76, 66, 39, 76, 66, 66, 0, 123, 126, 127, 86, 85, 0, 89, 130, 88, 0, 93, 92, 0, 131, 97, 136, 99, 96, 0, 137, 66, 104, 103, 0, 107, 106, 0, 66, 66, 66, 138, 139, 140, 0, 117, 119, 115, 141, 115, 66, 70, 124, 66, 0, 66, 128, 84, 0, 142, 132, 143, 134, 144, 0, 155, 156, 58, 157, 66, 118, 90, 158, 145, 144, 147, 145, 150, 0, 152, 152, 153, 145, 0, 98, 159, 66, 133, 160, 161, 164, 160, 140, 161, 161, 167, 171, 173, 174, 175, 176, 177, 178, 181, 184, 187, 188, 179, 189, 189, 182, 190, 190, 185, 190, 190, 0, 187, 191, 192, 193, 0, 195, 0, 0, 197, 196, 0, 200, 199, 0, 203, 204, 0, 227, 231, 218, 233, 234, 0, 235, 236, 237, 0, 231, 225, 243, 244, 220, 247, 248, 249, 250, 244, 0, 251, 228, 248, 249, 250, 252, 0, 0, 187, 253, 259, 238, 268, 268, 241, 190, 190, 269, 245, 271, 271, 228, 272, 273, 274, 275, 0, 254, 265, 265, 257, 266, 266, 260, 265, 265, 263, 266, 266, 231, 267, 231, 0, 276, 0, 277, 231, 272, 231, 281, 282, 278, 284, 252, 0, 0, 285, 0, 231, 0, 287, 0, 289, 0, 291, 293, 0, 0, 296, 0, 0, 298, 300, 0, 302, 0, 304, 0, 306, 0, 0, 309, 312, 313, 314, 0, 0, 315, 310, 313, 0, 331, 331, 327, 348, 349, 350, 350, 350, 350, 329, 281, 351, 357, 0, 332, 340, 346, 358, 359, 360, 361, 362, 0, 341, 342, 344, 0, 345, 0, 268, 268, 0, 0, 365, 352, 370, 371, 372, 373, 0, 374, 375, 376, 382, 383, 363, 384, 384, 366, 268, 268, 268, 268, 388, 389, 390, 391, 392, 0, 377, 359, 360, 361, 340, 0, 378, 379, 385, 362, 340, 0, 352, 353, 354, 374, 394, 0, 395, 0, 399, 268, 268, 400, 0, 410, 410, 405, 416, 406, 417, 418, 419, 0, 411, 417, 418, 419, 420, 0, 408, 405, 423, 416, 421, 424, 424, 407, 414, 426, 429, 430, 0, 425, 431, 427, 433, 435, 0, 432, 268, 268, 440, 441, 281, 442, 0, 445, 450, 446, 445, 451, 450, 0, 448, 447, 453, 452, 456, 0, 454, 458, 457, 0, 268, 463, 464, 281, 465, 0, 468, 468, 469, 470, 471, 472, 473, 474, 475, 476, 0, 478, 268, 480, 0, 482, 484, 484, 204, 489, 487, 495, 496, 490, 493, 489, 0, 490, 490, 0, 497, 498, 500, 0, 0, 503, 505, 509, 498, 507, 0, 505, 505, 503, 511, 512, 513, 514, 0, 516, 517, 518, 519, 0, 521, 522, 523, 524, 521, 0, 527, 528, 530, 535, 531, 533, 0, 531, 0, 536, 537, 538, 540, 541, 541, 0, 543, 545, 0, 546, 547, 548, 532, 550, 552, 557, 553, 555, 0, 553, 0, 558, 559, 556, 0, 562, 204, 0, 565, 563, 567, 564, 569, 566, 571, 568, 573, 570, 575, 574, 0, 578, 579, 591, 592, 583, 204, 584, 587, 587, 587, 589, 204, 593, 593, 594, 595, 596, 580, 599, 597, 600, 0, 204, 204, 204, 605, 605, 606, 607, 608, 604, 609, 611, 0, 192, 192, 192, 192, 192, 192, 192, 192, 0, 622, 622, 191, 625, 625, 0, 625, 625, 630, 632, 281, 281, 633, 281, 281, 636, 637, 638, 0, 649, 676, 683, 665, 654, 204, 204, 204, 204, 649, 658, 667, 684, 665, 0, 661, 685, 665, 661, 667, 684, 0, 669, 673, 688, 665, 204, 0, 204, 0, 673, 688, 204, 0, 665, 204, 0, 679, 691, 679, 658, 667, 684, 0, 649, 686, 661, 687, 204, 689, 690, 665, 679, 696, 696, 696, 696, 697, 698, 699, 0, 702, 702, 703, 705, 706, 707, 707, 699, 710, 710, 711, 712, 718, 718, 718, 718, 718, 718, [718 ... 1800] = 0 }; // 399 -1, 70, 71, 37, 45, 46, 66, 66, // 400 74, 66, 0, 66, 50, 75, 78, 52, // 401 54, 79, 66, 80, 81, 82, 83, 25, // 402 40, 84, 85, 56, 56, 88, 92, 95, // 403 96, 101, 102, 103, 106, 45, 66, 66, // 404 0, 109, 109, 110, 51, 48, 0, 60, // 405 66, 61, 0, 66, 0, 110, 111, 111, // 406 57, 112, 113, 114, 63, 66, 65, 115, // 407 116, 67, 0, 66, 121, 66, 0, 72, // 408 122, 122, 66, 76, 66, 39, 76, 66, // 409 66, 0, 123, 126, 127, 86, 85, 0, // 410 89, 130, 88, 0, 93, 92, 0, 131, // 411 97, 136, 99, 96, 0, 137, 66, 104, // 412 103, 0, 107, 106, 0, 66, 66, 66, // 413 138, 139, 140, 0, 117, 119, 115, 141, // 414 115, 66, 70, 124, 66, 0, 66, 128, // 415 84, 0, 142, 132, 143, 134, 144, 0, // 416 155, 156, 58, 157, 66, 118, 90, 158, // 417 145, 144, 147, 145, 150, 0, 152, 152, // 418 153, 145, 0, 98, 159, 66, 133, 160, // 419 161, 164, 160, 140, 161, 161, 167, 171, // 420 173, 174, 175, 176, 177, 178, 181, 184, // 421 187, 188, 179, 189, 189, 182, 190, 190, // 422 185, 190, 190, 0, 187, 191, 192, 193, // 423 0, 195, 0, 0, 197, 196, 0, 200, // 424 199, 0, 203, 204, 0, 227, 231, 218, // 425 233, 234, 0, 235, 236, 237, 0, 231, // 426 225, 243, 244, 220, 247, 248, 249, 250, // 427 244, 0, 251, 228, 248, 249, 250, 252, // 428 0, 0, 187, 253, 259, 238, 268, 268, // 429 241, 190, 190, 269, 245, 271, 271, 228, // 430 272, 273, 274, 275, 0, 254, 265, 265, // 431 257, 266, 266, 260, 265, 265, 263, 266, // 432 266, 231, 267, 231, 0, 276, 0, 277, // 433 231, 272, 231, 281, 282, 278, 284, 252, // 434 0, 0, 285, 0, 231, 0, 287, 0, // 435 289, 0, 291, 293, 0, 0, 296, 0, // 436 0, 298, 300, 0, 302, 0, 304, 0, // 437 306, 0, 0, 309, 312, 313, 314, 0, // 438 0, 315, 310, 313, 0, 331, 331, 327, // 439 348, 349, 350, 350, 350, 350, 329, 281, // 440 351, 357, 0, 332, 340, 346, 358, 359, // 441 360, 361, 362, 0, 341, 342, 344, 0, // 442 345, 0, 268, 268, 0, 0, 365, 352, // 443 370, 371, 372, 373, 0, 374, 375, 376, // 444 382, 383, 363, 384, 384, 366, 268, 268, // 445 268, 268, 388, 389, 390, 391, 392, 0, // 446 377, 359, 360, 361, 340, 0, 378, 379, // 447 385, 362, 340, 0, 352, 353, 354, 374, // 448 394, 0, 395, 0, 399, 268, 268, 400, // 449 0, 410, 410, 405, 416, 406, 417, 418, // 450 419, 0, 411, 417, 418, 419, 420, 0, // 451 408, 405, 423, 416, 421, 424, 424, 407, // 452 414, 426, 429, 430, 0, 425, 431, 427, // 453 433, 435, 0, 432, 268, 268, 440, 441, // 454 281, 442, 0, 445, 450, 446, 445, 451, // 455 450, 0, 448, 447, 453, 452, 456, 0, // 456 454, 458, 457, 0, 268, 463, 464, 281, // 457 465, 0, 468, 468, 469, 470, 471, 472, // 458 473, 474, 475, 476, 0, 478, 268, 480, // 459 0, 482, 484, 484, 204, 489, 487, 495, // 460 496, 490, 493, 489, 0, 490, 490, 0, // 461 497, 498, 500, 0, 0, 503, 505, 509, // 462 498, 507, 0, 505, 505, 503, 511, 512, // 463 513, 514, 0, 516, 517, 518, 519, 0, // 464 521, 522, 523, 524, 521, 0, 527, 528, // 465 530, 535, 531, 533, 0, 531, 0, 536, // 466 537, 538, 540, 541, 541, 0, 543, 545, // 467 0, 546, 547, 548, 532, 550, 552, 557, // 468 553, 555, 0, 553, 0, 558, 559, 556, // 469 0, 562, 204, 0, 565, 563, 567, 564, // 470 569, 566, 571, 568, 573, 570, 575, 574, // 471 0, 578, 579, 591, 592, 583, 204, 584, // 472 587, 587, 587, 589, 204, 593, 593, 594, // 473 595, 596, 580, 599, 597, 600, 0, 204, // 474 204, 204, 605, 605, 606, 607, 608, 604, // 475 609, 611, 0, 192, 192, 192, 192, 192, // 476 192, 192, 192, 0, 622, 622, 191, 625, // 477 625, 0, 625, 625, 630, 632, 281, 281, // 478 633, 281, 281, 636, 637, 638, 0, 649, // 479 676, 683, 665, 654, 204, 204, 204, 204, // 480 649, 658, 667, 684, 665, 0, 661, 685, // 481 665, 661, 667, 684, 0, 669, 673, 688, // 482 665, 204, 0, 204, 0, 673, 688, 204, // 483 0, 665, 204, 0, 679, 691, 679, 658, // 484 667, 684, 0, 649, 686, 661, 687, 204, // 485 689, 690, 665, 679, 696, 696, 696, 696, // 486 697, 698, 699, 0, 702, 702, 703, 705, // 487 706, 707, 707, 699, 710, 710, 711, 712, // 488 718, 718, 718, 718, 718, 718, 0, // 489 0(max grammar-718) // 490 // 491 %constshortintegerarray kdict(32:596) = %c #line 491 "regression-compile-tmp/vax-pass1.imp" const short KDICT[565] = { 0, 511, 131, 531, 131, 551, 559, 131, 567, 575, 583, 603, 623, 631, 663, 671, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 691, 698, 707, 751, 795, 131, 131, 824, 900, 960, 1076, 1120, 1280, 128, 128, 1392, 128, 128, 1460, 1556, 1592, 1660, 1748, 128, 1828, 2000, 2196, 2228, 128, 2268, 128, 128, 128, 2287, 2295, 2327, 2335, 2355, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 2363, 131, 2335, (-32351), 16428, 25, 16428, 29, (-32349), 16433, 1, 16434, 1, (-16127), 0, 16427, 21, 16407, 0, 16409, 0, (-32323), (-10840), 40, 16471, 0, (-32341), (-10580), 32, 16473, 117, 16384, 19, (-31955), (-32322), (-10580), 36, (-9290), 0, 16473, 113, 16432, 13, (-32337), 16427, 46, 16427, 17, 16405, 0, 16404, 0, (-31556), (-31939), (-32322), (-9551), 2, 16433, 1, 16433, 5, 16426, 5, (-31606), (-32323), (-9807), 0, (-32374), (-9678), 0, 16436, 0, 16435, 0, (-31939), (-32322), 16433, 4, 16426, 9, 16433, 3, (-30772), (-31666), 10578, 11457, (-32344), 16413, 2, 16411, 2, 68, (-32374), 16440, 0, 16440, 0, 8393, 83, 16408, 0, (-31291), 10841, 69, (-32311), 16412, 18, 10830, 9157, 10565, 16412, 18, 9415, 78, 16458, 0, (-32049), 8665, 8908, 16455, 0, (-30131), 78, (-31277), 84, (-32055), 10194, 76, 16469, 0, 10958, 69, 16447, 32, 84, (-32319), 16418, 2, 10830, 16418, 2, 8909, 10830, 16406, 0, (-31927), 10073, 9921, 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, (-27956), (-31282), 88, (-31927), 8916, 10066, 9793, 16419, 3, 84, 16447, 4, 68, (-32305), 16459, 2, 70, (-30650), (-31284), 80, (-31931), 10194, 10567, 9921, 16460, 1, 9938, 16461, 0, 10697, 84, 16467, 3, 9801, 69, 16460, 0, 8915, 16452, 0, (-29631), (-30903), (-31282), (-31793), 10069, 10819, 10185, 78, 16416, 9, 82, 16445, 0, 16416, 9, 9422, 9299, (-32315), 16453, 0, 10700, 69, 16454, 0, 10700, 69, 16464, 1210, (-30778), 78, (-31549), 8916, 8903, 82, (-32344), 16412, 17, 16472, 17, 10956, 8900, 16470, 0, 16446, 44, (-30143), (-30647), 10063, 71, (-31671), (-32302), 16412, 20, 8389, 76, 16412, 36, 10830, 9157, 10565, 16412, 20, 10835, 16467, 1, 8898, 76, 16425, 6, (-31935), 10063, 10825, 10575, 16465, 109, 80, 16416, 10, (-32191), 10831, 16442, 0, 8909, (-32314), 16414, 1, (-31794), 10069, 10819, 10185, 78, 16416, 10, 16416, 10, (-30770), (-31408), (-32174), 10071, 16418, 1, (-32374), 16441, 2, 16441, 2, 9428, 10063, 16402, 0, (-32315), 16448, 0, 8918, 10830, 16448, 0, (-30523), 82, (-31419), (-31927), 9167, 8402, 77, 16457, 0, 77, 16419, 6, 9412, 8387, 8916, 16415, 123, 9938, 16419, 7, (-31931), 10959, 9428, 8910, 16415, 104, (-28351), (-30397), (-31024), (-32045), 10964, 10066, 16464, 1319, 9813, 7892, (-32323), 16462, 1384, 16463, 1241, 8389, 84, 16456, 0, 10575, 68, (-32314), 16421, 64, 10575, 8397, 84, (-32301), 16422, 9, 8912, 67, 16422, 12, 76, 16412, 33, (-27704), (-28983), (-29488), (-31276), (-31913), 10713, 8916, 77, 16419, 4, 10825, 9283, 16417, 12, (-31423), (-31921), 9426, 9166, 40, 16420, 48, 80, 16466, 115, 10834, 16451, 0, 8645, 16423, 0, 10055, 9793, (-32315), 16449, 0, 8918, 10830, 16449, 0, 10575, 84, (-32311), 16412, 19, 10830, 9157, 10565, 16412, 19, (-32056), 10962, 69, 16464, 1354, 10053, 16450, 0, 78, (-32052), 9428, 76, 16444, 182, 10693, 83, 16446, 46, 9416, 8908, 16443, 180, 16407, 0, (-31939), (-32292), (-10454), 51, 16426, 13, 16433, 1, 16409, 0, (-32290), (-10454), 51, 16426, 13, 16410, 0, 16431, 14, (-32323), 16430, 51, 16433, 1, }; // 492 0, 511, 131, 531, 131, 551, 559, 131, // 493 567, 575, 583, 603, 623, 631, 663, 671, // 494 129, 129, 129, 129, 129, 129, 129, 129, // 495 129, 129, 691, 698, 707, 751, 795, 131, // 496 131, 824, 900, 960, 1076, 1120, 1280, 128, // 497 128, 1392, 128, 128, 1460, 1556, 1592, 1660, // 498 1748, 128, 1828, 2000, 2196, 2228, 128, 2268, // 499 128, 128, 128, 2287, 2295, 2327, 2335, 2355, // 500 131, 131, 131, 131, 131, 131, 131, 131, // 501 131, 131, 131, 131, 131, 131, 131, 131, // 502 131, 131, 131, 131, 131, 131, 131, 131, // 503 131, 131, 131, 131, 2363, 131, 2335, -32351, // 504 16428, 25, 16428, 29, -32349, 16433, 1, 16434, // 505 1, -16127, 0, 16427, 21, 16407, 0, 16409, // 506 0, -32323, -10840, 40, 16471, 0, -32341, -10580, // 507 32, 16473, 117, 16384, 19, -31955, -32322, -10580, // 508 36, -9290, 0, 16473, 113, 16432, 13, -32337, // 509 16427, 46, 16427, 17, 16405, 0, 16404, 0, // 510 -31556, -31939, -32322, -9551, 2, 16433, 1, 16433, // 511 5, 16426, 5, -31606, -32323, -9807, 0, -32374, // 512 -9678, 0, 16436, 0, 16435, 0, -31939, -32322, // 513 16433, 4, 16426, 9, 16433, 3, -30772, -31666, // 514 10578, 11457, -32344, 16413, 2, 16411, 2, 68, // 515 -32374, 16440, 0, 16440, 0, 8393, 83, 16408, // 516 0, -31291, 10841, 69, -32311, 16412, 18, 10830, // 517 9157, 10565, 16412, 18, 9415, 78, 16458, 0, // 518 -32049, 8665, 8908, 16455, 0, -30131, 78, -31277, // 519 84, -32055, 10194, 76, 16469, 0, 10958, 69, // 520 16447, 32, 84, -32319, 16418, 2, 10830, 16418, // 521 2, 8909, 10830, 16406, 0, -31927, 10073, 9921, // 522 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, // 523 -27956, -31282, 88, -31927, 8916, 10066, 9793, 16419, // 524 3, 84, 16447, 4, 68, -32305, 16459, 2, // 525 70, -30650, -31284, 80, -31931, 10194, 10567, 9921, // 526 16460, 1, 9938, 16461, 0, 10697, 84, 16467, // 527 3, 9801, 69, 16460, 0, 8915, 16452, 0, // 528 -29631, -30903, -31282, -31793, 10069, 10819, 10185, 78, // 529 16416, 9, 82, 16445, 0, 16416, 9, 9422, // 530 9299, -32315, 16453, 0, 10700, 69, 16454, 0, // 531 10700, 69, 16464, 1210, -30778, 78, -31549, 8916, // 532 8903, 82, -32344, 16412, 17, 16472, 17, 10956, // 533 8900, 16470, 0, 16446, 44, -30143, -30647, 10063, // 534 71, -31671, -32302, 16412, 20, 8389, 76, 16412, // 535 36, 10830, 9157, 10565, 16412, 20, 10835, 16467, // 536 1, 8898, 76, 16425, 6, -31935, 10063, 10825, // 537 10575, 16465, 109, 80, 16416, 10, -32191, 10831, // 538 16442, 0, 8909, -32314, 16414, 1, -31794, 10069, // 539 10819, 10185, 78, 16416, 10, 16416, 10, -30770, // 540 -31408, -32174, 10071, 16418, 1, -32374, 16441, 2, // 541 16441, 2, 9428, 10063, 16402, 0, -32315, 16448, // 542 0, 8918, 10830, 16448, 0, -30523, 82, -31419, // 543 -31927, 9167, 8402, 77, 16457, 0, 77, 16419, // 544 6, 9412, 8387, 8916, 16415, 123, 9938, 16419, // 545 7, -31931, 10959, 9428, 8910, 16415, 104, -28351, // 546 -30397, -31024, -32045, 10964, 10066, 16464, 1319, 9813, // 547 7892, -32323, 16462, 1384, 16463, 1241, 8389, 84, // 548 16456, 0, 10575, 68, -32314, 16421, 64, 10575, // 549 8397, 84, -32301, 16422, 9, 8912, 67, 16422, // 550 12, 76, 16412, 33, -27704, -28983, -29488, -31276, // 551 -31913, 10713, 8916, 77, 16419, 4, 10825, 9283, // 552 16417, 12, -31423, -31921, 9426, 9166, 40, 16420, // 553 48, 80, 16466, 115, 10834, 16451, 0, 8645, // 554 16423, 0, 10055, 9793, -32315, 16449, 0, 8918, // 555 10830, 16449, 0, 10575, 84, -32311, 16412, 19, // 556 10830, 9157, 10565, 16412, 19, -32056, 10962, 69, // 557 16464, 1354, 10053, 16450, 0, 78, -32052, 9428, // 558 76, 16444, 182, 10693, 83, 16446, 46, 9416, // 559 8908, 16443, 180, 16407, 0, -31939, -32292, -10454, // 560 51, 16426, 13, 16433, 1, 16409, 0, -32290, // 561 -10454, 51, 16426, 13, 16410, 0, 16431, 14, // 562 -32323, 16430, 51, 16433, 1 // 563 !! %list // 564 !!%endoffile // 565 !*** end of generated tables *** // 566 // 567 %routine print ident(%integer p, mode) #line 567 "regression-compile-tmp/vax-pass1.imp" void PRINTIDENT( int P, int MODE ) #line 567 "regression-compile-tmp/vax-pass1.imp" { // 568 %INTEGER j, ad #line 568 "regression-compile-tmp/vax-pass1.imp" int J; #line 568 "regression-compile-tmp/vax-pass1.imp" int AD; // 569 p = tag(p)_text #line 569 "regression-compile-tmp/vax-pass1.imp" P = TAG[P].TEXT; // 570 %IF p = 0 %START #line 570 "regression-compile-tmp/vax-pass1.imp" if (((P) != (0))) goto L_0002; // 571 %IF mode = 0 %THEN printsymbol('?') %C #line 571 "regression-compile-tmp/vax-pass1.imp" if (((MODE) != (0))) goto L_0003; #line 571 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(63); #line 571 "regression-compile-tmp/vax-pass1.imp" goto L_0004; #line 571 "regression-compile-tmp/vax-pass1.imp" L_0003:; #line 571 "regression-compile-tmp/vax-pass1.imp" PUT(63); #line 571 "regression-compile-tmp/vax-pass1.imp" L_0004:; // 572 %ELSE put('?') // 573 %RETURN #line 573 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 574 %FINISH #line 574 "regression-compile-tmp/vax-pass1.imp" L_0002:; // 575 ad = addr(dict(p+1)) #line 575 "regression-compile-tmp/vax-pass1.imp" AD = _imp_ADDR(&DICT[(((int)((((int)(P)) + (1)))) - (1))]); // 576 %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START #line 576 "regression-compile-tmp/vax-pass1.imp" if (((MODE) != (0))) goto L_0005; #line 576 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(*_imp_STRING(AD)); #line 576 "regression-compile-tmp/vax-pass1.imp" goto L_0006; #line 576 "regression-compile-tmp/vax-pass1.imp" L_0005:; // 577 putblock(byteinteger(ad),byteinteger(ad+1)) #line 577 "regression-compile-tmp/vax-pass1.imp" PUTBLOCK(*_imp_BYTEINTEGER(AD), _imp_BYTEINTEGER((((int)(AD)) + (1)))); // 578 %finish #line 578 "regression-compile-tmp/vax-pass1.imp" L_0006:; // 579 %END #line 579 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTIDENT at level 2 // 580 %ROUTINE abandon(%INTEGER n) #line 580 "regression-compile-tmp/vax-pass1.imp" void ABANDON( int N ) #line 580 "regression-compile-tmp/vax-pass1.imp" { // 581 %SWITCH reason(0:9) #line 581 "regression-compile-tmp/vax-pass1.imp" static int sw1_REASON_idx; static const void * /*SWITCH*/ sw1_REASON[10] = { &&sw1_REASON_0, &&sw1_REASON_1, &&sw1_REASON_2, &&sw1_REASON_3, &&sw1_REASON_4, &&sw1_REASON_5, &&sw1_REASON_6, &&sw1_REASON_7, &&sw1_REASON_8, &&sw1_REASON_9, }; // 582 %INTEGER stream #line 582 "regression-compile-tmp/vax-pass1.imp" int STREAM; // 583 stream = listing #line 583 "regression-compile-tmp/vax-pass1.imp" STREAM = 2; // 584 %CYCLE #line 584 "regression-compile-tmp/vax-pass1.imp" L_0007:; // 585 newline %IF sym # nl #line 585 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_000a; #line 585 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 585 "regression-compile-tmp/vax-pass1.imp" L_000a:; // 586 printsymbol('*'); write(lines,4); space #line 586 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(42); #line 586 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, 4); #line 586 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 587 printsymbol('[') #line 587 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(91); // 588 write(n,0) #line 588 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(N, 0); // 589 printsymbol(']') #line 589 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(93); // 590 ->reason(n) #line 590 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_idx = N; if ((0 <= sw1_REASON_idx) && (sw1_REASON_idx <= 9)) goto *sw1_REASON[sw1_REASON_idx]; else { /*_imp_signal(8, 2, sw1_REASON_idx);*/ fprintf(stderr, "%%SWITCH index REASON(%d) not in range 0:9 at %s:%d\n", sw1_REASON_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 591 reason(*):debug("* Switch label not set: reason(".itos(n,0).")"); %stop #line 591 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_default:; #line 591 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: reason("),(_imp_string)_imp_ITOS(N, 0)),(_imp_string)_imp_str_literal(")"))); #line 591 "regression-compile-tmp/vax-pass1.imp" exit(0); // 592 reason(0):printstring("compiler error!"); ->more #line 592 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_0:; #line 592 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("compiler error!")); #line 592 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 593 reason(1):printstring("switch vector too large"); ->more #line 593 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_1:; #line 593 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("switch vector too large")); #line 593 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 594 reason(2):printstring("too many names"); ->more #line 594 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_2:; #line 594 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("too many names")); #line 594 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 595 reason(3):printstring("program too complex"); ->more #line 595 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_3:; #line 595 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("program too complex")); #line 595 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 596 reason(4):printstring("feature not implemented"); ->more #line 596 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_4:; #line 596 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("feature not implemented")); #line 596 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 597 {GT: reason(5):printstring(error message.sysmess(event_extra)) %and -> more %if event_sub # 1 // 598 // 599 reason(5): #line 599 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_5:; // 600 %if event_sub # 1 %start #line 600 "regression-compile-tmp/vax-pass1.imp" if (((_imp_EVENT().SUB) == (1))) goto L_000b; // 601 printstring("error message=""".error message.""" event_event=".itos(event_event,0)." event_sub=".itos(event_sub, 0)) #line 601 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("error message=\""),(_imp_string)ERRORMESSAGE),(_imp_string)_imp_str_literal("\" event_event=")),(_imp_string)_imp_ITOS(_imp_EVENT().EVENT, 0)),(_imp_string)_imp_str_literal(" event_sub=")),(_imp_string)_imp_ITOS(_imp_EVENT().SUB, 0))); // 602 {printstring("sysmess(event_extra)=""".sysmess(event_extra)."""") // 603 -> more #line 603 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 604 %finish #line 604 "regression-compile-tmp/vax-pass1.imp" L_000b:; // 605 // 606 %IF quote # 0 %START #line 606 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) == (0))) goto L_000c; // 607 %IF quote < 0 %THEN printsymbol(cquote) %C #line 607 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) >= (0))) goto L_000d; #line 607 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(39); #line 607 "regression-compile-tmp/vax-pass1.imp" goto L_000e; #line 607 "regression-compile-tmp/vax-pass1.imp" L_000d:; #line 607 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(34); #line 607 "regression-compile-tmp/vax-pass1.imp" L_000e:; // 608 %ELSE printsymbol(squote) // 609 %ELSE #line 609 "regression-compile-tmp/vax-pass1.imp" goto L_000f; #line 609 "regression-compile-tmp/vax-pass1.imp" L_000c:; // 610 printstring("%endof") #line 610 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%endof")); // 611 %IF progmode >= 0 %THEN printstring("program") %C #line 611 "regression-compile-tmp/vax-pass1.imp" if (((PROGMODE) < (0))) goto L_0010; #line 611 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("program")); #line 611 "regression-compile-tmp/vax-pass1.imp" goto L_0011; #line 611 "regression-compile-tmp/vax-pass1.imp" L_0010:; #line 611 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("file")); #line 611 "regression-compile-tmp/vax-pass1.imp" L_0011:; // 612 %ELSE printstring("file") // 613 %FINISH #line 613 "regression-compile-tmp/vax-pass1.imp" L_000f:; // 614 printstring(" missing?"); ->more #line 614 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" missing?")); #line 614 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 615 reason(6):printstring("too many faults!"); ->more #line 615 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_6:; #line 615 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("too many faults!")); #line 615 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 616 reason(7):printstring("string constant too long"); ->more #line 616 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_7:; #line 616 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("string constant too long")); #line 616 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 617 reason(8):printstring("dictionary full"); -> more #line 617 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_8:; #line 617 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("dictionary full")); #line 617 "regression-compile-tmp/vax-pass1.imp" goto U_1000; // 618 reason(9): printstring("Included file ".include file." does not exist") #line 618 "regression-compile-tmp/vax-pass1.imp" sw1_REASON_9:; #line 618 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("Included file "),(_imp_string)INCLUDEFILE),(_imp_string)_imp_str_literal(" does not exist"))); // 619 more: newline #line 619 "regression-compile-tmp/vax-pass1.imp" U_1000:; #line 619 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 620 printstring("*** compilation abandoned ***"); newline #line 620 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("*** compilation abandoned ***")); #line 620 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 621 %EXIT %IF stream = report #line 621 "regression-compile-tmp/vax-pass1.imp" if (((STREAM) != (0))) goto L_0012; #line 621 "regression-compile-tmp/vax-pass1.imp" goto L_0008; #line 621 "regression-compile-tmp/vax-pass1.imp" L_0012:; // 622 close output #line 622 "regression-compile-tmp/vax-pass1.imp" _imp_CLOSEOUTPUT(); // 623 stream = report #line 623 "regression-compile-tmp/vax-pass1.imp" STREAM = 0; // 624 select output(report) #line 624 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTOUTPUT(0); // 625 %REPEAT #line 625 "regression-compile-tmp/vax-pass1.imp" goto L_0007; #line 625 "regression-compile-tmp/vax-pass1.imp" L_0008:; // 626 %monitor %IF diag&4096 # 0 #line 626 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (4096))) == (0))) goto L_0013; #line 626 "regression-compile-tmp/vax-pass1.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 626 "regression-compile-tmp/vax-pass1.imp" L_0013:; // 627 exit(16_1000002c) {1000002c is SS$_ABORT with the inhibit message bit set - could just use EXIT_FAILURE} #line 627 "regression-compile-tmp/vax-pass1.imp" exit(268435500); // 628 %END #line 628 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block ABANDON at level 2 // 629 // 630 %routine op(%integer code, param) #line 630 "regression-compile-tmp/vax-pass1.imp" void OP( int CODE, int PARAM ) #line 630 "regression-compile-tmp/vax-pass1.imp" { // 631 put(code); putword(param) #line 631 "regression-compile-tmp/vax-pass1.imp" PUT(CODE); #line 631 "regression-compile-tmp/vax-pass1.imp" PUTWORD(PARAM); // 632 %end #line 632 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block OP at level 2 // 633 %routine set const(%integer m) #line 633 "regression-compile-tmp/vax-pass1.imp" void SETCONST( int M ) #line 633 "regression-compile-tmp/vax-pass1.imp" { // 634 %integer v #line 634 "regression-compile-tmp/vax-pass1.imp" int V; // 635 v = m; v = -m %if v < 0 #line 635 "regression-compile-tmp/vax-pass1.imp" V = M; #line 635 "regression-compile-tmp/vax-pass1.imp" if (((V) >= (0))) goto L_0014; #line 635 "regression-compile-tmp/vax-pass1.imp" V = (-(M)); #line 635 "regression-compile-tmp/vax-pass1.imp" L_0014:; // 636 put('N'); putlong(v) #line 636 "regression-compile-tmp/vax-pass1.imp" PUT(78); #line 636 "regression-compile-tmp/vax-pass1.imp" PUTLONG(V); // 637 put('U') %if m < 0 #line 637 "regression-compile-tmp/vax-pass1.imp" if (((M) >= (0))) goto L_0015; #line 637 "regression-compile-tmp/vax-pass1.imp" PUT(85); #line 637 "regression-compile-tmp/vax-pass1.imp" L_0015:; // 638 %end #line 638 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETCONST at level 2 // 639 // 640 // 641 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id) #line 641 "regression-compile-tmp/vax-pass1.imp" void COMPILEBLOCK( int LEVEL, int BLOCKTAG, int DMIN, int TMAX, int ID ) #line 641 "regression-compile-tmp/vax-pass1.imp" { // 642 // 643 %INTEGERFNSPEC gapp #line 643 "regression-compile-tmp/vax-pass1.imp" auto int GAPP( void ); // 644 %ROUTINESPEC delete names(%INTEGER quiet) #line 644 "regression-compile-tmp/vax-pass1.imp" auto void DELETENAMES( int QUIET ); // 645 %ROUTINESPEC analyse #line 645 "regression-compile-tmp/vax-pass1.imp" auto void ANALYSE( void ); // 646 %ROUTINESPEC compile #line 646 "regression-compile-tmp/vax-pass1.imp" auto void COMPILE( void ); // 647 // 648 %INTEGER open; open = closed; !zero if can return from proc #line 648 "regression-compile-tmp/vax-pass1.imp" int OPEN; #line 648 "regression-compile-tmp/vax-pass1.imp" OPEN = 16384; // 649 %INTEGER dbase; dbase = dmax; !dictionary base #line 649 "regression-compile-tmp/vax-pass1.imp" int DBASE; #line 649 "regression-compile-tmp/vax-pass1.imp" DBASE = DMAX; // 650 %INTEGER tbase; tbase = tmax; !tag base #line 650 "regression-compile-tmp/vax-pass1.imp" int TBASE; #line 650 "regression-compile-tmp/vax-pass1.imp" TBASE = TMAX; // 651 %INTEGER tstart; tstart = tmax #line 651 "regression-compile-tmp/vax-pass1.imp" int TSTART; #line 651 "regression-compile-tmp/vax-pass1.imp" TSTART = TMAX; // 652 %INTEGER label; label = 4; !first internal label #line 652 "regression-compile-tmp/vax-pass1.imp" int LABEL; #line 652 "regression-compile-tmp/vax-pass1.imp" LABEL = 4; // 653 %INTEGER last array; last array = 0 #line 653 "regression-compile-tmp/vax-pass1.imp" int LASTARRAY; #line 653 "regression-compile-tmp/vax-pass1.imp" LASTARRAY = 0; // 654 %INTEGER access; access = 1; !non-zero if accessible #line 654 "regression-compile-tmp/vax-pass1.imp" int ACCESS; #line 654 "regression-compile-tmp/vax-pass1.imp" ACCESS = 1; // 655 %INTEGER inhibit; inhibit = 0; !non-zero inhibits declaratons #line 655 "regression-compile-tmp/vax-pass1.imp" int INHIBIT; #line 655 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 0; // 656 // 657 {GT:%SHORT}%INTEGERNAME bflags; bflags == tag(block tag)_flags #line 657 "regression-compile-tmp/vax-pass1.imp" int /*name*/*BFLAGS; #line 657 "regression-compile-tmp/vax-pass1.imp" BFLAGS = &TAG[BLOCKTAG].FLAGS; // 658 %INTEGER block type; block type = bflags>>4&7 #line 658 "regression-compile-tmp/vax-pass1.imp" int BLOCKTYPE; #line 658 "regression-compile-tmp/vax-pass1.imp" BLOCKTYPE = (((int)(((*(unsigned int *)(BFLAGS)) >> (4)))) & (7)); // 659 %INTEGER block form; block form = bflags&15 #line 659 "regression-compile-tmp/vax-pass1.imp" int BLOCKFORM; #line 659 "regression-compile-tmp/vax-pass1.imp" BLOCKFORM = ((*BFLAGS) & (15)); // 660 %INTEGER block fm; block fm = tag(block tag)_format #line 660 "regression-compile-tmp/vax-pass1.imp" int BLOCKFM; #line 660 "regression-compile-tmp/vax-pass1.imp" BLOCKFM = TAG[BLOCKTAG].FORMAT; // 661 %INTEGER block otype; block otype = otype #line 661 "regression-compile-tmp/vax-pass1.imp" int BLOCKOTYPE; #line 661 "regression-compile-tmp/vax-pass1.imp" BLOCKOTYPE = OTYPE; // 662 %INTEGERNAME block app; block app == tag(block tag)_app #line 662 "regression-compile-tmp/vax-pass1.imp" int /*name*/*BLOCKAPP; #line 662 "regression-compile-tmp/vax-pass1.imp" BLOCKAPP = &TAG[BLOCKTAG].APP; // 663 // 664 %INTEGER l, new app #line 664 "regression-compile-tmp/vax-pass1.imp" int L; #line 664 "regression-compile-tmp/vax-pass1.imp" int NEWAPP; // 665 // 666 %ROUTINE fault(%INTEGER n) #line 666 "regression-compile-tmp/vax-pass1.imp" void FAULT( int N ) #line 666 "regression-compile-tmp/vax-pass1.imp" { // 667 // 668 ! -5 : -1 - warnings // 669 ! 1 : 22 - errors // 670 // 671 %SWITCH fm(-5:22) #line 671 "regression-compile-tmp/vax-pass1.imp" static int sw2_FM_idx; static const void * /*SWITCH*/ sw2_FM[28] = { &&sw2_FM_M_5, &&sw2_FM_M_4, &&sw2_FM_M_3, &&sw2_FM_M_2, &&sw2_FM_M_1, &&sw2_FM_0, &&sw2_FM_1, &&sw2_FM_2, &&sw2_FM_3, &&sw2_FM_4, &&sw2_FM_5, &&sw2_FM_6, &&sw2_FM_7, &&sw2_FM_8, &&sw2_FM_9, &&sw2_FM_10, &&sw2_FM_11, &&sw2_FM_12, &&sw2_FM_13, &&sw2_FM_14, &&sw2_FM_15, &&sw2_FM_16, &&sw2_FM_17, &&sw2_FM_18, &&sw2_FM_19, &&sw2_FM_20, &&sw2_FM_21, &&sw2_FM_22, }; // 672 %INTEGER st #line 672 "regression-compile-tmp/vax-pass1.imp" int ST; // 673 // 674 %ROUTINE print ss #line 674 "regression-compile-tmp/vax-pass1.imp" void PRINTSS( void ) #line 674 "regression-compile-tmp/vax-pass1.imp" { // 675 %INTEGER s, p #line 675 "regression-compile-tmp/vax-pass1.imp" int S; #line 675 "regression-compile-tmp/vax-pass1.imp" int P; // 676 %RETURN %IF pos = 0 #line 676 "regression-compile-tmp/vax-pass1.imp" if (((POS) != (0))) goto L_0016; #line 676 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 676 "regression-compile-tmp/vax-pass1.imp" L_0016:; // 677 space #line 677 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 678 p = 1 #line 678 "regression-compile-tmp/vax-pass1.imp" P = 1; // 679 %CYCLE #line 679 "regression-compile-tmp/vax-pass1.imp" L_0017:; // 680 printsymbol(marker) %IF p = pos1 #line 680 "regression-compile-tmp/vax-pass1.imp" if (((P) != (POS1))) goto L_001a; #line 680 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(94); #line 680 "regression-compile-tmp/vax-pass1.imp" L_001a:; // 681 %EXIT %IF p = pos #line 681 "regression-compile-tmp/vax-pass1.imp" if (((P) != (POS))) goto L_001b; #line 681 "regression-compile-tmp/vax-pass1.imp" goto L_0018; #line 681 "regression-compile-tmp/vax-pass1.imp" L_001b:; // 682 s = char(margin+p); p = p+1 #line 682 "regression-compile-tmp/vax-pass1.imp" S = CHAR[(((int)(MARGIN)) + (P))]; #line 682 "regression-compile-tmp/vax-pass1.imp" P = (((int)(P)) + (1)); // 683 %EXIT %IF s = nl %OR (s='%' %AND p = pos) #line 683 "regression-compile-tmp/vax-pass1.imp" if (((S) == (10))) goto L_001c; #line 683 "regression-compile-tmp/vax-pass1.imp" if (((S) != (37))) goto L_001d; #line 683 "regression-compile-tmp/vax-pass1.imp" if (((P) != (POS))) goto L_001d; #line 683 "regression-compile-tmp/vax-pass1.imp" L_001c:; #line 683 "regression-compile-tmp/vax-pass1.imp" goto L_0018; #line 683 "regression-compile-tmp/vax-pass1.imp" L_001d:; // 684 %IF s < ' ' %START; !beware of tabs #line 684 "regression-compile-tmp/vax-pass1.imp" if (((S) >= (32))) goto L_001e; // 685 %IF s = ff %THEN s = nl %ELSE s = ' ' #line 685 "regression-compile-tmp/vax-pass1.imp" if (((S) != (12))) goto L_001f; #line 685 "regression-compile-tmp/vax-pass1.imp" S = 10; #line 685 "regression-compile-tmp/vax-pass1.imp" goto L_0020; #line 685 "regression-compile-tmp/vax-pass1.imp" L_001f:; #line 685 "regression-compile-tmp/vax-pass1.imp" S = 32; #line 685 "regression-compile-tmp/vax-pass1.imp" L_0020:; // 686 %FINISH #line 686 "regression-compile-tmp/vax-pass1.imp" L_001e:; // 687 printsymbol(s) #line 687 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(S); // 688 %REPEAT #line 688 "regression-compile-tmp/vax-pass1.imp" goto L_0017; #line 688 "regression-compile-tmp/vax-pass1.imp" L_0018:; // 689 pos = 0 %IF list <= 0 #line 689 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_0021; #line 689 "regression-compile-tmp/vax-pass1.imp" POS = 0; #line 689 "regression-compile-tmp/vax-pass1.imp" L_0021:; // 690 %END #line 690 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTSS at level 4 // 691 // 692 pos1 = pos2 %IF pos2 > pos1 #line 692 "regression-compile-tmp/vax-pass1.imp" if (((POS2) <= (POS1))) goto L_0022; #line 692 "regression-compile-tmp/vax-pass1.imp" POS1 = POS2; #line 692 "regression-compile-tmp/vax-pass1.imp" L_0022:; // 693 %if n >=0 %or command&warnbit # 0 %start #line 693 "regression-compile-tmp/vax-pass1.imp" if (((N) >= (0))) goto L_0019; #line 693 "regression-compile-tmp/vax-pass1.imp" if (((((COMMAND) & (128))) == (0))) goto L_0023; #line 693 "regression-compile-tmp/vax-pass1.imp" L_0019:; // 694 newline %IF sym # nl #line 694 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_0024; #line 694 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 694 "regression-compile-tmp/vax-pass1.imp" L_0024:; // 695 st = report #line 695 "regression-compile-tmp/vax-pass1.imp" ST = 0; // 696 st = listing %IF n = -3; !don't report unused on the console #line 696 "regression-compile-tmp/vax-pass1.imp" if (((N) != ((-3)))) goto L_0025; #line 696 "regression-compile-tmp/vax-pass1.imp" ST = 2; #line 696 "regression-compile-tmp/vax-pass1.imp" L_0025:; // 697 %cycle #line 697 "regression-compile-tmp/vax-pass1.imp" L_0026:; // 698 SELECT OUTPUT(st) #line 698 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTOUTPUT(ST); // 699 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') #line 699 "regression-compile-tmp/vax-pass1.imp" if (((N) >= (0))) goto L_0029; #line 699 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(63); #line 699 "regression-compile-tmp/vax-pass1.imp" POS1 = 0; #line 699 "regression-compile-tmp/vax-pass1.imp" goto L_002a; #line 699 "regression-compile-tmp/vax-pass1.imp" L_0029:; #line 699 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(42); #line 699 "regression-compile-tmp/vax-pass1.imp" L_002a:; // 700 %if st # report %start #line 700 "regression-compile-tmp/vax-pass1.imp" if (((ST) == (0))) goto L_002b; // 701 %if list <= 0 %and pos1 # 0 %start #line 701 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_002c; #line 701 "regression-compile-tmp/vax-pass1.imp" if (((POS1) == (0))) goto L_002c; // 702 spaces(pos1+margin); PRINTSTRING(" ! ") #line 702 "regression-compile-tmp/vax-pass1.imp" _imp_SPACES((((int)(POS1)) + (MARGIN))); #line 702 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" ! ")); // 703 %finish #line 703 "regression-compile-tmp/vax-pass1.imp" L_002c:; // 704 %finish %else %start #line 704 "regression-compile-tmp/vax-pass1.imp" goto L_002d; #line 704 "regression-compile-tmp/vax-pass1.imp" L_002b:; // 705 PRINTSTRING(include file) %if include # 0 #line 705 "regression-compile-tmp/vax-pass1.imp" if (((INCLUDE) == (0))) goto L_002e; #line 705 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(INCLUDEFILE); #line 705 "regression-compile-tmp/vax-pass1.imp" L_002e:; // 706 write(lines, 4); printsymbol(csym); space #line 706 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, 4); #line 706 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(CSYM); #line 706 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 707 %finish #line 707 "regression-compile-tmp/vax-pass1.imp" L_002d:; // 708 ->fm(n) %if -5 <= n <= 22 #line 708 "regression-compile-tmp/vax-pass1.imp" if (((((-5)) > (N))) || (((N) > (22)))) goto L_002f; #line 708 "regression-compile-tmp/vax-pass1.imp" sw2_FM_idx = N; if ((-5 <= sw2_FM_idx) && (sw2_FM_idx <= 22)) goto *(sw2_FM+5)[sw2_FM_idx]; /* Bounds=-5:22 */ else { /*_imp_signal(8, 2, sw2_FM_idx);*/ fprintf(stderr, "%%SWITCH index FM(%d) not in range -5:22 at %s:%d\n", sw2_FM_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 708 "regression-compile-tmp/vax-pass1.imp" L_002f:; // 709 PRINTSTRING("fault"); write(n, 2); ->ps #line 709 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("fault")); #line 709 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(N, 2); #line 709 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 710 fm(*):debug("* Switch label not set: fm(".itos(n,0).")"); %stop #line 710 "regression-compile-tmp/vax-pass1.imp" sw2_FM_default:; #line 710 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: fm("),(_imp_string)_imp_ITOS(N, 0)),(_imp_string)_imp_str_literal(")"))); #line 710 "regression-compile-tmp/vax-pass1.imp" exit(0); // 711 fm(-5):PRINTSTRING("Dubious statement"); dubious = 0; ->psd #line 711 "regression-compile-tmp/vax-pass1.imp" sw2_FM_M_5:; #line 711 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Dubious statement")); #line 711 "regression-compile-tmp/vax-pass1.imp" DUBIOUS = 0; #line 711 "regression-compile-tmp/vax-pass1.imp" goto U_1002; // 712 fm(-4):PRINTSTRING("Non-local") #line 712 "regression-compile-tmp/vax-pass1.imp" sw2_FM_M_4:; #line 712 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Non-local")); // 713 pos1 = for warn; for warn = 0; ->ps #line 713 "regression-compile-tmp/vax-pass1.imp" POS1 = FORWARN; #line 713 "regression-compile-tmp/vax-pass1.imp" FORWARN = 0; #line 713 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 714 fm(-3):print ident(x, 0); PRINTSTRING(" unused"); ->nps #line 714 "regression-compile-tmp/vax-pass1.imp" sw2_FM_M_3:; #line 714 "regression-compile-tmp/vax-pass1.imp" PRINTIDENT(X, 0); #line 714 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" unused")); #line 714 "regression-compile-tmp/vax-pass1.imp" goto U_1003; // 715 fm(-2):PRINTSTRING("""}"""); ->miss #line 715 "regression-compile-tmp/vax-pass1.imp" sw2_FM_M_2:; #line 715 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("\"}\"")); #line 715 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 716 fm(-1):PRINTSTRING("access"); ->psd #line 716 "regression-compile-tmp/vax-pass1.imp" sw2_FM_M_1:; #line 716 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("access")); #line 716 "regression-compile-tmp/vax-pass1.imp" goto U_1002; // 717 // 718 fm(0): PRINTSTRING("form"); ->ps #line 718 "regression-compile-tmp/vax-pass1.imp" sw2_FM_0:; #line 718 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("form")); #line 718 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 719 fm(1): PRINTSTRING("atom"); ->ps #line 719 "regression-compile-tmp/vax-pass1.imp" sw2_FM_1:; #line 719 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("atom")); #line 719 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 720 fm(2): PRINTSTRING("not declared"); ->ps #line 720 "regression-compile-tmp/vax-pass1.imp" sw2_FM_2:; #line 720 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("not declared")); #line 720 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 721 fm(3): PRINTSTRING("too complex"); ->ps #line 721 "regression-compile-tmp/vax-pass1.imp" sw2_FM_3:; #line 721 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("too complex")); #line 721 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 722 fm(4): PRINTSTRING("duplicate"); ->ps #line 722 "regression-compile-tmp/vax-pass1.imp" sw2_FM_4:; #line 722 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("duplicate")); #line 722 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 723 fm(5): PRINTSTRING("type"); ->ps #line 723 "regression-compile-tmp/vax-pass1.imp" sw2_FM_5:; #line 723 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("type")); #line 723 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 724 fm(6): PRINTSTRING("match"); ->psd #line 724 "regression-compile-tmp/vax-pass1.imp" sw2_FM_6:; #line 724 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("match")); #line 724 "regression-compile-tmp/vax-pass1.imp" goto U_1002; // 725 fm(7): PRINTSTRING("context"); ->psd #line 725 "regression-compile-tmp/vax-pass1.imp" sw2_FM_7:; #line 725 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("context")); #line 725 "regression-compile-tmp/vax-pass1.imp" goto U_1002; // 726 fm(21):PRINTSTRING("context "); print ident(this, 0); ->ps #line 726 "regression-compile-tmp/vax-pass1.imp" sw2_FM_21:; #line 726 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("context ")); #line 726 "regression-compile-tmp/vax-pass1.imp" PRINTIDENT(THIS, 0); #line 726 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 727 fm(8): PRINTSTRING("%cycle"); ->miss #line 727 "regression-compile-tmp/vax-pass1.imp" sw2_FM_8:; #line 727 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%cycle")); #line 727 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 728 fm(9): PRINTSTRING("%start"); ->miss #line 728 "regression-compile-tmp/vax-pass1.imp" sw2_FM_9:; #line 728 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%start")); #line 728 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 729 fm(10):PRINTSTRING("size"); WRITE(lit, 1) %if pos1 = 0;->ps #line 729 "regression-compile-tmp/vax-pass1.imp" sw2_FM_10:; #line 729 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("size")); #line 729 "regression-compile-tmp/vax-pass1.imp" if (((POS1) != (0))) goto L_0030; #line 729 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LIT, 1); #line 729 "regression-compile-tmp/vax-pass1.imp" L_0030:; #line 729 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 730 fm(11):PRINTSTRING("bounds") #line 730 "regression-compile-tmp/vax-pass1.imp" sw2_FM_11:; #line 730 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("bounds")); // 731 WRITE(ocount, 1) %unless ocount < 0; ->ps #line 731 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) < (0))) goto L_0031; #line 731 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(OCOUNT, 1); #line 731 "regression-compile-tmp/vax-pass1.imp" L_0031:; #line 731 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 732 fm(12):PRINTSTRING("index"); ->ps #line 732 "regression-compile-tmp/vax-pass1.imp" sw2_FM_12:; #line 732 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("index")); #line 732 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 733 fm(13):PRINTSTRING("order"); ->psd #line 733 "regression-compile-tmp/vax-pass1.imp" sw2_FM_13:; #line 733 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("order")); #line 733 "regression-compile-tmp/vax-pass1.imp" goto U_1002; // 734 fm(14):PRINTSTRING("not a location"); ->ps #line 734 "regression-compile-tmp/vax-pass1.imp" sw2_FM_14:; #line 734 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("not a location")); #line 734 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 735 fm(15):PRINTSTRING("%begin"); ->miss #line 735 "regression-compile-tmp/vax-pass1.imp" sw2_FM_15:; #line 735 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%begin")); #line 735 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 736 fm(16):PRINTSTRING("%end"); ->miss #line 736 "regression-compile-tmp/vax-pass1.imp" sw2_FM_16:; #line 736 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%end")); #line 736 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 737 fm(17):PRINTSTRING("%repeat"); ->miss #line 737 "regression-compile-tmp/vax-pass1.imp" sw2_FM_17:; #line 737 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%repeat")); #line 737 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 738 fm(18):PRINTSTRING("%finish"); ->miss #line 738 "regression-compile-tmp/vax-pass1.imp" sw2_FM_18:; #line 738 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("%finish")); #line 738 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 739 fm(19):PRINTSTRING("result"); ->miss #line 739 "regression-compile-tmp/vax-pass1.imp" sw2_FM_19:; #line 739 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("result")); #line 739 "regression-compile-tmp/vax-pass1.imp" goto U_1004; // 740 fm(22):PRINTSTRING("format"); ->ps #line 740 "regression-compile-tmp/vax-pass1.imp" sw2_FM_22:; #line 740 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("format")); #line 740 "regression-compile-tmp/vax-pass1.imp" goto U_1001; // 741 fm(20):printsymbol('"'); print ident(x, 0); printsymbol('"') #line 741 "regression-compile-tmp/vax-pass1.imp" sw2_FM_20:; #line 741 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(34); #line 741 "regression-compile-tmp/vax-pass1.imp" PRINTIDENT(X, 0); #line 741 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(34); // 742 miss: PRINTSTRING(" missing"); ->nps #line 742 "regression-compile-tmp/vax-pass1.imp" U_1004:; #line 742 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" missing")); #line 742 "regression-compile-tmp/vax-pass1.imp" goto U_1003; // 743 psd: pos1 = 0 #line 743 "regression-compile-tmp/vax-pass1.imp" U_1002:; #line 743 "regression-compile-tmp/vax-pass1.imp" POS1 = 0; // 744 ps: print ss #line 744 "regression-compile-tmp/vax-pass1.imp" U_1001:; #line 744 "regression-compile-tmp/vax-pass1.imp" PRINTSS(); // 745 nps: NEWLINE #line 745 "regression-compile-tmp/vax-pass1.imp" U_1003:; #line 745 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 746 %exit %if st = listing #line 746 "regression-compile-tmp/vax-pass1.imp" if (((ST) != (2))) goto L_0032; #line 746 "regression-compile-tmp/vax-pass1.imp" goto L_0027; #line 746 "regression-compile-tmp/vax-pass1.imp" L_0032:; // 747 st = listing #line 747 "regression-compile-tmp/vax-pass1.imp" ST = 2; // 748 %repeat #line 748 "regression-compile-tmp/vax-pass1.imp" goto L_0026; #line 748 "regression-compile-tmp/vax-pass1.imp" L_0027:; // 749 %finish #line 749 "regression-compile-tmp/vax-pass1.imp" L_0023:; // 750 %if n >= 0 %start #line 750 "regression-compile-tmp/vax-pass1.imp" if (((N) < (0))) goto L_0033; // 751 %monitor %if diag&4096 # 0 #line 751 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (4096))) == (0))) goto L_0034; #line 751 "regression-compile-tmp/vax-pass1.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 751 "regression-compile-tmp/vax-pass1.imp" L_0034:; // 752 %if n # 13 %start; !order is fairly safe #line 752 "regression-compile-tmp/vax-pass1.imp" if (((N) == (13))) goto L_0035; // 753 ocount = -1 #line 753 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (-1); // 754 gg = 0 #line 754 "regression-compile-tmp/vax-pass1.imp" GG = 0; // 755 copy = 0; quote = 0 #line 755 "regression-compile-tmp/vax-pass1.imp" COPY = 0; #line 755 "regression-compile-tmp/vax-pass1.imp" QUOTE = 0; // 756 search base = 0; escape class = 0 #line 756 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = 0; #line 756 "regression-compile-tmp/vax-pass1.imp" ESCAPECLASS = 0; // 757 gg = 0 #line 757 "regression-compile-tmp/vax-pass1.imp" GG = 0; // 758 %finish #line 758 "regression-compile-tmp/vax-pass1.imp" L_0035:; // 759 faulty = faulty+1 #line 759 "regression-compile-tmp/vax-pass1.imp" FAULTY = (((int)(FAULTY)) + (1)); // 760 // 761 !check that there haven't been too many faults // 762 // 763 fault rate = fault rate+3; abandon(6) %IF fault rate > 30 #line 763 "regression-compile-tmp/vax-pass1.imp" FAULTRATE = (((int)(FAULTRATE)) + (3)); #line 763 "regression-compile-tmp/vax-pass1.imp" if (((FAULTRATE) <= (30))) goto L_0036; #line 763 "regression-compile-tmp/vax-pass1.imp" ABANDON(6); #line 763 "regression-compile-tmp/vax-pass1.imp" L_0036:; // 764 fault rate = 3 %IF fault rate <= 0 #line 764 "regression-compile-tmp/vax-pass1.imp" if (((FAULTRATE) > (0))) goto L_0037; #line 764 "regression-compile-tmp/vax-pass1.imp" FAULTRATE = 3; #line 764 "regression-compile-tmp/vax-pass1.imp" L_0037:; // 765 %FINISH #line 765 "regression-compile-tmp/vax-pass1.imp" L_0033:; // 766 tbase = tstart #line 766 "regression-compile-tmp/vax-pass1.imp" TBASE = TSTART; // 767 %IF list <= 0 %AND sym # nl %START #line 767 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_0038; #line 767 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_0038; // 768 error margin = column #line 768 "regression-compile-tmp/vax-pass1.imp" ERRORMARGIN = COLUMN; // 769 error sym = sym; sym = nl #line 769 "regression-compile-tmp/vax-pass1.imp" ERRORSYM = SYM; #line 769 "regression-compile-tmp/vax-pass1.imp" SYM = 10; // 770 %FINISH #line 770 "regression-compile-tmp/vax-pass1.imp" L_0038:; // 771 %END #line 771 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 3 // 772 // 773 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles #line 773 "regression-compile-tmp/vax-pass1.imp" DMIN = (((int)(DMIN)) - (1)); #line 773 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(DMIN)) - (1))] = (-1); // 774 abandon(2) %IF dmax = dmin #line 774 "regression-compile-tmp/vax-pass1.imp" if (((DMAX) != (DMIN))) goto L_0039; #line 774 "regression-compile-tmp/vax-pass1.imp" ABANDON(2); #line 774 "regression-compile-tmp/vax-pass1.imp" L_0039:; // 775 // 776 %IF list > 0 %AND level > 0 %START #line 776 "regression-compile-tmp/vax-pass1.imp" if (((LIST) <= (0))) goto L_003a; #line 776 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) <= (0))) goto L_003a; // 777 write(lines, 5); spaces(level*3-1) #line 777 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, 5); #line 777 "regression-compile-tmp/vax-pass1.imp" _imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1))); // 778 %IF block tag = 0 %START #line 778 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKTAG) != (0))) goto L_003b; // 779 printstring("Begin") #line 779 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Begin")); // 780 %FINISH %ELSE %START #line 780 "regression-compile-tmp/vax-pass1.imp" goto L_003c; #line 780 "regression-compile-tmp/vax-pass1.imp" L_003b:; // 781 printstring("Procedure "); print ident(block tag, 0) #line 781 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Procedure ")); #line 781 "regression-compile-tmp/vax-pass1.imp" PRINTIDENT(BLOCKTAG, 0); // 782 %FINISH #line 782 "regression-compile-tmp/vax-pass1.imp" L_003c:; // 783 newline #line 783 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 784 %FINISH #line 784 "regression-compile-tmp/vax-pass1.imp" L_003a:; // 785 // 786 !deal with procedure definition (parameters) // 787 // 788 %IF block tag # 0 %START; !proc #line 788 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKTAG) == (0))) goto L_003d; // 789 analyse; compile %IF ss # 0 #line 789 "regression-compile-tmp/vax-pass1.imp" ANALYSE(); #line 789 "regression-compile-tmp/vax-pass1.imp" if (((SS) == (0))) goto L_003e; #line 789 "regression-compile-tmp/vax-pass1.imp" COMPILE(); #line 789 "regression-compile-tmp/vax-pass1.imp" L_003e:; // 790 // 791 %IF block otype # 0 %START; !external-ish #line 791 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKOTYPE) == (0))) goto L_003f; // 792 %IF bflags&spec = 0 %START; !definition #line 792 "regression-compile-tmp/vax-pass1.imp" if (((((*BFLAGS) & (128))) != (0))) goto L_0040; // 793 %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C #line 793 "regression-compile-tmp/vax-pass1.imp" if (((PROGMODE) > (0))) goto L_0041; #line 793 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) != (1))) goto L_0041; #line 793 "regression-compile-tmp/vax-pass1.imp" PROGMODE = (-1); #line 793 "regression-compile-tmp/vax-pass1.imp" goto L_0042; #line 793 "regression-compile-tmp/vax-pass1.imp" L_0041:; #line 793 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 793 "regression-compile-tmp/vax-pass1.imp" L_0042:; // 794 %ELSE fault(7) // 795 !!!!! %FINISH %ELSE %START; !external spec // 796 !!!!! bflags = bflags-spec; !definition elsewhere // 797 %FINISH #line 797 "regression-compile-tmp/vax-pass1.imp" L_0040:; // 798 %FINISH #line 798 "regression-compile-tmp/vax-pass1.imp" L_003f:; // 799 // 800 new app = gapp; !generate app grammar #line 800 "regression-compile-tmp/vax-pass1.imp" NEWAPP = GAPP(); // 801 %IF spec given # 0 %START; !definition after spec #line 801 "regression-compile-tmp/vax-pass1.imp" if (((SPECGIVEN) == (0))) goto L_0043; // 802 fault(6) %IF new app # block app; !different from spec #line 802 "regression-compile-tmp/vax-pass1.imp" if (((NEWAPP) == (*BLOCKAPP))) goto L_0044; #line 802 "regression-compile-tmp/vax-pass1.imp" FAULT(6); #line 802 "regression-compile-tmp/vax-pass1.imp" L_0044:; // 803 %FINISH #line 803 "regression-compile-tmp/vax-pass1.imp" L_0043:; // 804 block app = new app; !use the latest #line 804 "regression-compile-tmp/vax-pass1.imp" *BLOCKAPP = NEWAPP; // 805 // 806 %IF level < 0 %START; !not procedure definition #line 806 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) >= (0))) goto L_0045; // 807 delete names(0) #line 807 "regression-compile-tmp/vax-pass1.imp" DELETENAMES(0); // 808 %RETURN #line 808 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 809 %FINISH #line 809 "regression-compile-tmp/vax-pass1.imp" L_0045:; // 810 %FINISH %ELSE %START #line 810 "regression-compile-tmp/vax-pass1.imp" goto L_0046; #line 810 "regression-compile-tmp/vax-pass1.imp" L_003d:; // 811 open = 0; !can return from a block? #line 811 "regression-compile-tmp/vax-pass1.imp" OPEN = 0; // 812 %FINISH #line 812 "regression-compile-tmp/vax-pass1.imp" L_0046:; // 813 // 814 %CYCLE #line 814 "regression-compile-tmp/vax-pass1.imp" L_0047:; // 815 analyse #line 815 "regression-compile-tmp/vax-pass1.imp" ANALYSE(); // 816 %CONTINUE %IF ss = 0 #line 816 "regression-compile-tmp/vax-pass1.imp" if (((SS) != (0))) goto L_004a; #line 816 "regression-compile-tmp/vax-pass1.imp" goto L_0049; #line 816 "regression-compile-tmp/vax-pass1.imp" L_004a:; // 817 compile #line 817 "regression-compile-tmp/vax-pass1.imp" COMPILE(); // 818 fault(-5) %IF dubious # 0 #line 818 "regression-compile-tmp/vax-pass1.imp" if (((DUBIOUS) == (0))) goto L_004b; #line 818 "regression-compile-tmp/vax-pass1.imp" FAULT((-5)); #line 818 "regression-compile-tmp/vax-pass1.imp" L_004b:; // 819 %IF sstype > 0 %START; !block in or out #line 819 "regression-compile-tmp/vax-pass1.imp" if (((SSTYPE) <= (0))) goto L_004c; // 820 %EXIT %IF sstype = 2; !out #line 820 "regression-compile-tmp/vax-pass1.imp" if (((SSTYPE) != (2))) goto L_004d; #line 820 "regression-compile-tmp/vax-pass1.imp" goto L_0048; #line 820 "regression-compile-tmp/vax-pass1.imp" L_004d:; // 821 compile block(spec mode, block x, dmin, tmax, id) #line 821 "regression-compile-tmp/vax-pass1.imp" COMPILEBLOCK(SPECMODE, BLOCKX, DMIN, TMAX, ID); // 822 %EXIT %IF ss < 0; !endofprogram #line 822 "regression-compile-tmp/vax-pass1.imp" if (((SS) >= (0))) goto L_004e; #line 822 "regression-compile-tmp/vax-pass1.imp" goto L_0048; #line 822 "regression-compile-tmp/vax-pass1.imp" L_004e:; // 823 %FINISH #line 823 "regression-compile-tmp/vax-pass1.imp" L_004c:; // 824 %REPEAT #line 824 "regression-compile-tmp/vax-pass1.imp" L_0049:; #line 824 "regression-compile-tmp/vax-pass1.imp" goto L_0047; #line 824 "regression-compile-tmp/vax-pass1.imp" L_0048:; // 825 %IF list > 1 %AND level > 0 %START #line 825 "regression-compile-tmp/vax-pass1.imp" if (((LIST) <= (1))) goto L_004f; #line 825 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) <= (0))) goto L_004f; // 826 write(lines, 5); spaces(level*3-1) #line 826 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, 5); #line 826 "regression-compile-tmp/vax-pass1.imp" _imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1))); // 827 printstring("End") #line 827 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("End")); // 828 newline #line 828 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 829 %FINISH #line 829 "regression-compile-tmp/vax-pass1.imp" L_004f:; // 830 delete names(0) #line 830 "regression-compile-tmp/vax-pass1.imp" DELETENAMES(0); // 831 %RETURN #line 831 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 832 // 833 %INTEGERFN gapp; !generate app grammar (backwards) #line 833 "regression-compile-tmp/vax-pass1.imp" int GAPP( void ) #line 833 "regression-compile-tmp/vax-pass1.imp" { // 834 %CONSTINTEGER comma = 140; !psep // 835 %ROUTINESPEC set cell(%INTEGER g, tt) #line 835 "regression-compile-tmp/vax-pass1.imp" auto void SETCELL( int G, int TT ); // 836 %ROUTINESPEC class(%RECORD(tagfm)%NAME v); !imp77: #line 836 "regression-compile-tmp/vax-pass1.imp" auto void CLASS( TAGFM /*name*/*V ); // 837 %RECORD(tagfm)%NAME v; !imp77: #line 837 "regression-compile-tmp/vax-pass1.imp" TAGFM /*name*/*V; // 838 %INTEGER p, link, tp, c, ap, t #line 838 "regression-compile-tmp/vax-pass1.imp" int P; #line 838 "regression-compile-tmp/vax-pass1.imp" int LINK; #line 838 "regression-compile-tmp/vax-pass1.imp" int TP; #line 838 "regression-compile-tmp/vax-pass1.imp" int C; #line 838 "regression-compile-tmp/vax-pass1.imp" int AP; #line 838 "regression-compile-tmp/vax-pass1.imp" int T; // 839 // 840 %RESULT = 0 %IF tmax = local; !no app needed #line 840 "regression-compile-tmp/vax-pass1.imp" if (((TMAX) != (LOCAL))) goto L_0050; #line 840 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 840 "regression-compile-tmp/vax-pass1.imp" L_0050:; // 841 // 842 p = gmax1; link = 0; t = tmax #line 842 "regression-compile-tmp/vax-pass1.imp" P = 718; #line 842 "regression-compile-tmp/vax-pass1.imp" LINK = 0; #line 842 "regression-compile-tmp/vax-pass1.imp" T = TMAX; // 843 // 844 %CYCLE #line 844 "regression-compile-tmp/vax-pass1.imp" L_0051:; // 845 v == tag(t); t = t-1 #line 845 "regression-compile-tmp/vax-pass1.imp" V = &TAG[T]; #line 845 "regression-compile-tmp/vax-pass1.imp" T = (((int)(T)) - (1)); // 846 class(v); !deduce class from tag #line 846 "regression-compile-tmp/vax-pass1.imp" CLASS(V); // 847 %IF c < 0 %START; !insert %PARAM #line 847 "regression-compile-tmp/vax-pass1.imp" if (((C) >= (0))) goto L_0054; // 848 c = -c #line 848 "regression-compile-tmp/vax-pass1.imp" C = (-(C)); // 849 set cell(196, tp) #line 849 "regression-compile-tmp/vax-pass1.imp" SETCELL(196, TP); // 850 tp = -1 #line 850 "regression-compile-tmp/vax-pass1.imp" TP = (-1); // 851 %FINISH #line 851 "regression-compile-tmp/vax-pass1.imp" L_0054:; // 852 set cell(c, tp) #line 852 "regression-compile-tmp/vax-pass1.imp" SETCELL(C, TP); // 853 %EXIT %IF t = local; !end of parameters #line 853 "regression-compile-tmp/vax-pass1.imp" if (((T) != (LOCAL))) goto L_0055; #line 853 "regression-compile-tmp/vax-pass1.imp" goto L_0052; #line 853 "regression-compile-tmp/vax-pass1.imp" L_0055:; // 854 set cell(comma, -1); !add the separating comma #line 854 "regression-compile-tmp/vax-pass1.imp" SETCELL(140, (-1)); // 855 %REPEAT #line 855 "regression-compile-tmp/vax-pass1.imp" goto L_0051; #line 855 "regression-compile-tmp/vax-pass1.imp" L_0052:; // 856 abandon(3) %IF gmax > gmin #line 856 "regression-compile-tmp/vax-pass1.imp" if (((GMAX) <= (GMIN))) goto L_0056; #line 856 "regression-compile-tmp/vax-pass1.imp" ABANDON(3); #line 856 "regression-compile-tmp/vax-pass1.imp" L_0056:; // 857 // 858 %RESULT = link #line 858 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return LINK; // 859 // 860 %ROUTINE set cell(%INTEGER g, tt) #line 860 "regression-compile-tmp/vax-pass1.imp" void SETCELL( int G, int TT ) #line 860 "regression-compile-tmp/vax-pass1.imp" { // 861 // 862 !add the cell to the grammar, combining common tails // 863 // 864 %WHILE p # gmax %CYCLE #line 864 "regression-compile-tmp/vax-pass1.imp" L_0057:; #line 864 "regression-compile-tmp/vax-pass1.imp" if (((P) == (GMAX))) goto L_0058; // 865 p = p+1 #line 865 "regression-compile-tmp/vax-pass1.imp" P = (((int)(P)) + (1)); // 866 %IF glink(p) = link %AND gram(p) = g %START #line 866 "regression-compile-tmp/vax-pass1.imp" if (((GLINK[P]) != (LINK))) goto L_005a; #line 866 "regression-compile-tmp/vax-pass1.imp" if (((GRAM[P]) != (G))) goto L_005a; // 867 %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START #line 867 "regression-compile-tmp/vax-pass1.imp" if (((TT) < (0))) goto L_005b; #line 867 "regression-compile-tmp/vax-pass1.imp" if (((GRAM[(((int)(P)) + (1))]) != (TT))) goto L_005c; #line 867 "regression-compile-tmp/vax-pass1.imp" if (((GLINK[(((int)(P)) + (1))]) != (AP))) goto L_005c; #line 867 "regression-compile-tmp/vax-pass1.imp" L_005b:; // 868 link = p; !already there #line 868 "regression-compile-tmp/vax-pass1.imp" LINK = P; // 869 %RETURN #line 869 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 870 %FINISH #line 870 "regression-compile-tmp/vax-pass1.imp" L_005c:; // 871 %FINISH #line 871 "regression-compile-tmp/vax-pass1.imp" L_005a:; // 872 %REPEAT #line 872 "regression-compile-tmp/vax-pass1.imp" goto L_0057; #line 872 "regression-compile-tmp/vax-pass1.imp" L_0058:; // 873 // 874 !add a new cell // 875 // 876 gmax = gmax+1 #line 876 "regression-compile-tmp/vax-pass1.imp" GMAX = (((int)(GMAX)) + (1)); // 877 gram(gmax) = g #line 877 "regression-compile-tmp/vax-pass1.imp" GRAM[GMAX] = G; // 878 glink(gmax) = link #line 878 "regression-compile-tmp/vax-pass1.imp" GLINK[GMAX] = LINK; // 879 link = gmax #line 879 "regression-compile-tmp/vax-pass1.imp" LINK = GMAX; // 880 // 881 %IF tt >= 0 %START; ! set type cell #line 881 "regression-compile-tmp/vax-pass1.imp" if (((TT) < (0))) goto L_005d; // 882 gmax = gmax+1 #line 882 "regression-compile-tmp/vax-pass1.imp" GMAX = (((int)(GMAX)) + (1)); // 883 gram(gmax) = tt #line 883 "regression-compile-tmp/vax-pass1.imp" GRAM[GMAX] = TT; // 884 glink(gmax) = ap #line 884 "regression-compile-tmp/vax-pass1.imp" GLINK[GMAX] = AP; // 885 %FINISH #line 885 "regression-compile-tmp/vax-pass1.imp" L_005d:; // 886 // 887 p = gmax #line 887 "regression-compile-tmp/vax-pass1.imp" P = GMAX; // 888 %END #line 888 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETCELL at level 4 // 889 // 890 %ROUTINE class(%RECORD(tagfm)%NAME v); !imp77: #line 890 "regression-compile-tmp/vax-pass1.imp" void CLASS( TAGFM /*name*/*V ) #line 890 "regression-compile-tmp/vax-pass1.imp" { // 891 %CONSTINTEGER err = 89 // 892 %CONSTINTEGER rtp = 100 // 893 %CONSTINTEGER fnp = 101 // 894 %CONSTINTEGER mapp = 102 // 895 %CONSTINTEGER predp = 103 // 896 %CONSTINTEGERARRAY class map(0:15) = %C #line 896 "regression-compile-tmp/vax-pass1.imp" const int CLASSMAP[16] = { 89, 1764, 247, 89, 89, 89, 89, (-100), (-101), (-102), (-103), 89, 214, 89, 229, 89, }; // 897 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, // 898 err, 229, err // 899 %INTEGER tags, type, form #line 899 "regression-compile-tmp/vax-pass1.imp" int TAGS; #line 899 "regression-compile-tmp/vax-pass1.imp" int TYPE; #line 899 "regression-compile-tmp/vax-pass1.imp" int FORM; // 900 ap = 0 #line 900 "regression-compile-tmp/vax-pass1.imp" AP = 0; // 901 tags = v_flags #line 901 "regression-compile-tmp/vax-pass1.imp" TAGS = V->FLAGS; // 902 type = tags>>4&7; form = tags&15 #line 902 "regression-compile-tmp/vax-pass1.imp" TYPE = (((int)((((unsigned int)(TAGS)) >> (4)))) & (7)); #line 902 "regression-compile-tmp/vax-pass1.imp" FORM = ((TAGS) & (15)); // 903 tp = v_format<<3!type #line 903 "regression-compile-tmp/vax-pass1.imp" TP = ((((V->FORMAT) << (3))) | (TYPE)); // 904 c = class map(form) #line 904 "regression-compile-tmp/vax-pass1.imp" C = CLASSMAP[FORM]; // 905 c = 208 %AND tp = 0 %IF type = 0 %AND form = 2; !%NAME #line 905 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (0))) goto L_005e; #line 905 "regression-compile-tmp/vax-pass1.imp" if (((FORM) != (2))) goto L_005e; #line 905 "regression-compile-tmp/vax-pass1.imp" C = 208; #line 905 "regression-compile-tmp/vax-pass1.imp" TP = 0; #line 905 "regression-compile-tmp/vax-pass1.imp" L_005e:; // 906 ap = v_app %IF tags¶meters # 0 #line 906 "regression-compile-tmp/vax-pass1.imp" if (((((TAGS) & (4096))) == (0))) goto L_005f; #line 906 "regression-compile-tmp/vax-pass1.imp" AP = V->APP; #line 906 "regression-compile-tmp/vax-pass1.imp" L_005f:; // 907 %END #line 907 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLASS at level 4 // 908 %END #line 908 "regression-compile-tmp/vax-pass1.imp" /*_imp_signal(8, 4, 0, "");*/ fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block GAPP at level 3 // 909 // 910 %ROUTINE delete names(%INTEGER quiet) #line 910 "regression-compile-tmp/vax-pass1.imp" void DELETENAMES( int QUIET ) #line 910 "regression-compile-tmp/vax-pass1.imp" { // 911 %INTEGER flags #line 911 "regression-compile-tmp/vax-pass1.imp" int FLAGS; // 912 %RECORD(tagfm)%NAME tx; !imp77: #line 912 "regression-compile-tmp/vax-pass1.imp" TAGFM /*name*/*TX; // 913 %WHILE tmax > tbase %CYCLE #line 913 "regression-compile-tmp/vax-pass1.imp" L_0060:; #line 913 "regression-compile-tmp/vax-pass1.imp" if (((TMAX) <= (TBASE))) goto L_0061; // 914 x = tmax; tmax = tmax-1 #line 914 "regression-compile-tmp/vax-pass1.imp" X = TMAX; #line 914 "regression-compile-tmp/vax-pass1.imp" TMAX = (((int)(TMAX)) - (1)); // 915 tx == tag(x) #line 915 "regression-compile-tmp/vax-pass1.imp" TX = &TAG[X]; // 916 flags = tx_flags #line 916 "regression-compile-tmp/vax-pass1.imp" FLAGS = TX->FLAGS; // 917 fault(20) %IF flags&spec # 0 %and flags&own bit = 0 #line 917 "regression-compile-tmp/vax-pass1.imp" if (((((FLAGS) & (128))) == (0))) goto L_0063; #line 917 "regression-compile-tmp/vax-pass1.imp" if (((((FLAGS) & (512))) != (0))) goto L_0063; #line 917 "regression-compile-tmp/vax-pass1.imp" FAULT(20); #line 917 "regression-compile-tmp/vax-pass1.imp" L_0063:; // 918 {spec with no definition & not external} // 919 %IF flags&used bit = 0 %AND level > 0 %AND list <= 0 %START #line 919 "regression-compile-tmp/vax-pass1.imp" if (((((FLAGS) & (32768))) != (0))) goto L_0064; #line 919 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) <= (0))) goto L_0064; #line 919 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_0064; // 920 fault(-3) %IF quiet = 0; !unused #line 920 "regression-compile-tmp/vax-pass1.imp" if (((QUIET) != (0))) goto L_0065; #line 920 "regression-compile-tmp/vax-pass1.imp" FAULT((-3)); #line 920 "regression-compile-tmp/vax-pass1.imp" L_0065:; // 921 %FINISH #line 921 "regression-compile-tmp/vax-pass1.imp" L_0064:; // 922 dict(tx_text) = tx_link #line 922 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(TX->TEXT)) - (1))] = TX->LINK; // 923 %REPEAT #line 923 "regression-compile-tmp/vax-pass1.imp" goto L_0060; #line 923 "regression-compile-tmp/vax-pass1.imp" L_0061:; // 924 %END #line 924 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DELETENAMES at level 3 // 925 // 926 %ROUTINE analyse #line 926 "regression-compile-tmp/vax-pass1.imp" void ANALYSE( void ) #line 926 "regression-compile-tmp/vax-pass1.imp" { // 927 // 928 %CONSTINTEGER order bits = 16_3000, order bit = 16_1000 // 929 %CONSTINTEGER escape = 16_1000 // 930 %INTEGER strp, mark, flags, prot err, k, s, c #line 930 "regression-compile-tmp/vax-pass1.imp" int STRP; #line 930 "regression-compile-tmp/vax-pass1.imp" int MARK; #line 930 "regression-compile-tmp/vax-pass1.imp" int FLAGS; #line 930 "regression-compile-tmp/vax-pass1.imp" int PROTERR; #line 930 "regression-compile-tmp/vax-pass1.imp" int K; #line 930 "regression-compile-tmp/vax-pass1.imp" int S; #line 930 "regression-compile-tmp/vax-pass1.imp" int C; // 931 %OWNINTEGER key = 0 #line 931 "regression-compile-tmp/vax-pass1.imp" static int KEY = 0; // 932 {GT:%SHORT}%INTEGER node; !imp77: #line 932 "regression-compile-tmp/vax-pass1.imp" int NODE; // 933 {GT:%SHORT}%INTEGERNAME z; !imp77: #line 933 "regression-compile-tmp/vax-pass1.imp" int /*name*/*Z; // 934 %RECORD(arfm)%NAME arp; !imp77: #line 934 "regression-compile-tmp/vax-pass1.imp" ARFM /*name*/*ARP; // 935 %SWITCH act(actions:phrasal), paction(0:15) #line 935 "regression-compile-tmp/vax-pass1.imp" static int sw3_ACT_idx; static const void * /*SWITCH*/ sw3_ACT[21] = { &&sw3_ACT_180, &&sw3_ACT_181, &&sw3_ACT_182, &&sw3_ACT_183, &&sw3_ACT_184, &&sw3_ACT_185, &&sw3_ACT_186, &&sw3_ACT_187, &&sw3_ACT_188, &&sw3_ACT_189, &&sw3_ACT_190, &&sw3_ACT_191, &&sw3_ACT_192, &&sw3_ACT_193, &&sw3_ACT_194, &&sw3_ACT_195, &&sw3_ACT_196, &&sw3_ACT_197, &&sw3_ACT_198, &&sw3_ACT_199, &&sw3_ACT_200, }; #line 935 "regression-compile-tmp/vax-pass1.imp" static int sw4_PACTION_idx; static const void * /*SWITCH*/ sw4_PACTION[16] = { &&sw4_PACTION_0, &&sw4_PACTION_1, &&sw4_PACTION_2, &&sw4_PACTION_3, &&sw4_PACTION_4, &&sw4_PACTION_5, &&sw4_PACTION_6, &&sw4_PACTION_7, &&sw4_PACTION_8, &&sw4_PACTION_9, &&sw4_PACTION_10, &&sw4_PACTION_11, &&sw4_PACTION_12, &&sw4_PACTION_13, &&sw4_PACTION_14, &&sw4_PACTION_15, }; // 936 // 937 %ROUTINE trace analysis #line 937 "regression-compile-tmp/vax-pass1.imp" void TRACEANALYSIS( void ) #line 937 "regression-compile-tmp/vax-pass1.imp" { // 938 !diagnostic trace routine (diagnose&1 # 0) // 939 %INTEGER a #line 939 "regression-compile-tmp/vax-pass1.imp" int A; // 940 %ROUTINE show(%INTEGER a) #line 940 "regression-compile-tmp/vax-pass1.imp" void SHOW( int A ) #line 940 "regression-compile-tmp/vax-pass1.imp" { // 941 %IF 0 < a < 130 %START #line 941 "regression-compile-tmp/vax-pass1.imp" if ((((0) >= (A))) || (((A) >= (130)))) goto L_0066; // 942 space #line 942 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 943 printstring(text(a)) #line 943 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(TEXT[A]); // 944 %FINISH %ELSE write(a, 3) #line 944 "regression-compile-tmp/vax-pass1.imp" goto L_0067; #line 944 "regression-compile-tmp/vax-pass1.imp" L_0066:; #line 944 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(A, 3); #line 944 "regression-compile-tmp/vax-pass1.imp" L_0067:; // 945 %END #line 945 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SHOW at level 5 // 946 %OWNINTEGER la1=0, la2=0, lsa=0, lt=0 #line 946 "regression-compile-tmp/vax-pass1.imp" static int LA1 = 0; #line 946 "regression-compile-tmp/vax-pass1.imp" static int LA2 = 0; #line 946 "regression-compile-tmp/vax-pass1.imp" static int LSA = 0; #line 946 "regression-compile-tmp/vax-pass1.imp" static int LT = 0; // 947 newline %IF mon pos # pos %AND sym # nl #line 947 "regression-compile-tmp/vax-pass1.imp" if (((MONPOS) == (POS))) goto L_0068; #line 947 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_0068; #line 947 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 947 "regression-compile-tmp/vax-pass1.imp" L_0068:; // 948 mon pos = pos #line 948 "regression-compile-tmp/vax-pass1.imp" MONPOS = POS; // 949 write(g, 3) #line 949 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(G, 3); // 950 space #line 950 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 951 printstring(text(class)) #line 951 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(TEXT[CLASS]); // 952 printsymbol('"') %IF gg&trans bit # 0 #line 952 "regression-compile-tmp/vax-pass1.imp" if (((((GG) & (16384))) == (0))) goto L_0069; #line 952 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(34); #line 952 "regression-compile-tmp/vax-pass1.imp" L_0069:; // 953 a = gg>>8&15 #line 953 "regression-compile-tmp/vax-pass1.imp" A = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); // 954 %IF a # 0 %START #line 954 "regression-compile-tmp/vax-pass1.imp" if (((A) == (0))) goto L_006a; // 955 printsymbol('{') #line 955 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(123); // 956 write(a, 0) #line 956 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(A, 0); // 957 printsymbol('}') #line 957 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(125); // 958 %FINISH #line 958 "regression-compile-tmp/vax-pass1.imp" L_006a:; // 959 %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C #line 959 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (LA1))) goto L_0062; #line 959 "regression-compile-tmp/vax-pass1.imp" if (((ATOM2) != (LA2))) goto L_0062; #line 959 "regression-compile-tmp/vax-pass1.imp" if (((LSA) != (SUBATOM))) goto L_0062; #line 959 "regression-compile-tmp/vax-pass1.imp" if (((LT) == (TYPE))) goto L_006b; #line 959 "regression-compile-tmp/vax-pass1.imp" L_0062:; // 960 %OR lt # type %START // 961 printstring(" [") #line 961 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" [")); // 962 la1 = atom1 #line 962 "regression-compile-tmp/vax-pass1.imp" LA1 = ATOM1; // 963 show(la1) #line 963 "regression-compile-tmp/vax-pass1.imp" SHOW(LA1); // 964 la2 = atom2 #line 964 "regression-compile-tmp/vax-pass1.imp" LA2 = ATOM2; // 965 show(la2) #line 965 "regression-compile-tmp/vax-pass1.imp" SHOW(LA2); // 966 lsa = subatom #line 966 "regression-compile-tmp/vax-pass1.imp" LSA = SUBATOM; // 967 write(lsa, 3) #line 967 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LSA, 3); // 968 lt = type #line 968 "regression-compile-tmp/vax-pass1.imp" LT = TYPE; // 969 write(lt, 5) #line 969 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LT, 5); // 970 printsymbol(']') #line 970 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(93); // 971 %FINISH #line 971 "regression-compile-tmp/vax-pass1.imp" L_006b:; // 972 newline #line 972 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 973 %END #line 973 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TRACEANALYSIS at level 4 // 974 // 975 %ROUTINE read sym #line 975 "regression-compile-tmp/vax-pass1.imp" void READSYM( void ) #line 975 "regression-compile-tmp/vax-pass1.imp" { // 976 // 977 %routine get next source char #line 977 "regression-compile-tmp/vax-pass1.imp" void GETNEXTSOURCECHAR( void ) #line 977 "regression-compile-tmp/vax-pass1.imp" { // 978 %externalroutinespec readrecord(%integername len, %bytename b) #line 978 "regression-compile-tmp/vax-pass1.imp" extern void READRECORD( int /*name*/*LEN, unsigned char /*name*/*B ); // 979 %owninteger len=0 #line 979 "regression-compile-tmp/vax-pass1.imp" static int LEN = 0; // 980 %if sym = nl %start #line 980 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (10))) goto L_006c; // 981 current char == char(1) #line 981 "regression-compile-tmp/vax-pass1.imp" CURRENTCHAR = &CHAR[1]; // 982 readrecord (len, current char) ;! BUG??? readrecord reads from tanks but there are none to be read from in pass1. #line 982 "regression-compile-tmp/vax-pass1.imp" READRECORD(&LEN, CURRENTCHAR); // 983 len = len + 1 #line 983 "regression-compile-tmp/vax-pass1.imp" LEN = (((int)(LEN)) + (1)); // 984 char(len) = nl #line 984 "regression-compile-tmp/vax-pass1.imp" CHAR[LEN] = 10; // 985 pos = 0 #line 985 "regression-compile-tmp/vax-pass1.imp" POS = 0; // 986 column = 0; !??????????????????????????????????? #line 986 "regression-compile-tmp/vax-pass1.imp" COLUMN = 0; // 987 %finish #line 987 "regression-compile-tmp/vax-pass1.imp" L_006c:; // 988 pos = pos + 1 #line 988 "regression-compile-tmp/vax-pass1.imp" POS = (((int)(POS)) + (1)); // 989 sym = current char #line 989 "regression-compile-tmp/vax-pass1.imp" SYM = *CURRENTCHAR; // 990 !! current char == BYTEINTEGER(ADDR(current char)+1) ; !! WAS ++ 1 // 991 current char == current char++1 #line 991 "regression-compile-tmp/vax-pass1.imp" CURRENTCHAR = /*F_VOID*/((CURRENTCHAR) + (1)); // 992 printsymbol(sym) %if list <= 0 #line 992 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_006d; #line 992 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(SYM); #line 992 "regression-compile-tmp/vax-pass1.imp" L_006d:; // 993 column = column + 1 #line 993 "regression-compile-tmp/vax-pass1.imp" COLUMN = (((int)(COLUMN)) + (1)); // 994 %end #line 994 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GETNEXTSOURCECHAR at level 5 // 995 // 996 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C #line 996 "regression-compile-tmp/vax-pass1.imp" const unsigned char MAPPED[128] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 34, 35, 36, 1, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 2, 124, 125, 126, 0, }; // 997 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, nl, 0, 3 , 0, 0, 0, // 998 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 999 0 ,'!','"','#', '$', 1 ,'&', 39, '(',')','*','+', ',','-','.','/', // 1000 '0','1','2','3', '4','5','6','7', '8','9',':',';', '<','=','>','?', // 1001 '@','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', // 1002 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z','[', '\',']','^','_', // 1003 '`','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', // 1004 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z', 2 , '|','}','~', 0 // 1005 // 1006 !! 0 = space // 1007 !! 1 = % // 1008 !! 2 = { // 1009 !! 3 = ff // 1010 !! other values represent themselves // 1011 // 1012 %IF sym = nl %START #line 1012 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (10))) goto L_006e; // 1013 s1: lines = lines+1 #line 1013 "regression-compile-tmp/vax-pass1.imp" U_1005:; #line 1013 "regression-compile-tmp/vax-pass1.imp" LINES = (((int)(LINES)) + (1)); // 1014 printsymbol(end mark) %if end mark # 0 #line 1014 "regression-compile-tmp/vax-pass1.imp" if (((ENDMARK) == (0))) goto L_006f; #line 1014 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(ENDMARK); #line 1014 "regression-compile-tmp/vax-pass1.imp" L_006f:; // 1015 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 #line 1015 "regression-compile-tmp/vax-pass1.imp" U_1006:; #line 1015 "regression-compile-tmp/vax-pass1.imp" POS = 0; #line 1015 "regression-compile-tmp/vax-pass1.imp" POS1 = 0; #line 1015 "regression-compile-tmp/vax-pass1.imp" POS2 = 0; #line 1015 "regression-compile-tmp/vax-pass1.imp" MARGIN = 0; #line 1015 "regression-compile-tmp/vax-pass1.imp" COLUMN = 0; // 1016 end mark = 0 #line 1016 "regression-compile-tmp/vax-pass1.imp" ENDMARK = 0; // 1017 %IF list <= 0 %START #line 1017 "regression-compile-tmp/vax-pass1.imp" if (((LIST) > (0))) goto L_0070; // 1018 %IF include # 0 %START #line 1018 "regression-compile-tmp/vax-pass1.imp" if (((INCLUDE) == (0))) goto L_0071; // 1019 printstring(" &"); write(lines, -4) #line 1019 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" &")); #line 1019 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, (-4)); // 1020 %FINISH %ELSE write(lines, 5) #line 1020 "regression-compile-tmp/vax-pass1.imp" goto L_0072; #line 1020 "regression-compile-tmp/vax-pass1.imp" L_0071:; #line 1020 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(LINES, 5); #line 1020 "regression-compile-tmp/vax-pass1.imp" L_0072:; // 1021 csym = cont; printsymbol(csym) #line 1021 "regression-compile-tmp/vax-pass1.imp" CSYM = CONT; #line 1021 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(CSYM); // 1022 space #line 1022 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 1023 %IF error margin # 0 %START #line 1023 "regression-compile-tmp/vax-pass1.imp" if (((ERRORMARGIN) == (0))) goto L_0073; // 1024 lines = lines-1 #line 1024 "regression-compile-tmp/vax-pass1.imp" LINES = (((int)(LINES)) - (1)); // 1025 spaces(error margin) #line 1025 "regression-compile-tmp/vax-pass1.imp" _imp_SPACES(ERRORMARGIN); // 1026 error margin = 0 #line 1026 "regression-compile-tmp/vax-pass1.imp" ERRORMARGIN = 0; // 1027 %IF error sym # 0 %START #line 1027 "regression-compile-tmp/vax-pass1.imp" if (((ERRORSYM) == (0))) goto L_0074; // 1028 printsymbol(error sym) #line 1028 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSYMBOL(ERRORSYM); // 1029 pos = 1; char(1) = error sym #line 1029 "regression-compile-tmp/vax-pass1.imp" POS = 1; #line 1029 "regression-compile-tmp/vax-pass1.imp" CHAR[1] = ERRORSYM; // 1030 sym = error sym; error sym = 0 #line 1030 "regression-compile-tmp/vax-pass1.imp" SYM = ERRORSYM; #line 1030 "regression-compile-tmp/vax-pass1.imp" ERRORSYM = 0; // 1031 ->s5 #line 1031 "regression-compile-tmp/vax-pass1.imp" goto U_1007; // 1032 %FINISH #line 1032 "regression-compile-tmp/vax-pass1.imp" L_0074:; // 1033 %FINISH #line 1033 "regression-compile-tmp/vax-pass1.imp" L_0073:; // 1034 %FINISH #line 1034 "regression-compile-tmp/vax-pass1.imp" L_0070:; // 1035 s2: symtype = 1 #line 1035 "regression-compile-tmp/vax-pass1.imp" U_1008:; #line 1035 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = 1; // 1036 %FINISH #line 1036 "regression-compile-tmp/vax-pass1.imp" L_006e:; // 1037 s3:get next source char #line 1037 "regression-compile-tmp/vax-pass1.imp" U_1009:; #line 1037 "regression-compile-tmp/vax-pass1.imp" GETNEXTSOURCECHAR(); // 1038 s5:%IF sym # nl %START #line 1038 "regression-compile-tmp/vax-pass1.imp" U_1007:; #line 1038 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_0075; // 1039 %RETURN %IF quote # 0; !dont alter strings #line 1039 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) == (0))) goto L_0076; #line 1039 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1039 "regression-compile-tmp/vax-pass1.imp" L_0076:; // 1040 sym = mapped(sym&127) #line 1040 "regression-compile-tmp/vax-pass1.imp" SYM = MAPPED[((SYM) & (127))]; // 1041 %IF sym <= 3 %START; !special symbol #line 1041 "regression-compile-tmp/vax-pass1.imp" if (((SYM) > (3))) goto L_0077; // 1042 ->s2 %IF sym = 0; !space (or dubious control) #line 1042 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (0))) goto L_0078; #line 1042 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1042 "regression-compile-tmp/vax-pass1.imp" L_0078:; // 1043 symtype = 2 %AND ->s3 %IF sym = 1; !% #line 1043 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (1))) goto L_0079; #line 1043 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = 2; #line 1043 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1043 "regression-compile-tmp/vax-pass1.imp" L_0079:; // 1044 cont = '+' %AND ->s11 %IF sym = 3; !ff #line 1044 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (3))) goto L_007a; #line 1044 "regression-compile-tmp/vax-pass1.imp" CONT = 43; #line 1044 "regression-compile-tmp/vax-pass1.imp" goto U_1006; #line 1044 "regression-compile-tmp/vax-pass1.imp" L_007a:; // 1045 !must be { // 1046 %CYCLE #line 1046 "regression-compile-tmp/vax-pass1.imp" L_007b:; // 1047 get next source char #line 1047 "regression-compile-tmp/vax-pass1.imp" GETNEXTSOURCECHAR(); // 1048 ->s3 %IF sym = '}' #line 1048 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (125))) goto L_007e; #line 1048 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1048 "regression-compile-tmp/vax-pass1.imp" L_007e:; // 1049 ->s4 %IF sym = nl #line 1049 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (10))) goto L_007f; #line 1049 "regression-compile-tmp/vax-pass1.imp" goto U_100a; #line 1049 "regression-compile-tmp/vax-pass1.imp" L_007f:; // 1050 %REPEAT #line 1050 "regression-compile-tmp/vax-pass1.imp" goto L_007b; // 1051 %FINISH #line 1051 "regression-compile-tmp/vax-pass1.imp" L_0077:; // 1052 key = kdict(sym) #line 1052 "regression-compile-tmp/vax-pass1.imp" KEY = (KDICT-32)[SYM]; // 1053 %IF key&3 = 0 %AND symtype = 2 %START; !keyword #line 1053 "regression-compile-tmp/vax-pass1.imp" if (((((KEY) & (3))) != (0))) goto L_0080; #line 1053 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) != (2))) goto L_0080; // 1054 %IF sym = 'C' %AND current char = nl %START; !%C... #line 1054 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (67))) goto L_007c; #line 1054 "regression-compile-tmp/vax-pass1.imp" if (((*CURRENTCHAR) != (10))) goto L_007c; // 1055 get next source char; cont = '+'; ->s1 #line 1055 "regression-compile-tmp/vax-pass1.imp" GETNEXTSOURCECHAR(); #line 1055 "regression-compile-tmp/vax-pass1.imp" CONT = 43; #line 1055 "regression-compile-tmp/vax-pass1.imp" goto U_1005; // 1056 %FINISH #line 1056 "regression-compile-tmp/vax-pass1.imp" L_007c:; // 1057 %ELSE #line 1057 "regression-compile-tmp/vax-pass1.imp" goto L_0081; #line 1057 "regression-compile-tmp/vax-pass1.imp" L_0080:; // 1058 symtype = key&3-2 #line 1058 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = (((int)(((KEY) & (3)))) - (2)); // 1059 %FINISH #line 1059 "regression-compile-tmp/vax-pass1.imp" L_0081:; // 1060 %RETURN #line 1060 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1061 %FINISH #line 1061 "regression-compile-tmp/vax-pass1.imp" L_0075:; // 1062 s4:cont = '+' #line 1062 "regression-compile-tmp/vax-pass1.imp" U_100a:; #line 1062 "regression-compile-tmp/vax-pass1.imp" CONT = 43; // 1063 symtype = quote #line 1063 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = QUOTE; // 1064 %END #line 1064 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block READSYM at level 4 // 1065 // 1066 %INTEGERFN format selected #line 1066 "regression-compile-tmp/vax-pass1.imp" int FORMATSELECTED( void ) #line 1066 "regression-compile-tmp/vax-pass1.imp" { // 1067 format list = tag(format)_app; !number of names #line 1067 "regression-compile-tmp/vax-pass1.imp" FORMATLIST = TAG[FORMAT].APP; // 1068 %IF format list < 0 %START; !forward ref #line 1068 "regression-compile-tmp/vax-pass1.imp" if (((FORMATLIST) >= (0))) goto L_0082; // 1069 atom1 = error+22 #line 1069 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32790; // 1070 %RESULT = 0 #line 1070 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1071 %FINISH #line 1071 "regression-compile-tmp/vax-pass1.imp" L_0082:; // 1072 %IF sym = '_' %START #line 1072 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (95))) goto L_0083; // 1073 escape class = esc rec #line 1073 "regression-compile-tmp/vax-pass1.imp" ESCAPECLASS = 255; // 1074 search base = tag(format)_format #line 1074 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = TAG[FORMAT].FORMAT; // 1075 %FINISH #line 1075 "regression-compile-tmp/vax-pass1.imp" L_0083:; // 1076 %RESULT = 1 #line 1076 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1077 %END #line 1077 "regression-compile-tmp/vax-pass1.imp" } // End of block FORMATSELECTED at level 4 // 1078 // 1079 %ROUTINE code atom(%INTEGER target) #line 1079 "regression-compile-tmp/vax-pass1.imp" void CODEATOM( int TARGET ) #line 1079 "regression-compile-tmp/vax-pass1.imp" { // 1080 %INTEGER dbase, da #line 1080 "regression-compile-tmp/vax-pass1.imp" int DBASE; #line 1080 "regression-compile-tmp/vax-pass1.imp" int DA; // 1081 %INTEGER base, n, mul, pend quote #line 1081 "regression-compile-tmp/vax-pass1.imp" int BASE; #line 1081 "regression-compile-tmp/vax-pass1.imp" int N; #line 1081 "regression-compile-tmp/vax-pass1.imp" int MUL; #line 1081 "regression-compile-tmp/vax-pass1.imp" int PENDQUOTE; // 1082 %INTEGER j,k,l, pt #line 1082 "regression-compile-tmp/vax-pass1.imp" int J; #line 1082 "regression-compile-tmp/vax-pass1.imp" int K; #line 1082 "regression-compile-tmp/vax-pass1.imp" int L; #line 1082 "regression-compile-tmp/vax-pass1.imp" int PT; // 1083 // 1084 %ROUTINE lookup(%INTEGER d) #line 1084 "regression-compile-tmp/vax-pass1.imp" void LOOKUP( int D ) #line 1084 "regression-compile-tmp/vax-pass1.imp" { // 1085 %CONSTINTEGER magic = 6700421 // 1086 %INTEGER new name, vid, k1, k2, form #line 1086 "regression-compile-tmp/vax-pass1.imp" int NEWNAME; #line 1086 "regression-compile-tmp/vax-pass1.imp" int VID; #line 1086 "regression-compile-tmp/vax-pass1.imp" int K1; #line 1086 "regression-compile-tmp/vax-pass1.imp" int K2; #line 1086 "regression-compile-tmp/vax-pass1.imp" int FORM; // 1087 %RECORD(tagfm)%NAME t; !imp77: #line 1087 "regression-compile-tmp/vax-pass1.imp" TAGFM /*name*/*T; // 1088 %INTEGER new #line 1088 "regression-compile-tmp/vax-pass1.imp" int NEW; // 1089 // 1090 !first locate the text of the name // 1091 // 1092 new = addr(dict(dmax+1)) #line 1092 "regression-compile-tmp/vax-pass1.imp" NEW = _imp_ADDR(&DICT[(((int)((((int)(DMAX)) + (1)))) - (1))]); // 1093 // 1094 K2 = hash value*magic #line 1094 "regression-compile-tmp/vax-pass1.imp" K2 = (((int)(HASHVALUE)) * (6700421)); // 1095 // 1096 !******************************************************* // 1097 // 1098 k2 = k2>>(32-2*name bits)!1; !IMP77: #line 1098 "regression-compile-tmp/vax-pass1.imp" K2 = (((int)((((unsigned int)(K2)) >> (((32) - ((int)((((int)(2)) * (11))))))))) | (1)); // 1099 k1 = k2>>name bits; !giving name bits #line 1099 "regression-compile-tmp/vax-pass1.imp" K1 = (int)((((unsigned int)(K2)) >> (11))); // 1100 %CYCLE #line 1100 "regression-compile-tmp/vax-pass1.imp" L_0084:; // 1101 newname = hash(k1) #line 1101 "regression-compile-tmp/vax-pass1.imp" NEWNAME = HASH[K1]; // 1102 %EXIT %IF newname = 0; !not in #line 1102 "regression-compile-tmp/vax-pass1.imp" if (((NEWNAME) != (0))) goto L_0087; #line 1102 "regression-compile-tmp/vax-pass1.imp" goto L_0085; #line 1102 "regression-compile-tmp/vax-pass1.imp" L_0087:; // 1103 ->in %IF string(addr(dict(newname+1))) = string(new) #line 1103 "regression-compile-tmp/vax-pass1.imp" if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&DICT[(((int)((((int)(NEWNAME)) + (1)))) - (1))])), *_imp_STRING(NEW)) != 0)) goto L_0088; #line 1103 "regression-compile-tmp/vax-pass1.imp" goto U_100b; #line 1103 "regression-compile-tmp/vax-pass1.imp" L_0088:; // 1104 k1 = (k1+k2)&max names #line 1104 "regression-compile-tmp/vax-pass1.imp" K1 = (((((int)(K1)) + (K2))) & (2047)); // 1105 %REPEAT #line 1105 "regression-compile-tmp/vax-pass1.imp" goto L_0084; #line 1105 "regression-compile-tmp/vax-pass1.imp" L_0085:; // 1106 // 1107 ! not found // 1108 // 1109 spare names = spare names-1 #line 1109 "regression-compile-tmp/vax-pass1.imp" SPARENAMES = (((int)(SPARENAMES)) - (1)); // 1110 abandon(2) %IF spare names <= 0 #line 1110 "regression-compile-tmp/vax-pass1.imp" if (((SPARENAMES) > (0))) goto L_0089; #line 1110 "regression-compile-tmp/vax-pass1.imp" ABANDON(2); #line 1110 "regression-compile-tmp/vax-pass1.imp" L_0089:; // 1111 hash(k1) = dmax; !put it in #line 1111 "regression-compile-tmp/vax-pass1.imp" HASH[K1] = DMAX; // 1112 dict(dmax) = -1 #line 1112 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(DMAX)) - (1))] = (-1); // 1113 newname = dmax; dmax = dp; ->not in #line 1113 "regression-compile-tmp/vax-pass1.imp" NEWNAME = DMAX; #line 1113 "regression-compile-tmp/vax-pass1.imp" DMAX = DP; #line 1113 "regression-compile-tmp/vax-pass1.imp" goto U_100c; // 1114 // 1115 in: search base = rbase %IF this >= 0 %AND d # 0; !record elem defn #line 1115 "regression-compile-tmp/vax-pass1.imp" U_100b:; #line 1115 "regression-compile-tmp/vax-pass1.imp" if (((THIS) < (0))) goto L_008a; #line 1115 "regression-compile-tmp/vax-pass1.imp" if (((D) == (0))) goto L_008a; #line 1115 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = RBASE; #line 1115 "regression-compile-tmp/vax-pass1.imp" L_008a:; // 1116 %IF search base # 0 %START; !record subname #line 1116 "regression-compile-tmp/vax-pass1.imp" if (((SEARCHBASE) == (0))) goto L_008b; // 1117 new = -1 #line 1117 "regression-compile-tmp/vax-pass1.imp" NEW = (-1); // 1118 x = search base #line 1118 "regression-compile-tmp/vax-pass1.imp" X = SEARCHBASE; // 1119 %CYCLE #line 1119 "regression-compile-tmp/vax-pass1.imp" L_008c:; // 1120 ->not in %IF x < format list #line 1120 "regression-compile-tmp/vax-pass1.imp" if (((X) >= (FORMATLIST))) goto L_008f; #line 1120 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1120 "regression-compile-tmp/vax-pass1.imp" L_008f:; // 1121 %EXIT %IF tag(x)_text = new name #line 1121 "regression-compile-tmp/vax-pass1.imp" if (((TAG[X].TEXT) != (NEWNAME))) goto L_0090; #line 1121 "regression-compile-tmp/vax-pass1.imp" goto L_008d; #line 1121 "regression-compile-tmp/vax-pass1.imp" L_0090:; // 1122 x = x-1 #line 1122 "regression-compile-tmp/vax-pass1.imp" X = (((int)(X)) - (1)); // 1123 %REPEAT #line 1123 "regression-compile-tmp/vax-pass1.imp" goto L_008c; #line 1123 "regression-compile-tmp/vax-pass1.imp" L_008d:; // 1124 %FINISH %ELSE %START; !hash in for normal names #line 1124 "regression-compile-tmp/vax-pass1.imp" goto L_0091; #line 1124 "regression-compile-tmp/vax-pass1.imp" L_008b:; // 1125 x = dict(newname) #line 1125 "regression-compile-tmp/vax-pass1.imp" X = DICT[(((int)(NEWNAME)) - (1))]; // 1126 ->not in %IF x <= limit; !wrong level #line 1126 "regression-compile-tmp/vax-pass1.imp" if (((X) > (LIMIT))) goto L_0092; #line 1126 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1126 "regression-compile-tmp/vax-pass1.imp" L_0092:; // 1127 %FINISH #line 1127 "regression-compile-tmp/vax-pass1.imp" L_0091:; // 1128 // 1129 subatom = x; !name found, extract info #line 1129 "regression-compile-tmp/vax-pass1.imp" SUBATOM = X; // 1130 t == tag(x) #line 1130 "regression-compile-tmp/vax-pass1.imp" T = &TAG[X]; // 1131 atom flags = t_flags #line 1131 "regression-compile-tmp/vax-pass1.imp" ATOMFLAGS = T->FLAGS; // 1132 format = t_format; app = t_app #line 1132 "regression-compile-tmp/vax-pass1.imp" FORMAT = T->FORMAT; #line 1132 "regression-compile-tmp/vax-pass1.imp" APP = T->APP; // 1133 protection = atom flags&prot #line 1133 "regression-compile-tmp/vax-pass1.imp" PROTECTION = ((ATOMFLAGS) & (256)); // 1134 type = atom flags>>4&7; atom1 = amap(atom flags&15) #line 1134 "regression-compile-tmp/vax-pass1.imp" TYPE = (((int)((((unsigned int)(ATOMFLAGS)) >> (4)))) & (7)); #line 1134 "regression-compile-tmp/vax-pass1.imp" ATOM1 = AMAP[((ATOMFLAGS) & (15))]; // 1135 // 1136 %IF diag&8 # 0 %START #line 1136 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (8))) == (0))) goto L_0093; // 1137 printstring("lookup:") #line 1137 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("lookup:")); // 1138 write(atom1, 3) #line 1138 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(ATOM1, 3); // 1139 write(type, 1) #line 1139 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(TYPE, 1); // 1140 write(app, 3) #line 1140 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(APP, 3); // 1141 write(format, 5) #line 1141 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(FORMAT, 5); // 1142 write(atom flags, 3) #line 1142 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(ATOMFLAGS, 3); // 1143 newline #line 1143 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 1144 %FINISH #line 1144 "regression-compile-tmp/vax-pass1.imp" L_0093:; // 1145 // 1146 %IF d = 0 %START; !old name wanted #line 1146 "regression-compile-tmp/vax-pass1.imp" if (((D) != (0))) goto L_0094; // 1147 t_flags <- t_flags!used bit #line 1147 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = ((T->FLAGS) | (32768)); // 1148 search base = 0 #line 1148 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = 0; // 1149 // 1150 %IF atom flags&subname # 0 %AND format # 0 %START; !a record #line 1150 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (2048))) == (0))) goto L_0095; #line 1150 "regression-compile-tmp/vax-pass1.imp" if (((FORMAT) == (0))) goto L_0095; // 1151 %RETURN %IF format selected = 0 #line 1151 "regression-compile-tmp/vax-pass1.imp" if (((FORMATSELECTED()) != (0))) goto L_0096; #line 1151 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1151 "regression-compile-tmp/vax-pass1.imp" L_0096:; // 1152 %FINISH #line 1152 "regression-compile-tmp/vax-pass1.imp" L_0095:; // 1153 // 1154 %IF atom flags¶meters # 0 %START; !proc or array #line 1154 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (4096))) == (0))) goto L_0097; // 1155 // 1156 %IF app = 0 %START; !no parameters needed #line 1156 "regression-compile-tmp/vax-pass1.imp" if (((APP) != (0))) goto L_0098; // 1157 atom2 = atom1 #line 1157 "regression-compile-tmp/vax-pass1.imp" ATOM2 = ATOM1; // 1158 atom1 = atom1-4 #line 1158 "regression-compile-tmp/vax-pass1.imp" ATOM1 = (((int)(ATOM1)) - (4)); // 1159 %IF 97 <= atom1 <= 98 %START #line 1159 "regression-compile-tmp/vax-pass1.imp" if ((((97) > (ATOM1))) || (((ATOM1) > (98)))) goto L_0099; // 1160 map gg = atom1; atom1 = var #line 1160 "regression-compile-tmp/vax-pass1.imp" MAPGG = ATOM1; #line 1160 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 91; // 1161 %FINISH #line 1161 "regression-compile-tmp/vax-pass1.imp" L_0099:; // 1162 %FINISH %ELSE %START #line 1162 "regression-compile-tmp/vax-pass1.imp" goto L_009a; #line 1162 "regression-compile-tmp/vax-pass1.imp" L_0098:; // 1163 %IF sym = '(' %START #line 1163 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (40))) goto L_009b; // 1164 search base = 0; !ignore format for now #line 1164 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = 0; // 1165 %IF atom1 >= 106 %START; !arrays #line 1165 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) < (106))) goto L_009c; // 1166 app = phrase(app+200) #line 1166 "regression-compile-tmp/vax-pass1.imp" APP = (PHRASE-200)[(((int)(APP)) + (200))]; // 1167 escape class = esc array #line 1167 "regression-compile-tmp/vax-pass1.imp" ESCAPECLASS = 254; // 1168 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n #line 1168 "regression-compile-tmp/vax-pass1.imp" ATOM1 = (((int)((((((((int)(ATOM1)) - (106)))) >> (1))))) + (91)); // 1169 %FINISH %ELSE %START; !procedures #line 1169 "regression-compile-tmp/vax-pass1.imp" goto L_009d; #line 1169 "regression-compile-tmp/vax-pass1.imp" L_009c:; // 1170 escape class = esc proc #line 1170 "regression-compile-tmp/vax-pass1.imp" ESCAPECLASS = 253; // 1171 atom1 = atom1-4 #line 1171 "regression-compile-tmp/vax-pass1.imp" ATOM1 = (((int)(ATOM1)) - (4)); // 1172 %FINISH #line 1172 "regression-compile-tmp/vax-pass1.imp" L_009d:; // 1173 phrase(200) = app #line 1173 "regression-compile-tmp/vax-pass1.imp" (PHRASE-200)[200] = APP; // 1174 %FINISH #line 1174 "regression-compile-tmp/vax-pass1.imp" L_009b:; // 1175 %FINISH #line 1175 "regression-compile-tmp/vax-pass1.imp" L_009a:; // 1176 pos2 = pos; %return #line 1176 "regression-compile-tmp/vax-pass1.imp" POS2 = POS; #line 1176 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1177 %FINISH #line 1177 "regression-compile-tmp/vax-pass1.imp" L_0097:; // 1178 // 1179 !deal with constintegers etc // 1180 // 1181 %IF atom flags&const bit # 0 %AND atom1 = var %START #line 1181 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (8192))) == (0))) goto L_009e; #line 1181 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (91))) goto L_009e; // 1182 map gg = const; atom2 = const #line 1182 "regression-compile-tmp/vax-pass1.imp" MAPGG = 93; #line 1182 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 93; // 1183 subatom = -subatom %IF type = integer #line 1183 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (1))) goto L_009f; #line 1183 "regression-compile-tmp/vax-pass1.imp" SUBATOM = (-(SUBATOM)); #line 1183 "regression-compile-tmp/vax-pass1.imp" L_009f:; // 1184 %FINISH #line 1184 "regression-compile-tmp/vax-pass1.imp" L_009e:; // 1185 %RETURN #line 1185 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1186 // 1187 %FINISH #line 1187 "regression-compile-tmp/vax-pass1.imp" L_0094:; // 1188 !new name wanted // 1189 ->not in %IF tbase # tstart; !dont fault proc parm-parm #line 1189 "regression-compile-tmp/vax-pass1.imp" if (((TBASE) == (TSTART))) goto L_00a0; #line 1189 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1189 "regression-compile-tmp/vax-pass1.imp" L_00a0:; // 1190 %IF d = lab+spec+used bit %START #line 1190 "regression-compile-tmp/vax-pass1.imp" if (((D) != (32899))) goto L_00a1; // 1191 t_flags = t_flags!used bit #line 1191 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = ((T->FLAGS) | (32768)); // 1192 %RETURN #line 1192 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1193 %FINISH #line 1193 "regression-compile-tmp/vax-pass1.imp" L_00a1:; // 1194 %IF atom flags&spec # 0 %START; !a spec has been given #line 1194 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (128))) == (0))) goto L_00a2; // 1195 %IF d = lab %START; !define label #line 1195 "regression-compile-tmp/vax-pass1.imp" if (((D) != (3))) goto L_00a3; // 1196 t_flags <- lab!used bit #line 1196 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = ((3) | (32768)); // 1197 %RETURN #line 1197 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1198 %FINISH #line 1198 "regression-compile-tmp/vax-pass1.imp" L_00a3:; // 1199 %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START #line 1199 "regression-compile-tmp/vax-pass1.imp" if ((((7) > (((DECL) & (15))))) || (((((DECL) & (15))) > (10)))) goto L_00a4; #line 1199 "regression-compile-tmp/vax-pass1.imp" if (((((DECL) & (128))) != (0))) goto L_00a4; // 1200 // 1201 !procedure definition after spec // 1202 // 1203 %IF (decl!!atom flags)&2_1111111 = 0 %START; !correct type? #line 1203 "regression-compile-tmp/vax-pass1.imp" if (((((((DECL) ^ (ATOMFLAGS))) & (127))) != (0))) goto L_00a5; // 1204 t_flags = t_flags-spec #line 1204 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = (((int)(T->FLAGS)) - (128)); // 1205 spec given = 1 #line 1205 "regression-compile-tmp/vax-pass1.imp" SPECGIVEN = 1; // 1206 %RETURN #line 1206 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1207 %FINISH #line 1207 "regression-compile-tmp/vax-pass1.imp" L_00a5:; // 1208 // 1209 !note that an external procedure must be speced as a // 1210 !non-external procedure. // 1211 // 1212 %FINISH #line 1212 "regression-compile-tmp/vax-pass1.imp" L_00a4:; // 1213 %IF decl&15 = recfm %START; !recordformat #line 1213 "regression-compile-tmp/vax-pass1.imp" if (((((DECL) & (15))) != (4))) goto L_00a6; // 1214 t_flags = record<<4+recfm #line 1214 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = (((int)(((4) << (4)))) + (4)); // 1215 t_format = fdef #line 1215 "regression-compile-tmp/vax-pass1.imp" T->FORMAT = FDEF; // 1216 %RETURN #line 1216 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1217 %FINISH #line 1217 "regression-compile-tmp/vax-pass1.imp" L_00a6:; // 1218 %FINISH #line 1218 "regression-compile-tmp/vax-pass1.imp" L_00a2:; // 1219 %RETURN %IF last1 = jump %AND atom1 = swit #line 1219 "regression-compile-tmp/vax-pass1.imp" if (((LAST1) != (54))) goto L_00a7; #line 1219 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (105))) goto L_00a7; #line 1219 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1219 "regression-compile-tmp/vax-pass1.imp" L_00a7:; // 1220 copy = pos1 %IF copy = 0 #line 1220 "regression-compile-tmp/vax-pass1.imp" if (((COPY) != (0))) goto L_00a8; #line 1220 "regression-compile-tmp/vax-pass1.imp" COPY = POS1; #line 1220 "regression-compile-tmp/vax-pass1.imp" L_00a8:; // 1221 // 1222 notin:app = 0; vid = 0 #line 1222 "regression-compile-tmp/vax-pass1.imp" U_100c:; #line 1222 "regression-compile-tmp/vax-pass1.imp" APP = 0; #line 1222 "regression-compile-tmp/vax-pass1.imp" VID = 0; // 1223 atom1 = error+2 #line 1223 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32770; // 1224 // 1225 %return %if d = 0; !old name wanted #line 1225 "regression-compile-tmp/vax-pass1.imp" if (((D) != (0))) goto L_00a9; #line 1225 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1225 "regression-compile-tmp/vax-pass1.imp" L_00a9:; // 1226 type = d>>4&7; form = d&15; atom1 = amap(form) #line 1226 "regression-compile-tmp/vax-pass1.imp" TYPE = (((int)((((unsigned int)(D)) >> (4)))) & (7)); #line 1226 "regression-compile-tmp/vax-pass1.imp" FORM = ((D) & (15)); #line 1226 "regression-compile-tmp/vax-pass1.imp" ATOM1 = AMAP[FORM]; // 1227 // 1228 %IF this < 0 %START; !normal scope #line 1228 "regression-compile-tmp/vax-pass1.imp" if (((THIS) >= (0))) goto L_00aa; // 1229 new = newname #line 1229 "regression-compile-tmp/vax-pass1.imp" NEW = NEWNAME; // 1230 tmax = tmax+1; x = tmax #line 1230 "regression-compile-tmp/vax-pass1.imp" TMAX = (((int)(TMAX)) + (1)); #line 1230 "regression-compile-tmp/vax-pass1.imp" X = TMAX; // 1231 %FINISH %ELSE %START; !recordformat scope #line 1231 "regression-compile-tmp/vax-pass1.imp" goto L_00ab; #line 1231 "regression-compile-tmp/vax-pass1.imp" L_00aa:; // 1232 new = -1 #line 1232 "regression-compile-tmp/vax-pass1.imp" NEW = (-1); // 1233 recid = recid-1; vid = recid #line 1233 "regression-compile-tmp/vax-pass1.imp" RECID = (((int)(RECID)) - (1)); #line 1233 "regression-compile-tmp/vax-pass1.imp" VID = RECID; // 1234 tmin = tmin-1; x = tmin #line 1234 "regression-compile-tmp/vax-pass1.imp" TMIN = (((int)(TMIN)) - (1)); #line 1234 "regression-compile-tmp/vax-pass1.imp" X = TMIN; // 1235 format list = tmin #line 1235 "regression-compile-tmp/vax-pass1.imp" FORMATLIST = TMIN; // 1236 %FINISH #line 1236 "regression-compile-tmp/vax-pass1.imp" L_00ab:; // 1237 // 1238 %IF 11 <= form <= 14 %START; !arrays #line 1238 "regression-compile-tmp/vax-pass1.imp" if ((((11) > (FORM))) || (((FORM) > (14)))) goto L_00ac; // 1239 dim = 1 %IF dim = 0; !set dim for owns #line 1239 "regression-compile-tmp/vax-pass1.imp" if (((DIM) != (0))) goto L_00ad; #line 1239 "regression-compile-tmp/vax-pass1.imp" DIM = 1; #line 1239 "regression-compile-tmp/vax-pass1.imp" L_00ad:; // 1240 app = dim #line 1240 "regression-compile-tmp/vax-pass1.imp" APP = DIM; // 1241 %FINISH #line 1241 "regression-compile-tmp/vax-pass1.imp" L_00ac:; // 1242 // 1243 d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0 #line 1243 "regression-compile-tmp/vax-pass1.imp" if (((OTYPE) <= (2))) goto L_00ae; #line 1243 "regression-compile-tmp/vax-pass1.imp" if (((((D) & (128))) == (0))) goto L_0086; #line 1243 "regression-compile-tmp/vax-pass1.imp" L_00ae:; #line 1243 "regression-compile-tmp/vax-pass1.imp" if (((PERM) == (0))) goto L_00af; #line 1243 "regression-compile-tmp/vax-pass1.imp" L_0086:; #line 1243 "regression-compile-tmp/vax-pass1.imp" D = ((D) | (32768)); #line 1243 "regression-compile-tmp/vax-pass1.imp" L_00af:; // 1244 // 1245 !external definitions need not be used in the file in which // 1246 !they are defined, so inhibit a useless unused warning. // 1247 // 1248 t == tag(x) #line 1248 "regression-compile-tmp/vax-pass1.imp" T = &TAG[X]; // 1249 %IF form = lab %START #line 1249 "regression-compile-tmp/vax-pass1.imp" if (((FORM) != (3))) goto L_00b0; // 1250 id = id+1; vid = id #line 1250 "regression-compile-tmp/vax-pass1.imp" ID = (((int)(ID)) + (1)); #line 1250 "regression-compile-tmp/vax-pass1.imp" VID = ID; // 1251 %FINISH #line 1251 "regression-compile-tmp/vax-pass1.imp" L_00b0:; // 1252 t_index = vid #line 1252 "regression-compile-tmp/vax-pass1.imp" T->INDEX = VID; // 1253 t_text = new name #line 1253 "regression-compile-tmp/vax-pass1.imp" T->TEXT = NEWNAME; // 1254 t_flags <- d #line 1254 "regression-compile-tmp/vax-pass1.imp" T->FLAGS = D; // 1255 t_app = app #line 1255 "regression-compile-tmp/vax-pass1.imp" T->APP = APP; // 1256 t_format = fdef; format = fdef #line 1256 "regression-compile-tmp/vax-pass1.imp" T->FORMAT = FDEF; #line 1256 "regression-compile-tmp/vax-pass1.imp" FORMAT = FDEF; // 1257 subatom = x #line 1257 "regression-compile-tmp/vax-pass1.imp" SUBATOM = X; // 1258 // 1259 %IF new >= 0 %START; !insert into hash table #line 1259 "regression-compile-tmp/vax-pass1.imp" if (((NEW) < (0))) goto L_00b1; // 1260 t_link = dict(new); dict(new) = x #line 1260 "regression-compile-tmp/vax-pass1.imp" T->LINK = DICT[(((int)(NEW)) - (1))]; #line 1260 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(NEW)) - (1))] = X; // 1261 %IF gmin = max grammar %START; !proc param params #line 1261 "regression-compile-tmp/vax-pass1.imp" if (((GMIN) != (1800))) goto L_00b2; // 1262 tmin = tmin-1; subatom = tmin #line 1262 "regression-compile-tmp/vax-pass1.imp" TMIN = (((int)(TMIN)) - (1)); #line 1262 "regression-compile-tmp/vax-pass1.imp" SUBATOM = TMIN; // 1263 tag(tmin) = t #line 1263 "regression-compile-tmp/vax-pass1.imp" TAG[TMIN] = *T; // 1264 %FINISH #line 1264 "regression-compile-tmp/vax-pass1.imp" L_00b2:; // 1265 %FINISH #line 1265 "regression-compile-tmp/vax-pass1.imp" L_00b1:; // 1266 abandon(3) %IF tmax >= tmin #line 1266 "regression-compile-tmp/vax-pass1.imp" if (((TMAX) < (TMIN))) goto L_00b3; #line 1266 "regression-compile-tmp/vax-pass1.imp" ABANDON(3); #line 1266 "regression-compile-tmp/vax-pass1.imp" L_00b3:; // 1267 %END #line 1267 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LOOKUP at level 5 // 1268 // 1269 // 1270 // 1271 top: pos1 = pos #line 1271 "regression-compile-tmp/vax-pass1.imp" U_100d:; #line 1271 "regression-compile-tmp/vax-pass1.imp" POS1 = POS; // 1272 subatom = 0; pend quote = 0 #line 1272 "regression-compile-tmp/vax-pass1.imp" SUBATOM = 0; #line 1272 "regression-compile-tmp/vax-pass1.imp" PENDQUOTE = 0; // 1273 // 1274 !app and format must be left for assigning to papp & pformat // 1275 // 1276 ->name %IF symtype = -2; !letter #line 1276 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) != ((-2)))) goto L_00b4; #line 1276 "regression-compile-tmp/vax-pass1.imp" goto U_100e; #line 1276 "regression-compile-tmp/vax-pass1.imp" L_00b4:; // 1277 ->number %IF symtype < 0; !digit #line 1277 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) >= (0))) goto L_00b5; #line 1277 "regression-compile-tmp/vax-pass1.imp" goto U_100f; #line 1277 "regression-compile-tmp/vax-pass1.imp" L_00b5:; // 1278 %IF symtype = 0 %START #line 1278 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) != (0))) goto L_00b6; // 1279 atom1 = termin; atom2 = 0 #line 1279 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 20; #line 1279 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 0; // 1280 %RETURN #line 1280 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1281 %FINISH #line 1281 "regression-compile-tmp/vax-pass1.imp" L_00b6:; // 1282 %IF symtype # 2 %START; !catch keywords here #line 1282 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) == (2))) goto L_00b7; // 1283 ->text %IF quote # 0; !completion of text #line 1283 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) == (0))) goto L_00b8; #line 1283 "regression-compile-tmp/vax-pass1.imp" goto U_1010; #line 1283 "regression-compile-tmp/vax-pass1.imp" L_00b8:; // 1284 ->strings %IF sym = squote; !start of string #line 1284 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (34))) goto L_00b9; #line 1284 "regression-compile-tmp/vax-pass1.imp" goto U_1011; #line 1284 "regression-compile-tmp/vax-pass1.imp" L_00b9:; // 1285 ->symbols %IF sym = cquote; !start of symbol #line 1285 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (39))) goto L_00ba; #line 1285 "regression-compile-tmp/vax-pass1.imp" goto U_1012; #line 1285 "regression-compile-tmp/vax-pass1.imp" L_00ba:; // 1286 ->number %IF sym = '.' %AND '0' <= current char <= '9' #line 1286 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (46))) goto L_00bb; #line 1286 "regression-compile-tmp/vax-pass1.imp" if ((((48) > (*CURRENTCHAR))) || (((*CURRENTCHAR) > (57)))) goto L_00bb; #line 1286 "regression-compile-tmp/vax-pass1.imp" goto U_100f; #line 1286 "regression-compile-tmp/vax-pass1.imp" L_00bb:; // 1287 %FINISH #line 1287 "regression-compile-tmp/vax-pass1.imp" L_00b7:; // 1288 // 1289 !locate atom in fixed dict // 1290 k = key>>2; read sym #line 1290 "regression-compile-tmp/vax-pass1.imp" K = (int)((((unsigned int)(KEY)) >> (2))); #line 1290 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1291 %CYCLE #line 1291 "regression-compile-tmp/vax-pass1.imp" L_00bc:; // 1292 j = kdict(k) #line 1292 "regression-compile-tmp/vax-pass1.imp" J = (KDICT-32)[K]; // 1293 %EXIT %IF j&16_4000 # 0 #line 1293 "regression-compile-tmp/vax-pass1.imp" if (((((J) & (16384))) == (0))) goto L_00bf; #line 1293 "regression-compile-tmp/vax-pass1.imp" goto L_00bd; #line 1293 "regression-compile-tmp/vax-pass1.imp" L_00bf:; // 1294 %IF j&127 # sym %OR symtype < 0 %START #line 1294 "regression-compile-tmp/vax-pass1.imp" if (((((J) & (127))) != (SYM))) goto L_008e; #line 1294 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) >= (0))) goto L_00c0; #line 1294 "regression-compile-tmp/vax-pass1.imp" L_008e:; // 1295 ->err %UNLESS j < 0 #line 1295 "regression-compile-tmp/vax-pass1.imp" if (((J) < (0))) goto L_00c1; #line 1295 "regression-compile-tmp/vax-pass1.imp" goto U_1013; #line 1295 "regression-compile-tmp/vax-pass1.imp" L_00c1:; // 1296 k = k+1 #line 1296 "regression-compile-tmp/vax-pass1.imp" K = (((int)(K)) + (1)); // 1297 %FINISH %ELSE %START #line 1297 "regression-compile-tmp/vax-pass1.imp" goto L_00c2; #line 1297 "regression-compile-tmp/vax-pass1.imp" L_00c0:; // 1298 l = j>>7&127; read sym #line 1298 "regression-compile-tmp/vax-pass1.imp" L = (((int)((((unsigned int)(J)) >> (7)))) & (127)); #line 1298 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1299 %IF j > 0 %START #line 1299 "regression-compile-tmp/vax-pass1.imp" if (((J) <= (0))) goto L_00c3; // 1300 %IF l # 0 %START #line 1300 "regression-compile-tmp/vax-pass1.imp" if (((L) == (0))) goto L_00c4; // 1301 ->err %IF l # sym %OR symtype < 0 #line 1301 "regression-compile-tmp/vax-pass1.imp" if (((L) != (SYM))) goto L_00c5; #line 1301 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) >= (0))) goto L_00c6; #line 1301 "regression-compile-tmp/vax-pass1.imp" L_00c5:; #line 1301 "regression-compile-tmp/vax-pass1.imp" goto U_1013; #line 1301 "regression-compile-tmp/vax-pass1.imp" L_00c6:; // 1302 read sym #line 1302 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1303 %FINISH #line 1303 "regression-compile-tmp/vax-pass1.imp" L_00c4:; // 1304 l = 1 #line 1304 "regression-compile-tmp/vax-pass1.imp" L = 1; // 1305 %FINISH #line 1305 "regression-compile-tmp/vax-pass1.imp" L_00c3:; // 1306 k = k+l #line 1306 "regression-compile-tmp/vax-pass1.imp" K = (((int)(K)) + (L)); // 1307 %FINISH #line 1307 "regression-compile-tmp/vax-pass1.imp" L_00c2:; // 1308 %REPEAT #line 1308 "regression-compile-tmp/vax-pass1.imp" goto L_00bc; #line 1308 "regression-compile-tmp/vax-pass1.imp" L_00bd:; // 1309 atom1 = j&127 #line 1309 "regression-compile-tmp/vax-pass1.imp" ATOM1 = ((J) & (127)); // 1310 %IF atom1 = 0 %START; !comma #line 1310 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (0))) goto L_00c7; // 1311 atom1 = 19; subatom = 19; atom2 = 0 #line 1311 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 19; #line 1311 "regression-compile-tmp/vax-pass1.imp" SUBATOM = 19; #line 1311 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 0; // 1312 %IF sym = nl %START #line 1312 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (10))) goto L_00c8; // 1313 %RETURN %IF ocount >= 0 #line 1313 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) < (0))) goto L_00c9; #line 1313 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1313 "regression-compile-tmp/vax-pass1.imp" L_00c9:; // 1314 // 1315 !special action needs to be taken with as // 1316 !const array lists can be enormous // 1317 // 1318 read sym #line 1318 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1319 %FINISH #line 1319 "regression-compile-tmp/vax-pass1.imp" L_00c8:; // 1320 %RETURN #line 1320 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1321 %FINISH #line 1321 "regression-compile-tmp/vax-pass1.imp" L_00c7:; // 1322 atom2 = j>>7&127 #line 1322 "regression-compile-tmp/vax-pass1.imp" ATOM2 = (((int)((((unsigned int)(J)) >> (7)))) & (127)); // 1323 subatom = kdict(k+1)&16_3fff #line 1323 "regression-compile-tmp/vax-pass1.imp" SUBATOM = (((KDICT-32)[(((int)(K)) + (1))]) & (16383)); // 1324 !!!!!cont = ' ' // 1325 %RETURN #line 1325 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1326 // 1327 !report an error. adjust the error marker (pos1) to point // 1328 !to the faulty character in an atom, but care needs to be taken // 1329 !to prevent misleading reports in cases like ...????? // 1330 // 1331 err: atom1 = error+1; atom2 = 0 #line 1331 "regression-compile-tmp/vax-pass1.imp" U_1013:; #line 1331 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32769; #line 1331 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 0; // 1332 pos1 = pos %IF pos-pos1 > 2 #line 1332 "regression-compile-tmp/vax-pass1.imp" if ((((((int)(POS)) - (POS1))) <= (2))) goto L_00ca; #line 1332 "regression-compile-tmp/vax-pass1.imp" POS1 = POS; #line 1332 "regression-compile-tmp/vax-pass1.imp" L_00ca:; // 1333 %RETURN #line 1333 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1334 // 1335 !take care with strings and symbol constants. // 1336 !make sure the constant is valid here before sucking it in // 1337 !(and potentially loosing many lines) // 1338 // 1339 symbols:atom1 = var; atom2 = const; type = integer #line 1339 "regression-compile-tmp/vax-pass1.imp" U_1012:; #line 1339 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 91; #line 1339 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 93; #line 1339 "regression-compile-tmp/vax-pass1.imp" TYPE = 1; // 1340 map gg = const; protection = prot #line 1340 "regression-compile-tmp/vax-pass1.imp" MAPGG = 93; #line 1340 "regression-compile-tmp/vax-pass1.imp" PROTECTION = 256; // 1341 subatom = lp; abandon(3) %IF lp >= lit max #line 1341 "regression-compile-tmp/vax-pass1.imp" SUBATOM = LP; #line 1341 "regression-compile-tmp/vax-pass1.imp" if (((LP) < (50))) goto L_00cb; #line 1341 "regression-compile-tmp/vax-pass1.imp" ABANDON(3); #line 1341 "regression-compile-tmp/vax-pass1.imp" L_00cb:; // 1342 quote = \pend quote #line 1342 "regression-compile-tmp/vax-pass1.imp" QUOTE = (~(PENDQUOTE)); // 1343 %RETURN #line 1343 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1344 // 1345 !an integer constant is acceptable so get it in and // 1346 !get the next atom // 1347 // 1348 chars:n = 0; cont = cquote #line 1348 "regression-compile-tmp/vax-pass1.imp" U_1014:; #line 1348 "regression-compile-tmp/vax-pass1.imp" N = 0; #line 1348 "regression-compile-tmp/vax-pass1.imp" CONT = 39; // 1349 %CYCLE #line 1349 "regression-compile-tmp/vax-pass1.imp" L_00cc:; // 1350 read sym #line 1350 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1351 %IF sym = cquote %START #line 1351 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (39))) goto L_00cf; // 1352 %EXIT %IF current char # cquote #line 1352 "regression-compile-tmp/vax-pass1.imp" if (((*CURRENTCHAR) == (39))) goto L_00d0; #line 1352 "regression-compile-tmp/vax-pass1.imp" goto L_00cd; #line 1352 "regression-compile-tmp/vax-pass1.imp" L_00d0:; // 1353 read sym #line 1353 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1354 %FINISH #line 1354 "regression-compile-tmp/vax-pass1.imp" L_00cf:; // 1355 %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow #line 1355 "regression-compile-tmp/vax-pass1.imp" if (((((N) & ((~((int)((((unsigned int)((-1))) >> (8)))))))) == (0))) goto L_00d1; // 1356 pos1 = pos; atom1 = error+10; %RETURN #line 1356 "regression-compile-tmp/vax-pass1.imp" POS1 = POS; #line 1356 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32778; #line 1356 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1357 %FINISH #line 1357 "regression-compile-tmp/vax-pass1.imp" L_00d1:; // 1358 ->err %IF quote = 0 #line 1358 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) != (0))) goto L_00d2; #line 1358 "regression-compile-tmp/vax-pass1.imp" goto U_1013; #line 1358 "regression-compile-tmp/vax-pass1.imp" L_00d2:; // 1359 n = n<top #line 1365 "regression-compile-tmp/vax-pass1.imp" goto U_100d; // 1366 // 1367 !sniff the grammar before getting the string // 1368 // 1369 strings:atom1 = var; atom2 = const; type = stringv #line 1369 "regression-compile-tmp/vax-pass1.imp" U_1011:; #line 1369 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 91; #line 1369 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 93; #line 1369 "regression-compile-tmp/vax-pass1.imp" TYPE = 3; // 1370 subatom = (strp-stbase)!16_4000 #line 1370 "regression-compile-tmp/vax-pass1.imp" SUBATOM = (((((int)(STRP)) - (STBASE))) | (16384)); // 1371 map gg = const; protection = prot #line 1371 "regression-compile-tmp/vax-pass1.imp" MAPGG = 93; #line 1371 "regression-compile-tmp/vax-pass1.imp" PROTECTION = 256; // 1372 quote = subatom #line 1372 "regression-compile-tmp/vax-pass1.imp" QUOTE = SUBATOM; // 1373 text line = lines; !in case of errors #line 1373 "regression-compile-tmp/vax-pass1.imp" TEXTLINE = LINES; // 1374 %RETURN #line 1374 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1375 // 1376 !a string constant is ok here, so pull it in and get // 1377 !the next atom // 1378 // 1379 text: ->chars %IF quote < 0; !character consts #line 1379 "regression-compile-tmp/vax-pass1.imp" U_1010:; #line 1379 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) >= (0))) goto L_00d4; #line 1379 "regression-compile-tmp/vax-pass1.imp" goto U_1014; #line 1379 "regression-compile-tmp/vax-pass1.imp" L_00d4:; // 1380 l = strp; n = strp #line 1380 "regression-compile-tmp/vax-pass1.imp" L = STRP; #line 1380 "regression-compile-tmp/vax-pass1.imp" N = STRP; // 1381 j = addr(glink(gmin-1)); !absolute limit #line 1381 "regression-compile-tmp/vax-pass1.imp" J = _imp_ADDR(&GLINK[(((int)(GMIN)) - (1))]); // 1382 k = l+256; !string length limit #line 1382 "regression-compile-tmp/vax-pass1.imp" K = (((int)(L)) + (256)); // 1383 k = j %IF j < k; !choose lower #line 1383 "regression-compile-tmp/vax-pass1.imp" if (((J) >= (K))) goto L_00d5; #line 1383 "regression-compile-tmp/vax-pass1.imp" K = J; #line 1383 "regression-compile-tmp/vax-pass1.imp" L_00d5:; // 1384 // 1385 %CYCLE #line 1385 "regression-compile-tmp/vax-pass1.imp" L_00d6:; // 1386 cont = squote; quote = 1 #line 1386 "regression-compile-tmp/vax-pass1.imp" CONT = 34; #line 1386 "regression-compile-tmp/vax-pass1.imp" QUOTE = 1; // 1387 %CYCLE #line 1387 "regression-compile-tmp/vax-pass1.imp" L_00d9:; // 1388 read sym #line 1388 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1389 %IF sym = squote %START; !terminator? #line 1389 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (34))) goto L_00dc; // 1390 %EXIT %IF current char # squote; !yes -> #line 1390 "regression-compile-tmp/vax-pass1.imp" if (((*CURRENTCHAR) == (34))) goto L_00dd; #line 1390 "regression-compile-tmp/vax-pass1.imp" goto L_00da; #line 1390 "regression-compile-tmp/vax-pass1.imp" L_00dd:; // 1391 read sym; ! skip quote #line 1391 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1392 %FINISH #line 1392 "regression-compile-tmp/vax-pass1.imp" L_00dc:; // 1393 l = l+1; byteinteger(l) = sym #line 1393 "regression-compile-tmp/vax-pass1.imp" L = (((int)(L)) + (1)); #line 1393 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(L) = SYM; // 1394 lines = text line %AND abandon(7) %IF l >= k; !too many chars #line 1394 "regression-compile-tmp/vax-pass1.imp" if (((L) < (K))) goto L_00de; #line 1394 "regression-compile-tmp/vax-pass1.imp" LINES = TEXTLINE; #line 1394 "regression-compile-tmp/vax-pass1.imp" ABANDON(7); #line 1394 "regression-compile-tmp/vax-pass1.imp" L_00de:; // 1395 %REPEAT #line 1395 "regression-compile-tmp/vax-pass1.imp" goto L_00d9; #line 1395 "regression-compile-tmp/vax-pass1.imp" L_00da:; // 1396 byteinteger(n) = l-n; !plug in length #line 1396 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(N) = (((int)(L)) - (N)); // 1397 // 1398 strp = l+1; !ready for next string #line 1398 "regression-compile-tmp/vax-pass1.imp" STRP = (((int)(L)) + (1)); // 1399 quote = 0; cont = ' '; read sym #line 1399 "regression-compile-tmp/vax-pass1.imp" QUOTE = 0; #line 1399 "regression-compile-tmp/vax-pass1.imp" CONT = 32; #line 1399 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1400 code atom(target) #line 1400 "regression-compile-tmp/vax-pass1.imp" CODEATOM(TARGET); // 1401 %RETURN %UNLESS atom1 = 48 %AND sym = squote; !fold "???"."+++" #line 1401 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (48))) goto L_00db; #line 1401 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (34))) goto L_00df; #line 1401 "regression-compile-tmp/vax-pass1.imp" L_00db:; #line 1401 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1401 "regression-compile-tmp/vax-pass1.imp" L_00df:; // 1402 %REPEAT #line 1402 "regression-compile-tmp/vax-pass1.imp" goto L_00d6; // 1403 // 1404 %ROUTINE get(%INTEGER limit) #line 1404 "regression-compile-tmp/vax-pass1.imp" void GET( int LIMIT ) #line 1404 "regression-compile-tmp/vax-pass1.imp" { // 1405 %INTEGER s, shift #line 1405 "regression-compile-tmp/vax-pass1.imp" int S; #line 1405 "regression-compile-tmp/vax-pass1.imp" int SHIFT; // 1406 shift = 0 #line 1406 "regression-compile-tmp/vax-pass1.imp" SHIFT = 0; // 1407 %IF base # 10 %START #line 1407 "regression-compile-tmp/vax-pass1.imp" if (((BASE) == (10))) goto L_00d7; // 1408 %IF base = 16 %START #line 1408 "regression-compile-tmp/vax-pass1.imp" if (((BASE) != (16))) goto L_00e0; // 1409 shift = 4 #line 1409 "regression-compile-tmp/vax-pass1.imp" SHIFT = 4; // 1410 %FINISH %ELSE %START #line 1410 "regression-compile-tmp/vax-pass1.imp" goto L_00e1; #line 1410 "regression-compile-tmp/vax-pass1.imp" L_00e0:; // 1411 %IF base = 8 %START #line 1411 "regression-compile-tmp/vax-pass1.imp" if (((BASE) != (8))) goto L_00e2; // 1412 shift = 3 #line 1412 "regression-compile-tmp/vax-pass1.imp" SHIFT = 3; // 1413 %FINISH %ELSE %START #line 1413 "regression-compile-tmp/vax-pass1.imp" goto L_00e3; #line 1413 "regression-compile-tmp/vax-pass1.imp" L_00e2:; // 1414 %IF base = 2 %START #line 1414 "regression-compile-tmp/vax-pass1.imp" if (((BASE) != (2))) goto L_00e4; // 1415 shift = 1 #line 1415 "regression-compile-tmp/vax-pass1.imp" SHIFT = 1; // 1416 %FINISH #line 1416 "regression-compile-tmp/vax-pass1.imp" L_00e4:; // 1417 %FINISH #line 1417 "regression-compile-tmp/vax-pass1.imp" L_00e3:; // 1418 %FINISH #line 1418 "regression-compile-tmp/vax-pass1.imp" L_00e1:; // 1419 %FINISH #line 1419 "regression-compile-tmp/vax-pass1.imp" L_00d7:; // 1420 n = 0 #line 1420 "regression-compile-tmp/vax-pass1.imp" N = 0; // 1421 %CYCLE #line 1421 "regression-compile-tmp/vax-pass1.imp" L_00e5:; // 1422 %IF symtype = -1 %START; !digit #line 1422 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) != ((-1)))) goto L_00e8; // 1423 s = sym-'0' #line 1423 "regression-compile-tmp/vax-pass1.imp" S = (((int)(SYM)) - (48)); // 1424 %FINISH %ELSE %START #line 1424 "regression-compile-tmp/vax-pass1.imp" goto L_00e9; #line 1424 "regression-compile-tmp/vax-pass1.imp" L_00e8:; // 1425 %IF symtype < 0 %START; !letter #line 1425 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) >= (0))) goto L_00ea; // 1426 s = sym-'A'+10 #line 1426 "regression-compile-tmp/vax-pass1.imp" S = (((int)((((int)(SYM)) - (65)))) + (10)); // 1427 %FINISH %ELSE %START #line 1427 "regression-compile-tmp/vax-pass1.imp" goto L_00eb; #line 1427 "regression-compile-tmp/vax-pass1.imp" L_00ea:; // 1428 %RETURN #line 1428 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1429 %FINISH #line 1429 "regression-compile-tmp/vax-pass1.imp" L_00eb:; // 1430 %FINISH #line 1430 "regression-compile-tmp/vax-pass1.imp" L_00e9:; // 1431 %RETURN %IF s >= limit #line 1431 "regression-compile-tmp/vax-pass1.imp" if (((S) < (LIMIT))) goto L_00ec; #line 1431 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1431 "regression-compile-tmp/vax-pass1.imp" L_00ec:; // 1432 pt = pt+1; byteinteger(pt) = sym #line 1432 "regression-compile-tmp/vax-pass1.imp" PT = (((int)(PT)) + (1)); #line 1432 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(PT) = SYM; // 1433 %IF base = 10 %START; !check overflow #line 1433 "regression-compile-tmp/vax-pass1.imp" if (((BASE) != (10))) goto L_00ed; // 1434 %IF n >= max int %AND (s > max dig %OR n > max int) %START #line 1434 "regression-compile-tmp/vax-pass1.imp" if (((N) < (214748364))) goto L_00ee; #line 1434 "regression-compile-tmp/vax-pass1.imp" if (((S) > (7))) goto L_007d; #line 1434 "regression-compile-tmp/vax-pass1.imp" if (((N) <= (214748364))) goto L_00ee; #line 1434 "regression-compile-tmp/vax-pass1.imp" L_007d:; // 1435 // 1436 !too big for an integer, // 1437 !so call it a real // 1438 // 1439 base = 0; type = real; n = 0 #line 1439 "regression-compile-tmp/vax-pass1.imp" BASE = 0; #line 1439 "regression-compile-tmp/vax-pass1.imp" TYPE = 2; #line 1439 "regression-compile-tmp/vax-pass1.imp" N = 0; // 1440 %FINISH #line 1440 "regression-compile-tmp/vax-pass1.imp" L_00ee:; // 1441 %FINISH #line 1441 "regression-compile-tmp/vax-pass1.imp" L_00ed:; // 1442 %IF shift = 0 %START #line 1442 "regression-compile-tmp/vax-pass1.imp" if (((SHIFT) != (0))) goto L_00ef; // 1443 n = n*base+s #line 1443 "regression-compile-tmp/vax-pass1.imp" N = (((int)((((int)(N)) * (BASE)))) + (S)); // 1444 %FINISH %ELSE %START #line 1444 "regression-compile-tmp/vax-pass1.imp" goto L_00f0; #line 1444 "regression-compile-tmp/vax-pass1.imp" L_00ef:; // 1445 n = n<= lit max #line 1454 "regression-compile-tmp/vax-pass1.imp" if (((LP) < (50))) goto L_00e6; #line 1454 "regression-compile-tmp/vax-pass1.imp" ABANDON(3); #line 1454 "regression-compile-tmp/vax-pass1.imp" L_00e6:; // 1455 pt = strp; mul = 0 #line 1455 "regression-compile-tmp/vax-pass1.imp" PT = STRP; #line 1455 "regression-compile-tmp/vax-pass1.imp" MUL = 0; // 1456 %CYCLE #line 1456 "regression-compile-tmp/vax-pass1.imp" L_00f1:; // 1457 get(base) #line 1457 "regression-compile-tmp/vax-pass1.imp" GET(BASE); // 1458 %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0; !change of base #line 1458 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (95))) goto L_00f4; #line 1458 "regression-compile-tmp/vax-pass1.imp" if (((BASE) == (0))) goto L_00f4; #line 1458 "regression-compile-tmp/vax-pass1.imp" if (((PENDQUOTE) == (0))) goto L_00f5; #line 1458 "regression-compile-tmp/vax-pass1.imp" L_00f4:; #line 1458 "regression-compile-tmp/vax-pass1.imp" goto L_00f2; #line 1458 "regression-compile-tmp/vax-pass1.imp" L_00f5:; // 1459 read sym #line 1459 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1460 base = n #line 1460 "regression-compile-tmp/vax-pass1.imp" BASE = N; // 1461 %REPEAT #line 1461 "regression-compile-tmp/vax-pass1.imp" goto L_00f1; #line 1461 "regression-compile-tmp/vax-pass1.imp" L_00f2:; // 1462 // 1463 %IF pend quote # 0 %START #line 1463 "regression-compile-tmp/vax-pass1.imp" if (((PENDQUOTE) == (0))) goto L_00f6; // 1464 ->err %IF sym # cquote #line 1464 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (39))) goto L_00f7; #line 1464 "regression-compile-tmp/vax-pass1.imp" goto U_1013; #line 1464 "regression-compile-tmp/vax-pass1.imp" L_00f7:; // 1465 readsym #line 1465 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1466 %FINISH #line 1466 "regression-compile-tmp/vax-pass1.imp" L_00f6:; // 1467 %IF sym = '.' %START; !a real constant #line 1467 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (46))) goto L_00f8; // 1468 pt = pt+1; byteinteger(pt) = '.' #line 1468 "regression-compile-tmp/vax-pass1.imp" PT = (((int)(PT)) + (1)); #line 1468 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(PT) = 46; // 1469 read sym #line 1469 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1470 type = real; base = 0; get(10) #line 1470 "regression-compile-tmp/vax-pass1.imp" TYPE = 2; #line 1470 "regression-compile-tmp/vax-pass1.imp" BASE = 0; #line 1470 "regression-compile-tmp/vax-pass1.imp" GET(10); // 1471 %FINISH #line 1471 "regression-compile-tmp/vax-pass1.imp" L_00f8:; // 1472 %IF sym = '@' %START; !an exponent #line 1472 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (64))) goto L_00f9; // 1473 pt = pt+1; byteinteger(pt) = '@'; k = pt #line 1473 "regression-compile-tmp/vax-pass1.imp" PT = (((int)(PT)) + (1)); #line 1473 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(PT) = 64; #line 1473 "regression-compile-tmp/vax-pass1.imp" K = PT; // 1474 readsym #line 1474 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1475 type = integer; base = 10 #line 1475 "regression-compile-tmp/vax-pass1.imp" TYPE = 1; #line 1475 "regression-compile-tmp/vax-pass1.imp" BASE = 10; // 1476 %IF sym = '-' %START #line 1476 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (45))) goto L_00fa; // 1477 read sym; get(10); n = -n #line 1477 "regression-compile-tmp/vax-pass1.imp" READSYM(); #line 1477 "regression-compile-tmp/vax-pass1.imp" GET(10); #line 1477 "regression-compile-tmp/vax-pass1.imp" N = (-(N)); // 1478 %FINISH %ELSE %START #line 1478 "regression-compile-tmp/vax-pass1.imp" goto L_00fb; #line 1478 "regression-compile-tmp/vax-pass1.imp" L_00fa:; // 1479 get(10) #line 1479 "regression-compile-tmp/vax-pass1.imp" GET(10); // 1480 %FINISH #line 1480 "regression-compile-tmp/vax-pass1.imp" L_00fb:; // 1481 pt = k+1; byteinteger(pt) = lp; litpool(lp) = n; lp = lp+1 #line 1481 "regression-compile-tmp/vax-pass1.imp" PT = (((int)(K)) + (1)); #line 1481 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(PT) = LP; #line 1481 "regression-compile-tmp/vax-pass1.imp" LITPOOL[LP] = N; #line 1481 "regression-compile-tmp/vax-pass1.imp" LP = (((int)(LP)) + (1)); // 1482 atom1 = error+10 %IF base = 0 #line 1482 "regression-compile-tmp/vax-pass1.imp" if (((BASE) != (0))) goto L_00fc; #line 1482 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32778; #line 1482 "regression-compile-tmp/vax-pass1.imp" L_00fc:; // 1483 type = real; !exponents force the type #line 1483 "regression-compile-tmp/vax-pass1.imp" TYPE = 2; // 1484 %FINISH #line 1484 "regression-compile-tmp/vax-pass1.imp" L_00f9:; // 1485 // 1486 %IF type = real %START #line 1486 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (2))) goto L_00fd; // 1487 byteinteger(strp) = pt-strp #line 1487 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(STRP) = (((int)(PT)) - (STRP)); // 1488 subatom = (strp-stbase)!16_2000; strp = pt+1 #line 1488 "regression-compile-tmp/vax-pass1.imp" SUBATOM = (((((int)(STRP)) - (STBASE))) | (8192)); #line 1488 "regression-compile-tmp/vax-pass1.imp" STRP = (((int)(PT)) + (1)); // 1489 %FINISH %ELSE %START #line 1489 "regression-compile-tmp/vax-pass1.imp" goto L_00fe; #line 1489 "regression-compile-tmp/vax-pass1.imp" L_00fd:; // 1490 litpool(lp) = n #line 1490 "regression-compile-tmp/vax-pass1.imp" LITPOOL[LP] = N; // 1491 lp = lp+1 #line 1491 "regression-compile-tmp/vax-pass1.imp" LP = (((int)(LP)) + (1)); // 1492 %FINISH #line 1492 "regression-compile-tmp/vax-pass1.imp" L_00fe:; // 1493 %RETURN #line 1493 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1494 // 1495 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41 #line 1495 "regression-compile-tmp/vax-pass1.imp" U_100e:; #line 1495 "regression-compile-tmp/vax-pass1.imp" if ((((27) > (TARGET))) || (((TARGET) > (41)))) goto L_00ff; #line 1495 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 0; #line 1495 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1495 "regression-compile-tmp/vax-pass1.imp" L_00ff:; // 1496 hash value = 0 #line 1496 "regression-compile-tmp/vax-pass1.imp" HASHVALUE = 0; // 1497 // 1498 !***************************** // 1499 !*machine dependent for speed* // 1500 !***************************** // 1501 // 1502 dp = dmax+1 #line 1502 "regression-compile-tmp/vax-pass1.imp" DP = (((int)(DMAX)) + (1)); // 1503 da = addr(dict(dp)); dbase = da #line 1503 "regression-compile-tmp/vax-pass1.imp" DA = _imp_ADDR(&DICT[(((int)(DP)) - (1))]); #line 1503 "regression-compile-tmp/vax-pass1.imp" DBASE = DA; // 1504 %CYCLE #line 1504 "regression-compile-tmp/vax-pass1.imp" L_0100:; // 1505 hash value = hash value+(hash value+sym); !is this good enough? #line 1505 "regression-compile-tmp/vax-pass1.imp" HASHVALUE = ((HASHVALUE) + ((int)((((int)(HASHVALUE)) + (SYM))))); // 1506 da = da+1; byteinteger(da) = sym #line 1506 "regression-compile-tmp/vax-pass1.imp" DA = (((int)(DA)) + (1)); #line 1506 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(DA) = SYM; // 1507 read sym #line 1507 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1508 %EXIT %IF symtype >= 0 #line 1508 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) < (0))) goto L_0103; #line 1508 "regression-compile-tmp/vax-pass1.imp" goto L_0101; #line 1508 "regression-compile-tmp/vax-pass1.imp" L_0103:; // 1509 %REPEAT #line 1509 "regression-compile-tmp/vax-pass1.imp" goto L_0100; #line 1509 "regression-compile-tmp/vax-pass1.imp" L_0101:; // 1510 %IF sym = cquote %START #line 1510 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (39))) goto L_0104; // 1511 pend quote = 100 #line 1511 "regression-compile-tmp/vax-pass1.imp" PENDQUOTE = 100; // 1512 ->symbols %IF hash value = 'M' #line 1512 "regression-compile-tmp/vax-pass1.imp" if (((HASHVALUE) != (77))) goto L_0105; #line 1512 "regression-compile-tmp/vax-pass1.imp" goto U_1012; #line 1512 "regression-compile-tmp/vax-pass1.imp" L_0105:; // 1513 read sym #line 1513 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1514 %IF hash value = 'X' %THEN base = 16 %AND ->bxk #line 1514 "regression-compile-tmp/vax-pass1.imp" if (((HASHVALUE) != (88))) goto L_0106; #line 1514 "regression-compile-tmp/vax-pass1.imp" BASE = 16; #line 1514 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1514 "regression-compile-tmp/vax-pass1.imp" L_0106:; // 1515 %IF hash value = 'K' %C #line 1515 "regression-compile-tmp/vax-pass1.imp" if (((HASHVALUE) == (75))) goto L_0107; #line 1515 "regression-compile-tmp/vax-pass1.imp" if (((HASHVALUE) != (79))) goto L_0108; #line 1515 "regression-compile-tmp/vax-pass1.imp" L_0107:; #line 1515 "regression-compile-tmp/vax-pass1.imp" BASE = 8; #line 1515 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1515 "regression-compile-tmp/vax-pass1.imp" L_0108:; // 1516 %OR hash value = 'O' %THEN base = 8 %AND ->bxk // 1517 %IF hash value = 'B' %THEN base = 2 %AND ->bxk #line 1517 "regression-compile-tmp/vax-pass1.imp" if (((HASHVALUE) != (66))) goto L_0109; #line 1517 "regression-compile-tmp/vax-pass1.imp" BASE = 2; #line 1517 "regression-compile-tmp/vax-pass1.imp" goto U_100c; #line 1517 "regression-compile-tmp/vax-pass1.imp" L_0109:; // 1518 ->err #line 1518 "regression-compile-tmp/vax-pass1.imp" goto U_1013; // 1519 %FINISH #line 1519 "regression-compile-tmp/vax-pass1.imp" L_0104:; // 1520 n = da-dbase #line 1520 "regression-compile-tmp/vax-pass1.imp" N = (((int)(DA)) - (DBASE)); // 1521 byteinteger(dbase) = n #line 1521 "regression-compile-tmp/vax-pass1.imp" *_imp_BYTEINTEGER(DBASE) = N; // 1522 dp = dp+(n+2)>>1 #line 1522 "regression-compile-tmp/vax-pass1.imp" DP = ((DP) + ((int)((((((((int)(N)) + (2)))) >> (1)))))); // 1523 abandon(8) %IF dp >= dmin #line 1523 "regression-compile-tmp/vax-pass1.imp" if (((DP) < (DMIN))) goto L_010a; #line 1523 "regression-compile-tmp/vax-pass1.imp" ABANDON(8); #line 1523 "regression-compile-tmp/vax-pass1.imp" L_010a:; // 1524 // 1525 atom2 = 90; !ident #line 1525 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 90; // 1526 %IF last1 = 0 %AND sym = ':' %START; !label #line 1526 "regression-compile-tmp/vax-pass1.imp" if (((LAST1) != (0))) goto L_010b; #line 1526 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (58))) goto L_010b; // 1527 limit = local; lookup(lab); %RETURN #line 1527 "regression-compile-tmp/vax-pass1.imp" LIMIT = LOCAL; #line 1527 "regression-compile-tmp/vax-pass1.imp" LOOKUP(3); #line 1527 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1528 %FINISH #line 1528 "regression-compile-tmp/vax-pass1.imp" L_010b:; // 1529 %IF last1 = jump %START; !->label #line 1529 "regression-compile-tmp/vax-pass1.imp" if (((LAST1) != (54))) goto L_010c; // 1530 limit = local; lookup(lab+spec+used bit); %RETURN #line 1530 "regression-compile-tmp/vax-pass1.imp" LIMIT = LOCAL; #line 1530 "regression-compile-tmp/vax-pass1.imp" LOOKUP(32899); #line 1530 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1531 %FINISH #line 1531 "regression-compile-tmp/vax-pass1.imp" L_010c:; // 1532 %IF decl # 0 %AND target = 90 %START; !identifier #line 1532 "regression-compile-tmp/vax-pass1.imp" if (((DECL) == (0))) goto L_010d; #line 1532 "regression-compile-tmp/vax-pass1.imp" if (((TARGET) != (90))) goto L_010d; // 1533 search base = fm base #line 1533 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = FMBASE; // 1534 limit = local; lookup(decl) #line 1534 "regression-compile-tmp/vax-pass1.imp" LIMIT = LOCAL; #line 1534 "regression-compile-tmp/vax-pass1.imp" LOOKUP(DECL); // 1535 search base = 0 #line 1535 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = 0; // 1536 %FINISH %ELSE %START #line 1536 "regression-compile-tmp/vax-pass1.imp" goto L_010e; #line 1536 "regression-compile-tmp/vax-pass1.imp" L_010d:; // 1537 limit = 0; lookup(0) #line 1537 "regression-compile-tmp/vax-pass1.imp" LIMIT = 0; #line 1537 "regression-compile-tmp/vax-pass1.imp" LOOKUP(0); // 1538 %FINISH #line 1538 "regression-compile-tmp/vax-pass1.imp" L_010e:; // 1539 %END #line 1539 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CODEATOM at level 4 // 1540 // 1541 %INTEGERFN parsed machine code #line 1541 "regression-compile-tmp/vax-pass1.imp" int PARSEDMACHINECODE( void ) #line 1541 "regression-compile-tmp/vax-pass1.imp" { // 1542 ! *opcode_?????????? // 1543 %routine octal(%integer n) #line 1543 "regression-compile-tmp/vax-pass1.imp" void OCTAL( int N ) #line 1543 "regression-compile-tmp/vax-pass1.imp" { // 1544 %integer m #line 1544 "regression-compile-tmp/vax-pass1.imp" int M; // 1545 m = n>>3 #line 1545 "regression-compile-tmp/vax-pass1.imp" M = (int)((((unsigned int)(N)) >> (3))); // 1546 octal(m) %if m # 0 #line 1546 "regression-compile-tmp/vax-pass1.imp" if (((M) == (0))) goto L_010f; #line 1546 "regression-compile-tmp/vax-pass1.imp" OCTAL(M); #line 1546 "regression-compile-tmp/vax-pass1.imp" L_010f:; // 1547 put(n&7+'0') #line 1547 "regression-compile-tmp/vax-pass1.imp" PUT((((int)(((N) & (7)))) + (48))); // 1548 %end #line 1548 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block OCTAL at level 5 // 1549 atom1 = error %AND %RESULT=0 %UNLESS symtype = -2; !starts with letter #line 1549 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) == ((-2)))) goto L_0110; #line 1549 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32768; #line 1549 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1549 "regression-compile-tmp/vax-pass1.imp" L_0110:; // 1550 put('w') #line 1550 "regression-compile-tmp/vax-pass1.imp" PUT(119); // 1551 %CYCLE #line 1551 "regression-compile-tmp/vax-pass1.imp" L_0111:; // 1552 put(sym) #line 1552 "regression-compile-tmp/vax-pass1.imp" PUT(SYM); // 1553 read sym #line 1553 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1554 %EXIT %IF symtype >= 0; !pull in letters and digits #line 1554 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) < (0))) goto L_0114; #line 1554 "regression-compile-tmp/vax-pass1.imp" goto L_0112; #line 1554 "regression-compile-tmp/vax-pass1.imp" L_0114:; // 1555 %REPEAT #line 1555 "regression-compile-tmp/vax-pass1.imp" goto L_0111; #line 1555 "regression-compile-tmp/vax-pass1.imp" L_0112:; // 1556 put('_') #line 1556 "regression-compile-tmp/vax-pass1.imp" PUT(95); // 1557 %IF symtype # 0 %START; !not terminator #line 1557 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) == (0))) goto L_0115; // 1558 atom1 = error %AND %result=0 %UNLESS sym = '_' #line 1558 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (95))) goto L_0116; #line 1558 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32768; #line 1558 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1558 "regression-compile-tmp/vax-pass1.imp" L_0116:; // 1559 read sym #line 1559 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1560 %WHILE symtype # 0 %CYCLE #line 1560 "regression-compile-tmp/vax-pass1.imp" L_0117:; #line 1560 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) == (0))) goto L_0118; // 1561 %IF symtype < 0 %START; !complex #line 1561 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) >= (0))) goto L_011a; // 1562 code atom(0); %result=0 %IF atom1&error # 0 #line 1562 "regression-compile-tmp/vax-pass1.imp" CODEATOM(0); #line 1562 "regression-compile-tmp/vax-pass1.imp" if (((((ATOM1) & (32768))) == (0))) goto L_011b; #line 1562 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 1562 "regression-compile-tmp/vax-pass1.imp" L_011b:; // 1563 %IF atom2 = const %AND type = integer %START #line 1563 "regression-compile-tmp/vax-pass1.imp" if (((ATOM2) != (93))) goto L_011c; #line 1563 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (1))) goto L_011c; // 1564 %IF subatom < 0 %THEN octal(tag(-subatom)_format) %C #line 1564 "regression-compile-tmp/vax-pass1.imp" if (((SUBATOM) >= (0))) goto L_011d; #line 1564 "regression-compile-tmp/vax-pass1.imp" OCTAL(TAG[(-(SUBATOM))].FORMAT); #line 1564 "regression-compile-tmp/vax-pass1.imp" goto L_011e; #line 1564 "regression-compile-tmp/vax-pass1.imp" L_011d:; #line 1564 "regression-compile-tmp/vax-pass1.imp" OCTAL(LITPOOL[SUBATOM]); #line 1564 "regression-compile-tmp/vax-pass1.imp" L_011e:; // 1565 %ELSE octal(litpool(subatom)) // 1566 %FINISH %ELSE %START #line 1566 "regression-compile-tmp/vax-pass1.imp" goto L_011f; #line 1566 "regression-compile-tmp/vax-pass1.imp" L_011c:; // 1567 %IF 91 <= atom1 <= 109 %START #line 1567 "regression-compile-tmp/vax-pass1.imp" if ((((91) > (ATOM1))) || (((ATOM1) > (109)))) goto L_0120; // 1568 put(' '); octal(tag(subatom)_index) #line 1568 "regression-compile-tmp/vax-pass1.imp" PUT(32); #line 1568 "regression-compile-tmp/vax-pass1.imp" OCTAL(TAG[SUBATOM].INDEX); // 1569 %FINISH %ELSE %START #line 1569 "regression-compile-tmp/vax-pass1.imp" goto L_0121; #line 1569 "regression-compile-tmp/vax-pass1.imp" L_0120:; // 1570 atom1 = error; %result=0 #line 1570 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32768; #line 1570 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 0; // 1571 %FINISH #line 1571 "regression-compile-tmp/vax-pass1.imp" L_0121:; // 1572 %FINISH #line 1572 "regression-compile-tmp/vax-pass1.imp" L_011f:; // 1573 %FINISH %ELSE %START #line 1573 "regression-compile-tmp/vax-pass1.imp" goto L_0122; #line 1573 "regression-compile-tmp/vax-pass1.imp" L_011a:; // 1574 put(sym); read sym #line 1574 "regression-compile-tmp/vax-pass1.imp" PUT(SYM); #line 1574 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1575 %FINISH #line 1575 "regression-compile-tmp/vax-pass1.imp" L_0122:; // 1576 %REPEAT #line 1576 "regression-compile-tmp/vax-pass1.imp" goto L_0117; #line 1576 "regression-compile-tmp/vax-pass1.imp" L_0118:; // 1577 %FINISH #line 1577 "regression-compile-tmp/vax-pass1.imp" L_0115:; // 1578 put(';') #line 1578 "regression-compile-tmp/vax-pass1.imp" PUT(59); // 1579 %RESULT=1 #line 1579 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return 1; // 1580 %END #line 1580 "regression-compile-tmp/vax-pass1.imp" } // End of block PARSEDMACHINECODE at level 4 // 1581 // 1582 cont = ' ' %IF gg = 0 #line 1582 "regression-compile-tmp/vax-pass1.imp" if (((GG) != (0))) goto L_0123; #line 1582 "regression-compile-tmp/vax-pass1.imp" CONT = 32; #line 1582 "regression-compile-tmp/vax-pass1.imp" L_0123:; // 1583 last1 = 0; mapgg = 0 #line 1583 "regression-compile-tmp/vax-pass1.imp" LAST1 = 0; #line 1583 "regression-compile-tmp/vax-pass1.imp" MAPGG = 0; // 1584 s = 0; ss = 0; sstype = -1; fdef = 0 #line 1584 "regression-compile-tmp/vax-pass1.imp" S = 0; #line 1584 "regression-compile-tmp/vax-pass1.imp" SS = 0; #line 1584 "regression-compile-tmp/vax-pass1.imp" SSTYPE = (-1); #line 1584 "regression-compile-tmp/vax-pass1.imp" FDEF = 0; // 1585 fm base = 0 #line 1585 "regression-compile-tmp/vax-pass1.imp" FMBASE = 0; // 1586 app = 0 #line 1586 "regression-compile-tmp/vax-pass1.imp" APP = 0; // 1587 // 1588 !deal with alignment following an error in one statement // 1589 !of several on a line // 1590 // 1591 margin = column; !start of statement #line 1591 "regression-compile-tmp/vax-pass1.imp" MARGIN = COLUMN; // 1592 // 1593 pos = 0 #line 1593 "regression-compile-tmp/vax-pass1.imp" POS = 0; // 1594 stbase = addr(glink(gmax+1)); strp = stbase; lp = 0 #line 1594 "regression-compile-tmp/vax-pass1.imp" STBASE = _imp_ADDR(&GLINK[(((int)(GMAX)) + (1))]); #line 1594 "regression-compile-tmp/vax-pass1.imp" STRP = STBASE; #line 1594 "regression-compile-tmp/vax-pass1.imp" LP = 0; // 1595 tbase = tstart; !?????????????? #line 1595 "regression-compile-tmp/vax-pass1.imp" TBASE = TSTART; // 1596 local = tbase #line 1596 "regression-compile-tmp/vax-pass1.imp" LOCAL = TBASE; // 1597 // 1598 %IF gg = 0 %or ocount >= 0 %START; !data or not continuation(z) #line 1598 "regression-compile-tmp/vax-pass1.imp" if (((GG) == (0))) goto L_0113; #line 1598 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) < (0))) goto L_0124; #line 1598 "regression-compile-tmp/vax-pass1.imp" L_0113:; // 1599 again:%WHILE sym type = 0 %CYCLE; !skip redundant terminators #line 1599 "regression-compile-tmp/vax-pass1.imp" U_1006:; #line 1599 "regression-compile-tmp/vax-pass1.imp" L_0125:; #line 1599 "regression-compile-tmp/vax-pass1.imp" if (((SYMTYPE) != (0))) goto L_0126; // 1600 c = cont #line 1600 "regression-compile-tmp/vax-pass1.imp" C = CONT; // 1601 cont = ' '; cont = '+' %IF ocount >= 0 #line 1601 "regression-compile-tmp/vax-pass1.imp" CONT = 32; #line 1601 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) < (0))) goto L_0128; #line 1601 "regression-compile-tmp/vax-pass1.imp" CONT = 43; #line 1601 "regression-compile-tmp/vax-pass1.imp" L_0128:; // 1602 read sym #line 1602 "regression-compile-tmp/vax-pass1.imp" READSYM(); // 1603 cont = c #line 1603 "regression-compile-tmp/vax-pass1.imp" CONT = C; // 1604 %REPEAT #line 1604 "regression-compile-tmp/vax-pass1.imp" goto L_0125; #line 1604 "regression-compile-tmp/vax-pass1.imp" L_0126:; // 1605 ->skip %IF sym = '!'; !comment #line 1605 "regression-compile-tmp/vax-pass1.imp" if (((SYM) != (33))) goto L_0129; #line 1605 "regression-compile-tmp/vax-pass1.imp" goto U_1007; #line 1605 "regression-compile-tmp/vax-pass1.imp" L_0129:; // 1606 this = -1 #line 1606 "regression-compile-tmp/vax-pass1.imp" THIS = (-1); // 1607 code atom(0) #line 1607 "regression-compile-tmp/vax-pass1.imp" CODEATOM(0); // 1608 %IF atom1 = comment %START #line 1608 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (22))) goto L_012a; // 1609 skip: quote = 1 #line 1609 "regression-compile-tmp/vax-pass1.imp" U_1007:; #line 1609 "regression-compile-tmp/vax-pass1.imp" QUOTE = 1; // 1610 c = cont #line 1610 "regression-compile-tmp/vax-pass1.imp" C = CONT; // 1611 read sym %AND cont = c %WHILE sym # nl; !skip to end of line #line 1611 "regression-compile-tmp/vax-pass1.imp" L_012b:; #line 1611 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_012c; #line 1611 "regression-compile-tmp/vax-pass1.imp" READSYM(); #line 1611 "regression-compile-tmp/vax-pass1.imp" CONT = C; #line 1611 "regression-compile-tmp/vax-pass1.imp" goto L_012b; #line 1611 "regression-compile-tmp/vax-pass1.imp" L_012c:; // 1612 quote = 0; symtype = 0 #line 1612 "regression-compile-tmp/vax-pass1.imp" QUOTE = 0; #line 1612 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = 0; // 1613 ->again #line 1613 "regression-compile-tmp/vax-pass1.imp" goto U_1006; // 1614 %FINISH #line 1614 "regression-compile-tmp/vax-pass1.imp" L_012a:; // 1615 %FINISH #line 1615 "regression-compile-tmp/vax-pass1.imp" L_0124:; // 1616 decl = 0; mark = 0 #line 1616 "regression-compile-tmp/vax-pass1.imp" DECL = 0; #line 1616 "regression-compile-tmp/vax-pass1.imp" MARK = 0; // 1617 gentype = 0; force = 0 #line 1617 "regression-compile-tmp/vax-pass1.imp" GENTYPE = 0; #line 1617 "regression-compile-tmp/vax-pass1.imp" FORCE = 0; // 1618 dim = 0; prot err = 0 #line 1618 "regression-compile-tmp/vax-pass1.imp" DIM = 0; #line 1618 "regression-compile-tmp/vax-pass1.imp" PROTERR = 0; // 1619 node = 0; nmax = 0; nmin = rec size+1 #line 1619 "regression-compile-tmp/vax-pass1.imp" NODE = 0; #line 1619 "regression-compile-tmp/vax-pass1.imp" NMAX = 0; #line 1619 "regression-compile-tmp/vax-pass1.imp" NMIN = 261; // 1620 order = 1; gmin = max grammar+1 #line 1620 "regression-compile-tmp/vax-pass1.imp" ORDER = 1; #line 1620 "regression-compile-tmp/vax-pass1.imp" GMIN = 1801; // 1621 sstype = 0 %AND ->more %IF gg # 0; !continuation #line 1621 "regression-compile-tmp/vax-pass1.imp" if (((GG) == (0))) goto L_012e; #line 1621 "regression-compile-tmp/vax-pass1.imp" SSTYPE = 0; #line 1621 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1621 "regression-compile-tmp/vax-pass1.imp" L_012e:; // 1622 ptype = 0; spec given = 0 #line 1622 "regression-compile-tmp/vax-pass1.imp" PTYPE = 0; #line 1622 "regression-compile-tmp/vax-pass1.imp" SPECGIVEN = 0; // 1623 // 1624 stats = stats+1; op('O', lines) %IF perm = 0 #line 1624 "regression-compile-tmp/vax-pass1.imp" STATS = (((int)(STATS)) + (1)); #line 1624 "regression-compile-tmp/vax-pass1.imp" if (((PERM) != (0))) goto L_012f; #line 1624 "regression-compile-tmp/vax-pass1.imp" OP(79, LINES); #line 1624 "regression-compile-tmp/vax-pass1.imp" L_012f:; // 1625 // 1626 ->fail1 %IF atom1&error # 0; !first atom faulty #line 1626 "regression-compile-tmp/vax-pass1.imp" if (((((ATOM1) & (32768))) == (0))) goto L_0130; #line 1626 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1626 "regression-compile-tmp/vax-pass1.imp" L_0130:; // 1627 // 1628 %IF escape class # 0 %START; !enter the hard way after #line 1628 "regression-compile-tmp/vax-pass1.imp" if (((ESCAPECLASS) == (0))) goto L_0131; // 1629 g = imp phrase; sstype = -1; ->a3 #line 1629 "regression-compile-tmp/vax-pass1.imp" G = 24; #line 1629 "regression-compile-tmp/vax-pass1.imp" SSTYPE = (-1); #line 1629 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1630 %FINISH #line 1630 "regression-compile-tmp/vax-pass1.imp" L_0131:; // 1631 // 1632 g = initial(atom1); !pick up entry point #line 1632 "regression-compile-tmp/vax-pass1.imp" G = INITIAL[ATOM1]; // 1633 %IF g = 0 %START; !invalid first atom #line 1633 "regression-compile-tmp/vax-pass1.imp" if (((G) != (0))) goto L_0132; // 1634 g = initial(0); sstype = 0; ->a3; !declarator? #line 1634 "regression-compile-tmp/vax-pass1.imp" G = INITIAL[0]; #line 1634 "regression-compile-tmp/vax-pass1.imp" SSTYPE = 0; #line 1634 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1635 %FINISH #line 1635 "regression-compile-tmp/vax-pass1.imp" L_0132:; // 1636 %IF g < 0 %START; !phrase imp #line 1636 "regression-compile-tmp/vax-pass1.imp" if (((G) >= (0))) goto L_0133; // 1637 g = g&255 #line 1637 "regression-compile-tmp/vax-pass1.imp" G = ((G) & (255)); // 1638 nmax = 1 #line 1638 "regression-compile-tmp/vax-pass1.imp" NMAX = 1; // 1639 ar(1)_class = 0; ar(1)_link = 0; ar(1)_sub = imp phrase #line 1639 "regression-compile-tmp/vax-pass1.imp" AR[0].CLASS = 0; #line 1639 "regression-compile-tmp/vax-pass1.imp" AR[0].LINK = 0; #line 1639 "regression-compile-tmp/vax-pass1.imp" AR[0].SUB = 24; // 1640 %FINISH #line 1640 "regression-compile-tmp/vax-pass1.imp" L_0133:; // 1641 // 1642 gg = gram(g); class = gg&255; sstype = gg>>12&3-1 #line 1642 "regression-compile-tmp/vax-pass1.imp" GG = GRAM[G]; #line 1642 "regression-compile-tmp/vax-pass1.imp" CLASS = ((GG) & (255)); #line 1642 "regression-compile-tmp/vax-pass1.imp" SSTYPE = (((int)((((int)((((unsigned int)(GG)) >> (12)))) & (3)))) - (1)); // 1643 ->a1 #line 1643 "regression-compile-tmp/vax-pass1.imp" goto U_1015; // 1644 // 1645 act(194): ptype = type; papp = app; pformat = format; ->more #line 1645 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_194:; #line 1645 "regression-compile-tmp/vax-pass1.imp" PTYPE = TYPE; #line 1645 "regression-compile-tmp/vax-pass1.imp" PAPP = APP; #line 1645 "regression-compile-tmp/vax-pass1.imp" PFORMAT = FORMAT; #line 1645 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1646 act(196):k =g+1; ->a610 #line 1646 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_196:; #line 1646 "regression-compile-tmp/vax-pass1.imp" K = (((int)(G)) + (1)); #line 1646 "regression-compile-tmp/vax-pass1.imp" goto U_1016; // 1647 act(188):k = ar(nmax)_sub+1 #line 1647 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_188:; #line 1647 "regression-compile-tmp/vax-pass1.imp" K = (((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1)); // 1648 a610: papp = glink(k) #line 1648 "regression-compile-tmp/vax-pass1.imp" U_1016:; #line 1648 "regression-compile-tmp/vax-pass1.imp" PAPP = GLINK[K]; // 1649 k = gram(k) #line 1649 "regression-compile-tmp/vax-pass1.imp" K = GRAM[K]; // 1650 ->more %IF k = 0; !%NAME #line 1650 "regression-compile-tmp/vax-pass1.imp" if (((K) != (0))) goto L_0134; #line 1650 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1650 "regression-compile-tmp/vax-pass1.imp" L_0134:; // 1651 ptype = k&7; pformat = k>>3 #line 1651 "regression-compile-tmp/vax-pass1.imp" PTYPE = ((K) & (7)); #line 1651 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (int)((((unsigned int)(K)) >> (3))); // 1652 act(183):k = type; gentype = k %IF gentype = 0 %OR k = real #line 1652 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_183:; #line 1652 "regression-compile-tmp/vax-pass1.imp" K = TYPE; #line 1652 "regression-compile-tmp/vax-pass1.imp" if (((GENTYPE) == (0))) goto L_0135; #line 1652 "regression-compile-tmp/vax-pass1.imp" if (((K) != (2))) goto L_0136; #line 1652 "regression-compile-tmp/vax-pass1.imp" L_0135:; #line 1652 "regression-compile-tmp/vax-pass1.imp" GENTYPE = K; #line 1652 "regression-compile-tmp/vax-pass1.imp" L_0136:; // 1653 %IF pformat < 0 %START; !general type #line 1653 "regression-compile-tmp/vax-pass1.imp" if (((PFORMAT) >= (0))) goto L_0137; // 1654 app = papp; format = pformat #line 1654 "regression-compile-tmp/vax-pass1.imp" APP = PAPP; #line 1654 "regression-compile-tmp/vax-pass1.imp" FORMAT = PFORMAT; // 1655 k = real %IF ptype = real %AND type = integer #line 1655 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) != (2))) goto L_0138; #line 1655 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (1))) goto L_0138; #line 1655 "regression-compile-tmp/vax-pass1.imp" K = 2; #line 1655 "regression-compile-tmp/vax-pass1.imp" L_0138:; // 1656 k = force %AND force = 0 %IF force # 0 #line 1656 "regression-compile-tmp/vax-pass1.imp" if (((FORCE) == (0))) goto L_0139; #line 1656 "regression-compile-tmp/vax-pass1.imp" K = FORCE; #line 1656 "regression-compile-tmp/vax-pass1.imp" FORCE = 0; #line 1656 "regression-compile-tmp/vax-pass1.imp" L_0139:; // 1657 %FINISH #line 1657 "regression-compile-tmp/vax-pass1.imp" L_0137:; // 1658 ->fail2 %UNLESS papp = app %AND (ptype = k %OR ptype = 0) #line 1658 "regression-compile-tmp/vax-pass1.imp" if (((PAPP) != (APP))) goto L_013a; #line 1658 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) == (K))) goto L_013b; #line 1658 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) == (0))) goto L_013b; #line 1658 "regression-compile-tmp/vax-pass1.imp" L_013a:; #line 1658 "regression-compile-tmp/vax-pass1.imp" goto U_1017; #line 1658 "regression-compile-tmp/vax-pass1.imp" L_013b:; // 1659 ->more %IF pformat=format %OR pformat = 0 %OR format = 0 #line 1659 "regression-compile-tmp/vax-pass1.imp" if (((PFORMAT) == (FORMAT))) goto L_013c; #line 1659 "regression-compile-tmp/vax-pass1.imp" if (((PFORMAT) == (0))) goto L_013c; #line 1659 "regression-compile-tmp/vax-pass1.imp" if (((FORMAT) != (0))) goto L_013d; #line 1659 "regression-compile-tmp/vax-pass1.imp" L_013c:; #line 1659 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1659 "regression-compile-tmp/vax-pass1.imp" L_013d:; // 1660 ->fail2 #line 1660 "regression-compile-tmp/vax-pass1.imp" goto U_1017; // 1661 act(197):arp == ar(nmin) #line 1661 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_197:; #line 1661 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1662 k = arp_sub #line 1662 "regression-compile-tmp/vax-pass1.imp" K = ARP->SUB; // 1663 ->fail3 %UNLESS block form = k&15 #line 1663 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKFORM) == (((K) & (15))))) goto L_013e; #line 1663 "regression-compile-tmp/vax-pass1.imp" goto U_1018; #line 1663 "regression-compile-tmp/vax-pass1.imp" L_013e:; // 1664 arp_sub = k>>4 #line 1664 "regression-compile-tmp/vax-pass1.imp" ARP->SUB = (int)((((unsigned int)(K)) >> (4))); // 1665 // 1666 type = block type #line 1666 "regression-compile-tmp/vax-pass1.imp" TYPE = BLOCKTYPE; // 1667 ptype = block type; pformat = block fm; papp = app #line 1667 "regression-compile-tmp/vax-pass1.imp" PTYPE = BLOCKTYPE; #line 1667 "regression-compile-tmp/vax-pass1.imp" PFORMAT = BLOCKFM; #line 1667 "regression-compile-tmp/vax-pass1.imp" PAPP = APP; // 1668 pformat = -1 %IF ptype # record #line 1668 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) == (4))) goto L_013f; #line 1668 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1668 "regression-compile-tmp/vax-pass1.imp" L_013f:; // 1669 ->more #line 1669 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1670 act(195):arp == ar(nmin) #line 1670 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_195:; #line 1670 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1671 k = arp_sub #line 1671 "regression-compile-tmp/vax-pass1.imp" K = ARP->SUB; // 1672 arp_sub = k>>2 #line 1672 "regression-compile-tmp/vax-pass1.imp" ARP->SUB = (int)((((unsigned int)(K)) >> (2))); // 1673 k = k&3 #line 1673 "regression-compile-tmp/vax-pass1.imp" K = ((K) & (3)); // 1674 !1 = check integer // 1675 !2 = check real // 1676 !3 = check real + int // 1677 ->more %IF k = 0; !no action #line 1677 "regression-compile-tmp/vax-pass1.imp" if (((K) != (0))) goto L_0140; #line 1677 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1677 "regression-compile-tmp/vax-pass1.imp" L_0140:; // 1678 %IF k = 1 %START #line 1678 "regression-compile-tmp/vax-pass1.imp" if (((K) != (1))) goto L_0141; // 1679 force = integer #line 1679 "regression-compile-tmp/vax-pass1.imp" FORCE = 1; // 1680 ->more %IF type = integer %OR type = 0 #line 1680 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) == (1))) goto L_0127; #line 1680 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (0))) goto L_0142; #line 1680 "regression-compile-tmp/vax-pass1.imp" L_0127:; #line 1680 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1680 "regression-compile-tmp/vax-pass1.imp" L_0142:; // 1681 ->fail2 #line 1681 "regression-compile-tmp/vax-pass1.imp" goto U_1017; // 1682 %FINISH #line 1682 "regression-compile-tmp/vax-pass1.imp" L_0141:; // 1683 ->fail2 %UNLESS ptype = real %or ptype = 0 #line 1683 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) == (2))) goto L_0143; #line 1683 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) == (0))) goto L_0143; #line 1683 "regression-compile-tmp/vax-pass1.imp" goto U_1017; #line 1683 "regression-compile-tmp/vax-pass1.imp" L_0143:; // 1684 force = integer %IF k = 3 #line 1684 "regression-compile-tmp/vax-pass1.imp" if (((K) != (3))) goto L_0144; #line 1684 "regression-compile-tmp/vax-pass1.imp" FORCE = 1; #line 1684 "regression-compile-tmp/vax-pass1.imp" L_0144:; // 1685 ->more #line 1685 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1686 act(198):!%OTHER #line 1686 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_198:; // 1687 k = gg>>8&15 #line 1687 "regression-compile-tmp/vax-pass1.imp" K = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); // 1688 %IF k = 0 %START; !restore atom #line 1688 "regression-compile-tmp/vax-pass1.imp" if (((K) != (0))) goto L_0145; // 1689 atom1 = last1 #line 1689 "regression-compile-tmp/vax-pass1.imp" ATOM1 = LAST1; // 1690 ->more #line 1690 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1691 %FINISH #line 1691 "regression-compile-tmp/vax-pass1.imp" L_0145:; // 1692 %IF k = 1 %START; !test string #line 1692 "regression-compile-tmp/vax-pass1.imp" if (((K) != (1))) goto L_0146; // 1693 ->fail2 %UNLESS type = stringv #line 1693 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) == (3))) goto L_0147; #line 1693 "regression-compile-tmp/vax-pass1.imp" goto U_1017; #line 1693 "regression-compile-tmp/vax-pass1.imp" L_0147:; // 1694 ->more #line 1694 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1695 %FINISH #line 1695 "regression-compile-tmp/vax-pass1.imp" L_0146:; // 1696 %if k = 2 %start #line 1696 "regression-compile-tmp/vax-pass1.imp" if (((K) != (2))) goto L_0148; // 1697 ->fail2 %if type = record #line 1697 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (4))) goto L_0149; #line 1697 "regression-compile-tmp/vax-pass1.imp" goto U_1017; #line 1697 "regression-compile-tmp/vax-pass1.imp" L_0149:; // 1698 -> more #line 1698 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1699 %finish #line 1699 "regression-compile-tmp/vax-pass1.imp" L_0148:; // 1700 %if k = 3 %start; !check OWN variable coming #line 1700 "regression-compile-tmp/vax-pass1.imp" if (((K) != (3))) goto L_014a; // 1701 code atom(0) #line 1701 "regression-compile-tmp/vax-pass1.imp" CODEATOM(0); // 1702 ->A7 %if atom flags&own bit = 0 #line 1702 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (512))) != (0))) goto L_014b; #line 1702 "regression-compile-tmp/vax-pass1.imp" goto U_1019; #line 1702 "regression-compile-tmp/vax-pass1.imp" L_014b:; // 1703 ->more #line 1703 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1704 %finish #line 1704 "regression-compile-tmp/vax-pass1.imp" L_014a:; // 1705 for warn = pos1 %IF x <= local; !%FORTEST #line 1705 "regression-compile-tmp/vax-pass1.imp" if (((X) > (LOCAL))) goto L_014c; #line 1705 "regression-compile-tmp/vax-pass1.imp" FORWARN = POS1; #line 1705 "regression-compile-tmp/vax-pass1.imp" L_014c:; // 1706 ->more #line 1706 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1707 paction(1):%IF type = record %THEN g = phrase(242) %ELSE pformat = -1 #line 1707 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_1:; #line 1707 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (4))) goto L_014d; #line 1707 "regression-compile-tmp/vax-pass1.imp" G = (PHRASE-200)[242]; #line 1707 "regression-compile-tmp/vax-pass1.imp" goto L_014e; #line 1707 "regression-compile-tmp/vax-pass1.imp" L_014d:; #line 1707 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1707 "regression-compile-tmp/vax-pass1.imp" L_014e:; // 1708 ->a3 #line 1708 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1709 paction(2):ptype = real; pformat = -1; ->a3 #line 1709 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_2:; #line 1709 "regression-compile-tmp/vax-pass1.imp" PTYPE = 2; #line 1709 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1709 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1710 paction(3):ptype = stringv; pformat = -1; ->a3 #line 1710 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_3:; #line 1710 "regression-compile-tmp/vax-pass1.imp" PTYPE = 3; #line 1710 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1710 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1711 paction(4):ptype = integer; pformat = -1; ->a3 #line 1711 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_4:; #line 1711 "regression-compile-tmp/vax-pass1.imp" PTYPE = 1; #line 1711 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1711 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1712 paction(5):->a3 %if ptype = integer #line 1712 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_5:; #line 1712 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) != (1))) goto L_014f; #line 1712 "regression-compile-tmp/vax-pass1.imp" goto U_100a; #line 1712 "regression-compile-tmp/vax-pass1.imp" L_014f:; // 1713 g = phrase(212) %AND pformat=-1 %IF ptype = real #line 1713 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) != (2))) goto L_0150; #line 1713 "regression-compile-tmp/vax-pass1.imp" G = (PHRASE-200)[212]; #line 1713 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1713 "regression-compile-tmp/vax-pass1.imp" L_0150:; // 1714 g = phrase(213) %IF ptype = stringv #line 1714 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) != (3))) goto L_0151; #line 1714 "regression-compile-tmp/vax-pass1.imp" G = (PHRASE-200)[213]; #line 1714 "regression-compile-tmp/vax-pass1.imp" L_0151:; // 1715 ->a3 #line 1715 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1716 paction(6):ptype = gram(ar(nmax)_sub+1)&7; pformat = -1; ->a3 #line 1716 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_6:; #line 1716 "regression-compile-tmp/vax-pass1.imp" PTYPE = ((GRAM[(((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1))]) & (7)); #line 1716 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1716 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1717 paction(7):ptype=real %IF ptype = integer; pformat=-1; ->a3 #line 1717 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_7:; #line 1717 "regression-compile-tmp/vax-pass1.imp" if (((PTYPE) != (1))) goto L_0152; #line 1717 "regression-compile-tmp/vax-pass1.imp" PTYPE = 2; #line 1717 "regression-compile-tmp/vax-pass1.imp" L_0152:; #line 1717 "regression-compile-tmp/vax-pass1.imp" PFORMAT = (-1); #line 1717 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1718 // 1719 a1: last1 = class; atom1 = 0; s = subatom #line 1719 "regression-compile-tmp/vax-pass1.imp" U_1015:; #line 1719 "regression-compile-tmp/vax-pass1.imp" LAST1 = CLASS; #line 1719 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 0; #line 1719 "regression-compile-tmp/vax-pass1.imp" S = SUBATOM; // 1720 // 1721 a2: %IF gg&trans bit = 0 %START; !insert into analysis record #line 1721 "regression-compile-tmp/vax-pass1.imp" U_101a:; #line 1721 "regression-compile-tmp/vax-pass1.imp" if (((((GG) & (16384))) != (0))) goto L_0153; // 1722 z == node #line 1722 "regression-compile-tmp/vax-pass1.imp" Z = &NODE; // 1723 %CYCLE; !insert cell in order #line 1723 "regression-compile-tmp/vax-pass1.imp" L_0154:; // 1724 k = z #line 1724 "regression-compile-tmp/vax-pass1.imp" K = *Z; // 1725 %EXIT %IF gg&order bits = 0 %OR k = 0 #line 1725 "regression-compile-tmp/vax-pass1.imp" if (((((GG) & (12288))) == (0))) goto L_012d; #line 1725 "regression-compile-tmp/vax-pass1.imp" if (((K) != (0))) goto L_0157; #line 1725 "regression-compile-tmp/vax-pass1.imp" L_012d:; #line 1725 "regression-compile-tmp/vax-pass1.imp" goto L_0155; #line 1725 "regression-compile-tmp/vax-pass1.imp" L_0157:; // 1726 gg = gg-order bit; z == ar(k)_link #line 1726 "regression-compile-tmp/vax-pass1.imp" GG = (((int)(GG)) - (4096)); #line 1726 "regression-compile-tmp/vax-pass1.imp" Z = &AR[(((int)(K)) - (1))].LINK; // 1727 %REPEAT #line 1727 "regression-compile-tmp/vax-pass1.imp" goto L_0154; #line 1727 "regression-compile-tmp/vax-pass1.imp" L_0155:; // 1728 gg = map gg %IF map gg # 0 %AND gg&255 = var #line 1728 "regression-compile-tmp/vax-pass1.imp" if (((MAPGG) == (0))) goto L_0158; #line 1728 "regression-compile-tmp/vax-pass1.imp" if (((((GG) & (255))) != (91))) goto L_0158; #line 1728 "regression-compile-tmp/vax-pass1.imp" GG = MAPGG; #line 1728 "regression-compile-tmp/vax-pass1.imp" L_0158:; // 1729 nmin = nmin-1; ->fail0 %IF nmin = nmax #line 1729 "regression-compile-tmp/vax-pass1.imp" NMIN = (((int)(NMIN)) - (1)); #line 1729 "regression-compile-tmp/vax-pass1.imp" if (((NMIN) != (NMAX))) goto L_0159; #line 1729 "regression-compile-tmp/vax-pass1.imp" goto U_100d; #line 1729 "regression-compile-tmp/vax-pass1.imp" L_0159:; // 1730 z = nmin #line 1730 "regression-compile-tmp/vax-pass1.imp" *Z = NMIN; // 1731 arp == ar(nmin) #line 1731 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1732 arp_sub = s; arp_class = (gg&255)!mark #line 1732 "regression-compile-tmp/vax-pass1.imp" ARP->SUB = S; #line 1732 "regression-compile-tmp/vax-pass1.imp" ARP->CLASS = ((((GG) & (255))) | (MARK)); // 1733 arp_link = k #line 1733 "regression-compile-tmp/vax-pass1.imp" ARP->LINK = K; // 1734 %FINISH #line 1734 "regression-compile-tmp/vax-pass1.imp" L_0153:; // 1735 mark = 0; map gg = 0 #line 1735 "regression-compile-tmp/vax-pass1.imp" MARK = 0; #line 1735 "regression-compile-tmp/vax-pass1.imp" MAPGG = 0; // 1736 // 1737 more: g = glink(g); !chain down the grammar #line 1737 "regression-compile-tmp/vax-pass1.imp" U_1008:; #line 1737 "regression-compile-tmp/vax-pass1.imp" G = GLINK[G]; // 1738 // 1739 paction(0): #line 1739 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_0:; // 1740 a3: gg = gram(g); class = gg&255 ;! <------------------------------ gg set to -1... THIS CAUSES MISSING SWITCH LABEL paction(15) BELOW #line 1740 "regression-compile-tmp/vax-pass1.imp" U_100a:; #line 1740 "regression-compile-tmp/vax-pass1.imp" GG = GRAM[G]; #line 1740 "regression-compile-tmp/vax-pass1.imp" CLASS = ((GG) & (255)); // 1741 debug("gg = gram(g) = -1 ... g=".itos(g,0)." gg=".itos(gg,0)) %if gg = -1 #line 1741 "regression-compile-tmp/vax-pass1.imp" if (((GG) != ((-1)))) goto L_015a; #line 1741 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("gg = gram(g) = -1 ... g="),(_imp_string)_imp_ITOS(G, 0)),(_imp_string)_imp_str_literal(" gg=")),(_imp_string)_imp_ITOS(GG, 0))); #line 1741 "regression-compile-tmp/vax-pass1.imp" L_015a:; // 1742 trace analysis %IF diag&1 # 0 #line 1742 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (1))) == (0))) goto L_015b; #line 1742 "regression-compile-tmp/vax-pass1.imp" TRACEANALYSIS(); #line 1742 "regression-compile-tmp/vax-pass1.imp" L_015b:; // 1743 ->a5 %IF class = 0; !end of phrase #line 1743 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) != (0))) goto L_015c; #line 1743 "regression-compile-tmp/vax-pass1.imp" goto U_100e; #line 1743 "regression-compile-tmp/vax-pass1.imp" L_015c:; // 1744 // 1745 %IF class < actions %START; !not a phrase or an action #line 1745 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) >= (180))) goto L_015d; // 1746 class = atomic(class) %IF class >= figurative #line 1746 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) < (130))) goto L_015e; #line 1746 "regression-compile-tmp/vax-pass1.imp" CLASS = (ATOMIC-130)[CLASS]; #line 1746 "regression-compile-tmp/vax-pass1.imp" L_015e:; // 1747 ->a2 %IF class >= manifest #line 1747 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) < (120))) goto L_015f; #line 1747 "regression-compile-tmp/vax-pass1.imp" goto U_101a; #line 1747 "regression-compile-tmp/vax-pass1.imp" L_015f:; // 1748 code atom(class) %IF atom1 = 0 #line 1748 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (0))) goto L_0160; #line 1748 "regression-compile-tmp/vax-pass1.imp" CODEATOM(CLASS); #line 1748 "regression-compile-tmp/vax-pass1.imp" L_0160:; // 1749 %IF escape class # 0 %START; !escape to new grammar #line 1749 "regression-compile-tmp/vax-pass1.imp" if (((ESCAPECLASS) == (0))) goto L_0161; // 1750 class = escape class; escape class = 0 #line 1750 "regression-compile-tmp/vax-pass1.imp" CLASS = ESCAPECLASS; #line 1750 "regression-compile-tmp/vax-pass1.imp" ESCAPECLASS = 0; // 1751 g = g+escape #line 1751 "regression-compile-tmp/vax-pass1.imp" G = (((int)(G)) + (4096)); // 1752 // 1753 !note that following an escape the next item is // 1754 !forced to be transparent! // 1755 // 1756 esc: gg = 0 #line 1756 "regression-compile-tmp/vax-pass1.imp" U_100f:; #line 1756 "regression-compile-tmp/vax-pass1.imp" GG = 0; // 1757 arp == ar(nmax+1) #line 1757 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)((((int)(NMAX)) + (1)))) - (1))]; // 1758 arp_papp = papp; arp_x = x; ->a4 #line 1758 "regression-compile-tmp/vax-pass1.imp" ARP->PAPP = PAPP; #line 1758 "regression-compile-tmp/vax-pass1.imp" ARP->X = X; #line 1758 "regression-compile-tmp/vax-pass1.imp" goto U_1010; // 1759 %FINISH #line 1759 "regression-compile-tmp/vax-pass1.imp" L_0161:; // 1760 // 1761 ->a1 %IF class = atom1 %OR class = atom2 #line 1761 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) == (ATOM1))) goto L_0156; #line 1761 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) != (ATOM2))) goto L_0162; #line 1761 "regression-compile-tmp/vax-pass1.imp" L_0156:; #line 1761 "regression-compile-tmp/vax-pass1.imp" goto U_1015; #line 1761 "regression-compile-tmp/vax-pass1.imp" L_0162:; // 1762 // 1763 a7: ->fail1 %IF gg >= 0; !no alternative #line 1763 "regression-compile-tmp/vax-pass1.imp" U_1019:; #line 1763 "regression-compile-tmp/vax-pass1.imp" if (((GG) < (0))) goto L_0163; #line 1763 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1763 "regression-compile-tmp/vax-pass1.imp" L_0163:; // 1764 g = g+1 #line 1764 "regression-compile-tmp/vax-pass1.imp" G = (((int)(G)) + (1)); // 1765 ->a3 #line 1765 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1766 %FINISH #line 1766 "regression-compile-tmp/vax-pass1.imp" L_015d:; // 1767 // 1768 %IF class >= phrasal %START; !a phrase #line 1768 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) < (200))) goto L_0164; // 1769 a4: nmax = nmax+1; ->fail0 %IF nmax = nmin #line 1769 "regression-compile-tmp/vax-pass1.imp" U_1010:; #line 1769 "regression-compile-tmp/vax-pass1.imp" NMAX = (((int)(NMAX)) + (1)); #line 1769 "regression-compile-tmp/vax-pass1.imp" if (((NMAX) != (NMIN))) goto L_0165; #line 1769 "regression-compile-tmp/vax-pass1.imp" goto U_100d; #line 1769 "regression-compile-tmp/vax-pass1.imp" L_0165:; // 1770 arp == ar(nmax) #line 1770 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMAX)) - (1))]; // 1771 arp_ptype = ptype #line 1771 "regression-compile-tmp/vax-pass1.imp" ARP->PTYPE = PTYPE; // 1772 arp_pos = pos1 #line 1772 "regression-compile-tmp/vax-pass1.imp" ARP->POS = POS1; // 1773 arp_pformat = pformat #line 1773 "regression-compile-tmp/vax-pass1.imp" ARP->PFORMAT = PFORMAT; // 1774 arp_link = gentype #line 1774 "regression-compile-tmp/vax-pass1.imp" ARP->LINK = GENTYPE; // 1775 arp_class = node #line 1775 "regression-compile-tmp/vax-pass1.imp" ARP->CLASS = NODE; // 1776 arp_sub = g #line 1776 "regression-compile-tmp/vax-pass1.imp" ARP->SUB = G; // 1777 node = 0 #line 1777 "regression-compile-tmp/vax-pass1.imp" NODE = 0; // 1778 g = phrase(class) #line 1778 "regression-compile-tmp/vax-pass1.imp" G = (PHRASE-200)[CLASS]; // 1779 ptype = force %AND force = 0 %IF force # 0 #line 1779 "regression-compile-tmp/vax-pass1.imp" if (((FORCE) == (0))) goto L_0166; #line 1779 "regression-compile-tmp/vax-pass1.imp" PTYPE = FORCE; #line 1779 "regression-compile-tmp/vax-pass1.imp" FORCE = 0; #line 1779 "regression-compile-tmp/vax-pass1.imp" L_0166:; // 1780 gentype = 0 #line 1780 "regression-compile-tmp/vax-pass1.imp" GENTYPE = 0; // 1781 ->paction(gg>>8&15) ;! <----------------- CAUSES CRASH #line 1781 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_idx = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); if ((0 <= sw4_PACTION_idx) && (sw4_PACTION_idx <= 15)) goto *sw4_PACTION[sw4_PACTION_idx]; else { /*_imp_signal(8, 2, sw4_PACTION_idx);*/ fprintf(stderr, "%%SWITCH index PACTION(%d) not in range 0:15 at %s:%d\n", sw4_PACTION_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1782 paction(*):debug("* Switch label not set: paction(".itos(gg>>8&15,0).") {gg=".itos(gg,0)."}"); %stop {avoid executing random code} #line 1782 "regression-compile-tmp/vax-pass1.imp" sw4_PACTION_default:; #line 1782 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: paction("),(_imp_string)_imp_ITOS((((int)((((unsigned int)(GG)) >> (8)))) & (15)), 0)),(_imp_string)_imp_str_literal(") {gg=")),(_imp_string)_imp_ITOS(GG, 0)),(_imp_string)_imp_str_literal("}"))); #line 1782 "regression-compile-tmp/vax-pass1.imp" exit(0); // 1783 %FINISH #line 1783 "regression-compile-tmp/vax-pass1.imp" L_0164:; // 1784 // 1785 ->act(class); !only actions left #line 1785 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_idx = CLASS; if ((180 <= sw3_ACT_idx) && (sw3_ACT_idx <= 200)) goto *(sw3_ACT-180)[sw3_ACT_idx]; /* Bounds=180:200 */ else { /*_imp_signal(8, 2, sw3_ACT_idx);*/ fprintf(stderr, "%%SWITCH index ACT(%d) not in range 180:200 at %s:%d\n", sw3_ACT_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1786 act(*):debug("* Switch label not set: act(".itos(class,0).")"); %stop #line 1786 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_default:; #line 1786 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: act("),(_imp_string)_imp_ITOS(CLASS, 0)),(_imp_string)_imp_str_literal(")"))); #line 1786 "regression-compile-tmp/vax-pass1.imp" exit(0); // 1787 a5: !reverse links #line 1787 "regression-compile-tmp/vax-pass1.imp" U_100e:; // 1788 // 1789 s = 0 #line 1789 "regression-compile-tmp/vax-pass1.imp" S = 0; // 1790 %WHILE node # 0 %CYCLE #line 1790 "regression-compile-tmp/vax-pass1.imp" L_0167:; #line 1790 "regression-compile-tmp/vax-pass1.imp" if (((NODE) == (0))) goto L_0168; // 1791 z == ar(node)_link #line 1791 "regression-compile-tmp/vax-pass1.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1792 k = z; z = s; s = node; node = k #line 1792 "regression-compile-tmp/vax-pass1.imp" K = *Z; #line 1792 "regression-compile-tmp/vax-pass1.imp" *Z = S; #line 1792 "regression-compile-tmp/vax-pass1.imp" S = NODE; #line 1792 "regression-compile-tmp/vax-pass1.imp" NODE = K; // 1793 %REPEAT #line 1793 "regression-compile-tmp/vax-pass1.imp" goto L_0167; #line 1793 "regression-compile-tmp/vax-pass1.imp" L_0168:; // 1794 ss = s #line 1794 "regression-compile-tmp/vax-pass1.imp" SS = S; // 1795 // 1796 a6: %IF nmax # 0 %START #line 1796 "regression-compile-tmp/vax-pass1.imp" U_1011:; #line 1796 "regression-compile-tmp/vax-pass1.imp" if (((NMAX) == (0))) goto L_016a; // 1797 k = gentype; !type of phrase #line 1797 "regression-compile-tmp/vax-pass1.imp" K = GENTYPE; // 1798 arp == ar(nmax); nmax = nmax-1 #line 1798 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMAX)) - (1))]; #line 1798 "regression-compile-tmp/vax-pass1.imp" NMAX = (((int)(NMAX)) - (1)); // 1799 node = arp_class #line 1799 "regression-compile-tmp/vax-pass1.imp" NODE = ARP->CLASS; // 1800 gentype = arp_link #line 1800 "regression-compile-tmp/vax-pass1.imp" GENTYPE = ARP->LINK; // 1801 ptype = arp_ptype #line 1801 "regression-compile-tmp/vax-pass1.imp" PTYPE = ARP->PTYPE; // 1802 pformat = arp_pformat #line 1802 "regression-compile-tmp/vax-pass1.imp" PFORMAT = ARP->PFORMAT; // 1803 g = arp_sub #line 1803 "regression-compile-tmp/vax-pass1.imp" G = ARP->SUB; // 1804 %IF g&escape # 0 %START #line 1804 "regression-compile-tmp/vax-pass1.imp" if (((((G) & (4096))) == (0))) goto L_016b; // 1805 g = g-escape #line 1805 "regression-compile-tmp/vax-pass1.imp" G = (((int)(G)) - (4096)); // 1806 papp = arp_papp #line 1806 "regression-compile-tmp/vax-pass1.imp" PAPP = ARP->PAPP; // 1807 mark = 255 #line 1807 "regression-compile-tmp/vax-pass1.imp" MARK = 255; // 1808 subatom = s #line 1808 "regression-compile-tmp/vax-pass1.imp" SUBATOM = S; // 1809 ->a3 #line 1809 "regression-compile-tmp/vax-pass1.imp" goto U_100a; // 1810 %FINISH #line 1810 "regression-compile-tmp/vax-pass1.imp" L_016b:; // 1811 gentype = k %IF gentype = 0 %OR k = real #line 1811 "regression-compile-tmp/vax-pass1.imp" if (((GENTYPE) == (0))) goto L_016c; #line 1811 "regression-compile-tmp/vax-pass1.imp" if (((K) != (2))) goto L_016d; #line 1811 "regression-compile-tmp/vax-pass1.imp" L_016c:; #line 1811 "regression-compile-tmp/vax-pass1.imp" GENTYPE = K; #line 1811 "regression-compile-tmp/vax-pass1.imp" L_016d:; // 1812 type = gen type #line 1812 "regression-compile-tmp/vax-pass1.imp" TYPE = GENTYPE; // 1813 // 1814 k = gg; !exit-point code #line 1814 "regression-compile-tmp/vax-pass1.imp" K = GG; // 1815 %CYCLE #line 1815 "regression-compile-tmp/vax-pass1.imp" L_016e:; // 1816 gg = gram(g) #line 1816 "regression-compile-tmp/vax-pass1.imp" GG = GRAM[G]; // 1817 ->a2 %IF k = 0 #line 1817 "regression-compile-tmp/vax-pass1.imp" if (((K) != (0))) goto L_0171; #line 1817 "regression-compile-tmp/vax-pass1.imp" goto U_101a; #line 1817 "regression-compile-tmp/vax-pass1.imp" L_0171:; // 1818 ->fail1 %IF gg >= 0; !no alternative phrase #line 1818 "regression-compile-tmp/vax-pass1.imp" if (((GG) < (0))) goto L_0172; #line 1818 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1818 "regression-compile-tmp/vax-pass1.imp" L_0172:; // 1819 k = k-order bit #line 1819 "regression-compile-tmp/vax-pass1.imp" K = (((int)(K)) - (4096)); // 1820 g = g+1; !sideways step #line 1820 "regression-compile-tmp/vax-pass1.imp" G = (((int)(G)) + (1)); // 1821 %REPEAT #line 1821 "regression-compile-tmp/vax-pass1.imp" goto L_016e; // 1822 // 1823 %FINISH #line 1823 "regression-compile-tmp/vax-pass1.imp" L_016a:; // 1824 // 1825 pos1 = copy %AND fault(4) %IF copy # 0 #line 1825 "regression-compile-tmp/vax-pass1.imp" if (((COPY) == (0))) goto L_0173; #line 1825 "regression-compile-tmp/vax-pass1.imp" POS1 = COPY; #line 1825 "regression-compile-tmp/vax-pass1.imp" FAULT(4); #line 1825 "regression-compile-tmp/vax-pass1.imp" L_0173:; // 1826 fault(13) %IF order = 0 #line 1826 "regression-compile-tmp/vax-pass1.imp" if (((ORDER) != (0))) goto L_0174; #line 1826 "regression-compile-tmp/vax-pass1.imp" FAULT(13); #line 1826 "regression-compile-tmp/vax-pass1.imp" L_0174:; // 1827 fault(-4) %IF for warn # 0 #line 1827 "regression-compile-tmp/vax-pass1.imp" if (((FORWARN) == (0))) goto L_0175; #line 1827 "regression-compile-tmp/vax-pass1.imp" FAULT((-4)); #line 1827 "regression-compile-tmp/vax-pass1.imp" L_0175:; // 1828 pos1 = 0 #line 1828 "regression-compile-tmp/vax-pass1.imp" POS1 = 0; // 1829 fault rate = fault rate-1 #line 1829 "regression-compile-tmp/vax-pass1.imp" FAULTRATE = (((int)(FAULTRATE)) - (1)); // 1830 %RETURN #line 1830 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 1831 // 1832 act(193):gg = 0 %AND ->a5 %UNLESS sym = '=' %or sym = '<'; !cdummy #line 1832 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_193:; #line 1832 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (61))) goto L_0176; #line 1832 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (60))) goto L_0176; #line 1832 "regression-compile-tmp/vax-pass1.imp" GG = 0; #line 1832 "regression-compile-tmp/vax-pass1.imp" goto U_100e; #line 1832 "regression-compile-tmp/vax-pass1.imp" L_0176:; // 1833 act(181):atom1 = amap(decl&15); !dummy #line 1833 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_181:; #line 1833 "regression-compile-tmp/vax-pass1.imp" ATOM1 = AMAP[((DECL) & (15))]; // 1834 ->more #line 1834 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1835 // 1836 act(182):class = escdec; g = glink(g)!escape #line 1836 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_182:; #line 1836 "regression-compile-tmp/vax-pass1.imp" CLASS = 252; #line 1836 "regression-compile-tmp/vax-pass1.imp" G = ((GLINK[G]) | (4096)); // 1837 decl = 0; otype = 0; ->esc; !decl #line 1837 "regression-compile-tmp/vax-pass1.imp" DECL = 0; #line 1837 "regression-compile-tmp/vax-pass1.imp" OTYPE = 0; #line 1837 "regression-compile-tmp/vax-pass1.imp" goto U_100f; // 1838 // 1839 act(199): #line 1839 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_199:; // 1840 !reverse links; !compile // 1841 // 1842 s = 0 #line 1842 "regression-compile-tmp/vax-pass1.imp" S = 0; // 1843 %WHILE node # 0 %CYCLE #line 1843 "regression-compile-tmp/vax-pass1.imp" L_0177:; #line 1843 "regression-compile-tmp/vax-pass1.imp" if (((NODE) == (0))) goto L_0178; // 1844 z == ar(node)_link #line 1844 "regression-compile-tmp/vax-pass1.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1845 k = z; z = s; s = node; node = k #line 1845 "regression-compile-tmp/vax-pass1.imp" K = *Z; #line 1845 "regression-compile-tmp/vax-pass1.imp" *Z = S; #line 1845 "regression-compile-tmp/vax-pass1.imp" S = NODE; #line 1845 "regression-compile-tmp/vax-pass1.imp" NODE = K; // 1846 %repeat #line 1846 "regression-compile-tmp/vax-pass1.imp" goto L_0177; #line 1846 "regression-compile-tmp/vax-pass1.imp" L_0178:; // 1847 ss = s #line 1847 "regression-compile-tmp/vax-pass1.imp" SS = S; // 1848 // 1849 code atom(28) %IF quote # 0; !expend #line 1849 "regression-compile-tmp/vax-pass1.imp" if (((QUOTE) == (0))) goto L_017a; #line 1849 "regression-compile-tmp/vax-pass1.imp" CODEATOM(28); #line 1849 "regression-compile-tmp/vax-pass1.imp" L_017a:; // 1850 compile; ->more %IF atom1&error = 0 #line 1850 "regression-compile-tmp/vax-pass1.imp" COMPILE(); #line 1850 "regression-compile-tmp/vax-pass1.imp" if (((((ATOM1) & (32768))) != (0))) goto L_017b; #line 1850 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1850 "regression-compile-tmp/vax-pass1.imp" L_017b:; // 1851 ->fail1 #line 1851 "regression-compile-tmp/vax-pass1.imp" goto U_1009; // 1852 // 1853 act(184):->fail4 %UNLESS type = integer #line 1853 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_184:; #line 1853 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) == (1))) goto L_017c; #line 1853 "regression-compile-tmp/vax-pass1.imp" goto U_1012; #line 1853 "regression-compile-tmp/vax-pass1.imp" L_017c:; // 1854 %IF subatom < 0 %THEN lit = tag(-subatom)_format %C #line 1854 "regression-compile-tmp/vax-pass1.imp" if (((SUBATOM) >= (0))) goto L_017d; #line 1854 "regression-compile-tmp/vax-pass1.imp" LIT = TAG[(-(SUBATOM))].FORMAT; #line 1854 "regression-compile-tmp/vax-pass1.imp" goto L_017e; #line 1854 "regression-compile-tmp/vax-pass1.imp" L_017d:; #line 1854 "regression-compile-tmp/vax-pass1.imp" LIT = LITPOOL[SUBATOM]; #line 1854 "regression-compile-tmp/vax-pass1.imp" L_017e:; // 1855 %ELSE lit = lit pool(subatom) // 1856 ->fail4 %IF lit # 0 #line 1856 "regression-compile-tmp/vax-pass1.imp" if (((LIT) == (0))) goto L_017f; #line 1856 "regression-compile-tmp/vax-pass1.imp" goto U_1012; #line 1856 "regression-compile-tmp/vax-pass1.imp" L_017f:; // 1857 ->more #line 1857 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1858 act(185): !apply parameters #line 1858 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_185:; // 1859 s = 0 #line 1859 "regression-compile-tmp/vax-pass1.imp" S = 0; // 1860 %WHILE node # 0 %CYCLE #line 1860 "regression-compile-tmp/vax-pass1.imp" L_0180:; #line 1860 "regression-compile-tmp/vax-pass1.imp" if (((NODE) == (0))) goto L_0181; // 1861 z == ar(node)_link #line 1861 "regression-compile-tmp/vax-pass1.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1862 k = z; z = s; s = node; node = k #line 1862 "regression-compile-tmp/vax-pass1.imp" K = *Z; #line 1862 "regression-compile-tmp/vax-pass1.imp" *Z = S; #line 1862 "regression-compile-tmp/vax-pass1.imp" S = NODE; #line 1862 "regression-compile-tmp/vax-pass1.imp" NODE = K; // 1863 %REPEAT #line 1863 "regression-compile-tmp/vax-pass1.imp" goto L_0180; #line 1863 "regression-compile-tmp/vax-pass1.imp" L_0181:; // 1864 ss = s #line 1864 "regression-compile-tmp/vax-pass1.imp" SS = S; // 1865 // 1866 atom1 = ar(s)_class; atom2 = 0 #line 1866 "regression-compile-tmp/vax-pass1.imp" ATOM1 = AR[(((int)(S)) - (1))].CLASS; #line 1866 "regression-compile-tmp/vax-pass1.imp" ATOM2 = 0; // 1867 atom1 = var %IF atom1 = 97 %OR atom1 = 98 #line 1867 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) == (97))) goto L_0182; #line 1867 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (98))) goto L_0183; #line 1867 "regression-compile-tmp/vax-pass1.imp" L_0182:; #line 1867 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 91; #line 1867 "regression-compile-tmp/vax-pass1.imp" L_0183:; // 1868 arp == ar(nmax) #line 1868 "regression-compile-tmp/vax-pass1.imp" ARP = &AR[(((int)(NMAX)) - (1))]; // 1869 x = arp_x #line 1869 "regression-compile-tmp/vax-pass1.imp" X = ARP->X; // 1870 pos1 = arp_pos #line 1870 "regression-compile-tmp/vax-pass1.imp" POS1 = ARP->POS; // 1871 pos2 = 0 #line 1871 "regression-compile-tmp/vax-pass1.imp" POS2 = 0; // 1872 app = 0 #line 1872 "regression-compile-tmp/vax-pass1.imp" APP = 0; // 1873 format = tag(x)_format #line 1873 "regression-compile-tmp/vax-pass1.imp" FORMAT = TAG[X].FORMAT; // 1874 flags = tag(x)_flags #line 1874 "regression-compile-tmp/vax-pass1.imp" FLAGS = TAG[X].FLAGS; // 1875 type = flags>>4&7 #line 1875 "regression-compile-tmp/vax-pass1.imp" TYPE = (((int)((((unsigned int)(FLAGS)) >> (4)))) & (7)); // 1876 protection = flags&prot #line 1876 "regression-compile-tmp/vax-pass1.imp" PROTECTION = ((FLAGS) & (256)); // 1877 protection = 0 %IF flags&aname # 0 #line 1877 "regression-compile-tmp/vax-pass1.imp" if (((((FLAGS) & (1024))) == (0))) goto L_0184; #line 1877 "regression-compile-tmp/vax-pass1.imp" PROTECTION = 0; #line 1877 "regression-compile-tmp/vax-pass1.imp" L_0184:; // 1878 // 1879 %IF flags&subname # 0 %AND format # 0 %START #line 1879 "regression-compile-tmp/vax-pass1.imp" if (((((FLAGS) & (2048))) == (0))) goto L_0185; #line 1879 "regression-compile-tmp/vax-pass1.imp" if (((FORMAT) == (0))) goto L_0185; // 1880 ->fail1 %if format selected = 0 #line 1880 "regression-compile-tmp/vax-pass1.imp" if (((FORMATSELECTED()) != (0))) goto L_016f; #line 1880 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1880 "regression-compile-tmp/vax-pass1.imp" L_016f:; // 1881 %FINISH #line 1881 "regression-compile-tmp/vax-pass1.imp" L_0185:; // 1882 // 1883 ->a6 #line 1883 "regression-compile-tmp/vax-pass1.imp" goto U_1011; // 1884 // 1885 act(187):protection = prot; ->more; !%SETPROT #line 1885 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_187:; #line 1885 "regression-compile-tmp/vax-pass1.imp" PROTECTION = 256; #line 1885 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1886 act(186):->more %if protection&prot = 0 #line 1886 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_186:; #line 1886 "regression-compile-tmp/vax-pass1.imp" if (((((PROTECTION) & (256))) != (0))) goto L_0186; #line 1886 "regression-compile-tmp/vax-pass1.imp" goto U_1008; #line 1886 "regression-compile-tmp/vax-pass1.imp" L_0186:; // 1887 prot err = nmin #line 1887 "regression-compile-tmp/vax-pass1.imp" PROTERR = NMIN; // 1888 -> a7 #line 1888 "regression-compile-tmp/vax-pass1.imp" goto U_1019; // 1889 act(191):k = protection; !%GUARD #line 1889 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_191:; #line 1889 "regression-compile-tmp/vax-pass1.imp" K = PROTECTION; // 1890 code atom(0) #line 1890 "regression-compile-tmp/vax-pass1.imp" CODEATOM(0); // 1891 protection = k %IF atom flags&aname = 0 #line 1891 "regression-compile-tmp/vax-pass1.imp" if (((((ATOMFLAGS) & (1024))) != (0))) goto L_0187; #line 1891 "regression-compile-tmp/vax-pass1.imp" PROTECTION = K; #line 1891 "regression-compile-tmp/vax-pass1.imp" L_0187:; // 1892 ->more #line 1892 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1893 // 1894 act(192):->fail1 %IF parsed machine code=0 #line 1894 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_192:; #line 1894 "regression-compile-tmp/vax-pass1.imp" if (((PARSEDMACHINECODE()) != (0))) goto L_0188; #line 1894 "regression-compile-tmp/vax-pass1.imp" goto U_1009; #line 1894 "regression-compile-tmp/vax-pass1.imp" L_0188:; // 1895 ->more #line 1895 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1896 // 1897 act(189):k = gapp; !%GAPP #line 1897 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_189:; #line 1897 "regression-compile-tmp/vax-pass1.imp" K = GAPP(); // 1898 delete names(1) #line 1898 "regression-compile-tmp/vax-pass1.imp" DELETENAMES(1); // 1899 tmax = tbase; tbase = gram (gmin); !restore tmax #line 1899 "regression-compile-tmp/vax-pass1.imp" TMAX = TBASE; #line 1899 "regression-compile-tmp/vax-pass1.imp" TBASE = GRAM[GMIN]; // 1900 local= tbase #line 1900 "regression-compile-tmp/vax-pass1.imp" LOCAL = TBASE; // 1901 gmin = gmin+1 #line 1901 "regression-compile-tmp/vax-pass1.imp" GMIN = (((int)(GMIN)) + (1)); // 1902 // 1903 x = ar(ar(nmax)_class)_sub #line 1903 "regression-compile-tmp/vax-pass1.imp" X = AR[(((int)(AR[(((int)(NMAX)) - (1))].CLASS)) - (1))].SUB; // 1904 tag(x)_app = k; !update app #line 1904 "regression-compile-tmp/vax-pass1.imp" TAG[X].APP = K; // 1905 ->more #line 1905 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1906 // 1907 act(190):gmin = gmin-1; !%LOCAL #line 1907 "regression-compile-tmp/vax-pass1.imp" sw3_ACT_190:; #line 1907 "regression-compile-tmp/vax-pass1.imp" GMIN = (((int)(GMIN)) - (1)); // 1908 abandon(2) %IF gmin <= gmax #line 1908 "regression-compile-tmp/vax-pass1.imp" if (((GMIN) > (GMAX))) goto L_0189; #line 1908 "regression-compile-tmp/vax-pass1.imp" ABANDON(2); #line 1908 "regression-compile-tmp/vax-pass1.imp" L_0189:; // 1909 gram (gmin) = tbase; tbase = tmax #line 1909 "regression-compile-tmp/vax-pass1.imp" GRAM[GMIN] = TBASE; #line 1909 "regression-compile-tmp/vax-pass1.imp" TBASE = TMAX; // 1910 local = tbase #line 1910 "regression-compile-tmp/vax-pass1.imp" LOCAL = TBASE; // 1911 ->more #line 1911 "regression-compile-tmp/vax-pass1.imp" goto U_1008; // 1912 // 1913 ! errors // 1914 // 1915 fail4:k = error+10; ->failed; !*size #line 1915 "regression-compile-tmp/vax-pass1.imp" U_1012:; #line 1915 "regression-compile-tmp/vax-pass1.imp" K = 32778; #line 1915 "regression-compile-tmp/vax-pass1.imp" goto U_1013; // 1916 fail3:k = error+7; ->failed; !*context #line 1916 "regression-compile-tmp/vax-pass1.imp" U_1018:; #line 1916 "regression-compile-tmp/vax-pass1.imp" K = 32775; #line 1916 "regression-compile-tmp/vax-pass1.imp" goto U_1013; // 1917 fail2:k = error+5; pos2 = 0; ->failed; !*type #line 1917 "regression-compile-tmp/vax-pass1.imp" U_1017:; #line 1917 "regression-compile-tmp/vax-pass1.imp" K = 32773; #line 1917 "regression-compile-tmp/vax-pass1.imp" POS2 = 0; #line 1917 "regression-compile-tmp/vax-pass1.imp" goto U_1013; // 1918 fail0:k = error+3; ->failed; !*too complex #line 1918 "regression-compile-tmp/vax-pass1.imp" U_100d:; #line 1918 "regression-compile-tmp/vax-pass1.imp" K = 32771; #line 1918 "regression-compile-tmp/vax-pass1.imp" goto U_1013; // 1919 fail1:k = atom1; pos2 = 0 #line 1919 "regression-compile-tmp/vax-pass1.imp" U_1009:; #line 1919 "regression-compile-tmp/vax-pass1.imp" K = ATOM1; #line 1919 "regression-compile-tmp/vax-pass1.imp" POS2 = 0; // 1920 // 1921 failed: #line 1921 "regression-compile-tmp/vax-pass1.imp" U_1013:; // 1922 %IF diag&32 # 0 %START #line 1922 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (32))) == (0))) goto L_018a; // 1923 printstring("Atom1 =") #line 1923 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Atom1 =")); // 1924 write(atom1, 3) #line 1924 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(ATOM1, 3); // 1925 printstring(" Atom2 =") #line 1925 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" Atom2 =")); // 1926 write(atom2, 3) #line 1926 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(ATOM2, 3); // 1927 printstring(" subatom =") #line 1927 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" subatom =")); // 1928 write(subatom, 3) #line 1928 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(SUBATOM, 3); // 1929 newline #line 1929 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 1930 printstring("Type =") #line 1930 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Type =")); // 1931 write(type, 1) #line 1931 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(TYPE, 1); // 1932 printstring(" Ptype =") #line 1932 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" Ptype =")); // 1933 write(ptype, 1) #line 1933 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(PTYPE, 1); // 1934 newline #line 1934 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 1935 printstring("App =") #line 1935 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("App =")); // 1936 write(app, 1) #line 1936 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(APP, 1); // 1937 printstring(" Papp =") #line 1937 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" Papp =")); // 1938 write(papp, 1) #line 1938 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(PAPP, 1); // 1939 newline #line 1939 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 1940 printstring("Format =") #line 1940 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("Format =")); // 1941 write(format, 1) #line 1941 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(FORMAT, 1); // 1942 printstring(" Pformat =") #line 1942 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal(" Pformat =")); // 1943 write(pformat, 1) #line 1943 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(PFORMAT, 1); // 1944 newline #line 1944 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 1945 %monitor #line 1945 "regression-compile-tmp/vax-pass1.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); // 1946 %FINISH #line 1946 "regression-compile-tmp/vax-pass1.imp" L_018a:; // 1947 // 1948 quote = 0 %AND readsym %WHILE sym # nl %AND sym # ';' #line 1948 "regression-compile-tmp/vax-pass1.imp" L_018b:; #line 1948 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_018c; #line 1948 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (59))) goto L_018c; #line 1948 "regression-compile-tmp/vax-pass1.imp" QUOTE = 0; #line 1948 "regression-compile-tmp/vax-pass1.imp" READSYM(); #line 1948 "regression-compile-tmp/vax-pass1.imp" goto L_018b; #line 1948 "regression-compile-tmp/vax-pass1.imp" L_018c:; // 1949 %IF k&error # 0 %START #line 1949 "regression-compile-tmp/vax-pass1.imp" if (((((K) & (32768))) == (0))) goto L_018e; // 1950 fault(k&255) #line 1950 "regression-compile-tmp/vax-pass1.imp" FAULT(((K) & (255))); // 1951 %FINISH %ELSE %START #line 1951 "regression-compile-tmp/vax-pass1.imp" goto L_018f; #line 1951 "regression-compile-tmp/vax-pass1.imp" L_018e:; // 1952 %IF prot err = nmin %THEN fault(14) %ELSE fault(0) #line 1952 "regression-compile-tmp/vax-pass1.imp" if (((PROTERR) != (NMIN))) goto L_0190; #line 1952 "regression-compile-tmp/vax-pass1.imp" FAULT(14); #line 1952 "regression-compile-tmp/vax-pass1.imp" goto L_0191; #line 1952 "regression-compile-tmp/vax-pass1.imp" L_0190:; #line 1952 "regression-compile-tmp/vax-pass1.imp" FAULT(0); #line 1952 "regression-compile-tmp/vax-pass1.imp" L_0191:; // 1953 %FINISH #line 1953 "regression-compile-tmp/vax-pass1.imp" L_018f:; // 1954 gg = 0; ss = 0; symtype = 0 #line 1954 "regression-compile-tmp/vax-pass1.imp" GG = 0; #line 1954 "regression-compile-tmp/vax-pass1.imp" SS = 0; #line 1954 "regression-compile-tmp/vax-pass1.imp" SYMTYPE = 0; // 1955 %END; !of analyse #line 1955 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; sw4_PACTION_8:; sw4_PACTION_9:; sw4_PACTION_10:; sw4_PACTION_11:; sw4_PACTION_12:; sw4_PACTION_13:; sw4_PACTION_14:; sw4_PACTION_15:; goto sw4_PACTION_default; sw3_ACT_180:; sw3_ACT_200:; goto sw3_ACT_default; } // End of block ANALYSE at level 3 // 1956 // 1957 %ROUTINE compile #line 1957 "regression-compile-tmp/vax-pass1.imp" void COMPILE( void ) #line 1957 "regression-compile-tmp/vax-pass1.imp" { // 1958 // 1959 %CONSTINTEGER then = 4, else = 8, loop = 16 // 1960 // 1961 %SWITCH c(0:actions), litop(1:12) #line 1961 "regression-compile-tmp/vax-pass1.imp" static int sw5_C_idx; static const void * /*SWITCH*/ sw5_C[181] = { &&sw5_C_0, &&sw5_C_1, &&sw5_C_2, &&sw5_C_3, &&sw5_C_4, &&sw5_C_5, &&sw5_C_6, &&sw5_C_7, &&sw5_C_8, &&sw5_C_9, &&sw5_C_10, &&sw5_C_11, &&sw5_C_12, &&sw5_C_13, &&sw5_C_14, &&sw5_C_15, &&sw5_C_16, &&sw5_C_17, &&sw5_C_18, &&sw5_C_19, &&sw5_C_20, &&sw5_C_21, &&sw5_C_22, &&sw5_C_23, &&sw5_C_24, &&sw5_C_25, &&sw5_C_26, &&sw5_C_27, &&sw5_C_28, &&sw5_C_29, &&sw5_C_30, &&sw5_C_31, &&sw5_C_32, &&sw5_C_33, &&sw5_C_34, &&sw5_C_35, &&sw5_C_36, &&sw5_C_37, &&sw5_C_38, &&sw5_C_39, &&sw5_C_40, &&sw5_C_41, &&sw5_C_42, &&sw5_C_43, &&sw5_C_44, &&sw5_C_45, &&sw5_C_46, &&sw5_C_47, &&sw5_C_48, &&sw5_C_49, &&sw5_C_50, &&sw5_C_51, &&sw5_C_52, &&sw5_C_53, &&sw5_C_54, &&sw5_C_55, &&sw5_C_56, &&sw5_C_57, &&sw5_C_58, &&sw5_C_59, &&sw5_C_60, &&sw5_C_61, &&sw5_C_62, &&sw5_C_63, &&sw5_C_64, &&sw5_C_65, &&sw5_C_66, &&sw5_C_67, &&sw5_C_68, &&sw5_C_69, &&sw5_C_70, &&sw5_C_71, &&sw5_C_72, &&sw5_C_73, &&sw5_C_74, &&sw5_C_75, &&sw5_C_76, &&sw5_C_77, &&sw5_C_78, &&sw5_C_79, &&sw5_C_80, &&sw5_C_81, &&sw5_C_82, &&sw5_C_83, &&sw5_C_84, &&sw5_C_85, &&sw5_C_86, &&sw5_C_87, &&sw5_C_88, &&sw5_C_89, &&sw5_C_90, &&sw5_C_91, &&sw5_C_92, &&sw5_C_93, &&sw5_C_94, &&sw5_C_95, &&sw5_C_96, &&sw5_C_97, &&sw5_C_98, &&sw5_C_99, &&sw5_C_100, &&sw5_C_101, &&sw5_C_102, &&sw5_C_103, &&sw5_C_104, &&sw5_C_105, &&sw5_C_106, &&sw5_C_107, &&sw5_C_108, &&sw5_C_109, &&sw5_C_110, &&sw5_C_111, &&sw5_C_112, &&sw5_C_113, &&sw5_C_114, &&sw5_C_115, &&sw5_C_116, &&sw5_C_117, &&sw5_C_118, &&sw5_C_119, &&sw5_C_120, &&sw5_C_121, &&sw5_C_122, &&sw5_C_123, &&sw5_C_124, &&sw5_C_125, &&sw5_C_126, &&sw5_C_127, &&sw5_C_128, &&sw5_C_129, &&sw5_C_130, &&sw5_C_131, &&sw5_C_132, &&sw5_C_133, &&sw5_C_134, &&sw5_C_135, &&sw5_C_136, &&sw5_C_137, &&sw5_C_138, &&sw5_C_139, &&sw5_C_140, &&sw5_C_141, &&sw5_C_142, &&sw5_C_143, &&sw5_C_144, &&sw5_C_145, &&sw5_C_146, &&sw5_C_147, &&sw5_C_148, &&sw5_C_149, &&sw5_C_150, &&sw5_C_151, &&sw5_C_152, &&sw5_C_153, &&sw5_C_154, &&sw5_C_155, &&sw5_C_156, &&sw5_C_157, &&sw5_C_158, &&sw5_C_159, &&sw5_C_160, &&sw5_C_161, &&sw5_C_162, &&sw5_C_163, &&sw5_C_164, &&sw5_C_165, &&sw5_C_166, &&sw5_C_167, &&sw5_C_168, &&sw5_C_169, &&sw5_C_170, &&sw5_C_171, &&sw5_C_172, &&sw5_C_173, &&sw5_C_174, &&sw5_C_175, &&sw5_C_176, &&sw5_C_177, &&sw5_C_178, &&sw5_C_179, &&sw5_C_180, }; #line 1961 "regression-compile-tmp/vax-pass1.imp" static int sw6_LITOP_idx; static const void * /*SWITCH*/ sw6_LITOP[12] = { &&sw6_LITOP_1, &&sw6_LITOP_2, &&sw6_LITOP_3, &&sw6_LITOP_4, &&sw6_LITOP_5, &&sw6_LITOP_6, &&sw6_LITOP_7, &&sw6_LITOP_8, &&sw6_LITOP_9, &&sw6_LITOP_10, &&sw6_LITOP_11, &&sw6_LITOP_12, }; // 1962 // 1963 %CONSTBYTEINTEGERARRAY operator(1:14) = %C #line 1963 "regression-compile-tmp/vax-pass1.imp" const unsigned char OPERATOR[14] = { 91, 93, 88, 47, 38, 33, 37, 43, 45, 42, 81, 120, 46, 118, }; // 1964 '[', ']', 'X', '/', '&', '!', '%', '+', // 1965 '-', '*', 'Q', 'x', '.', 'v' // 1966 // 1967 %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t' #line 1967 "regression-compile-tmp/vax-pass1.imp" const unsigned char CC[8] = { 35, 61, 41, 60, 40, 62, 107, 116, }; // 1968 // 1969 %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1 #line 1969 "regression-compile-tmp/vax-pass1.imp" const unsigned char ANYFORM[16] = { 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, }; // 1970 // 1971 %CONSTSHORTINTEGERARRAY decmap(0:15) = %C #line 1971 "regression-compile-tmp/vax-pass1.imp" const short DECMAP[16] = { 1, 2, 4107, 4109, 5132, 5134, 3, 4, 4103, 4104, 4105, 4106, 6, 0, 0, 0, }; // 1972 1, 2, // 1973 16_100B, 16_100D, 16_140C, 16_140E, // 1974 3, 4, // 1975 16_1007, 16_1008, 16_1009, 16_100A, // 1976 6, 0, 0, 0 // 1977 %OWNBYTEINTEGERARRAY cnest(0:15) #line 1977 "regression-compile-tmp/vax-pass1.imp" static unsigned char CNEST[16]; // 1978 %INTEGER lmode, clab, dupid #line 1978 "regression-compile-tmp/vax-pass1.imp" int LMODE; #line 1978 "regression-compile-tmp/vax-pass1.imp" int CLAB; #line 1978 "regression-compile-tmp/vax-pass1.imp" int DUPID; // 1979 %INTEGER resln #line 1979 "regression-compile-tmp/vax-pass1.imp" int RESLN; // 1980 %OWNINTEGER last def = 0 #line 1980 "regression-compile-tmp/vax-pass1.imp" static int LASTDEF = 0; // 1981 %OWNINTEGER lb, ub #line 1981 "regression-compile-tmp/vax-pass1.imp" static int LB; #line 1981 "regression-compile-tmp/vax-pass1.imp" static int UB; // 1982 %INTEGER cp, ord #line 1982 "regression-compile-tmp/vax-pass1.imp" int CP; #line 1982 "regression-compile-tmp/vax-pass1.imp" int ORD; // 1983 %INTEGER next, link, j, k, n, done #line 1983 "regression-compile-tmp/vax-pass1.imp" int NEXT; #line 1983 "regression-compile-tmp/vax-pass1.imp" int LINK; #line 1983 "regression-compile-tmp/vax-pass1.imp" int J; #line 1983 "regression-compile-tmp/vax-pass1.imp" int K; #line 1983 "regression-compile-tmp/vax-pass1.imp" int N; #line 1983 "regression-compile-tmp/vax-pass1.imp" int DONE; // 1984 %INTEGER class #line 1984 "regression-compile-tmp/vax-pass1.imp" int CLASS; // 1985 %INTEGER lit2, defs, decs, cident #line 1985 "regression-compile-tmp/vax-pass1.imp" int LIT2; #line 1985 "regression-compile-tmp/vax-pass1.imp" int DEFS; #line 1985 "regression-compile-tmp/vax-pass1.imp" int DECS; #line 1985 "regression-compile-tmp/vax-pass1.imp" int CIDENT; // 1986 %INTEGER pending; %OWNINTEGERARRAY pstack(1:40) #line 1986 "regression-compile-tmp/vax-pass1.imp" int PENDING; #line 1986 "regression-compile-tmp/vax-pass1.imp" static int PSTACK[40]; // 1987 %OWNSTRING(8) name = "" #line 1987 "regression-compile-tmp/vax-pass1.imp" static _imp_string /*%string(8)*/ NAME = _imp_str_literal(""); // 1988 %OWNINTEGER count = 0 #line 1988 "regression-compile-tmp/vax-pass1.imp" static int COUNT = 0; // 1989 // 1990 %ROUTINE def lab(%INTEGER l) #line 1990 "regression-compile-tmp/vax-pass1.imp" void DEFLAB( int L ) #line 1990 "regression-compile-tmp/vax-pass1.imp" { // 1991 op(':', l) #line 1991 "regression-compile-tmp/vax-pass1.imp" OP(58, L); // 1992 access = 1 #line 1992 "regression-compile-tmp/vax-pass1.imp" ACCESS = 1; // 1993 %END #line 1993 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFLAB at level 4 // 1994 // 1995 %ROUTINE get next #line 1995 "regression-compile-tmp/vax-pass1.imp" void GETNEXT( void ) #line 1995 "regression-compile-tmp/vax-pass1.imp" { // 1996 %RECORD(arfm)%NAME p; !imp77: #line 1996 "regression-compile-tmp/vax-pass1.imp" ARFM /*name*/*P; // 1997 gn: %IF next = 0 %START; !end of phrase #line 1997 "regression-compile-tmp/vax-pass1.imp" U_1012:; #line 1997 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) != (0))) goto L_0192; // 1998 class = 0 %AND %RETURN %IF link = 0; !end of statement #line 1998 "regression-compile-tmp/vax-pass1.imp" if (((LINK) != (0))) goto L_0193; #line 1998 "regression-compile-tmp/vax-pass1.imp" CLASS = 0; #line 1998 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 1998 "regression-compile-tmp/vax-pass1.imp" L_0193:; // 1999 p == ar(link) #line 1999 "regression-compile-tmp/vax-pass1.imp" P = &AR[(((int)(LINK)) - (1))]; // 2000 next = p_link #line 2000 "regression-compile-tmp/vax-pass1.imp" NEXT = P->LINK; // 2001 link = p_sub #line 2001 "regression-compile-tmp/vax-pass1.imp" LINK = P->SUB; // 2002 %FINISH #line 2002 "regression-compile-tmp/vax-pass1.imp" L_0192:; // 2003 %CYCLE #line 2003 "regression-compile-tmp/vax-pass1.imp" L_0194:; // 2004 p == ar(next) #line 2004 "regression-compile-tmp/vax-pass1.imp" P = &AR[(((int)(NEXT)) - (1))]; // 2005 x = p_sub #line 2005 "regression-compile-tmp/vax-pass1.imp" X = P->SUB; // 2006 class = p_class #line 2006 "regression-compile-tmp/vax-pass1.imp" CLASS = P->CLASS; // 2007 %EXIT %IF class < actions; !an atom #line 2007 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) >= (180))) goto L_0197; #line 2007 "regression-compile-tmp/vax-pass1.imp" goto L_0195; #line 2007 "regression-compile-tmp/vax-pass1.imp" L_0197:; // 2008 %IF x = 0 %START; !null phrase #line 2008 "regression-compile-tmp/vax-pass1.imp" if (((X) != (0))) goto L_0198; // 2009 next = p_link; ->gn #line 2009 "regression-compile-tmp/vax-pass1.imp" NEXT = P->LINK; #line 2009 "regression-compile-tmp/vax-pass1.imp" goto U_1012; // 2010 %FINISH #line 2010 "regression-compile-tmp/vax-pass1.imp" L_0198:; // 2011 %IF p_link # 0 %START; !follow a phrase #line 2011 "regression-compile-tmp/vax-pass1.imp" if (((P->LINK) == (0))) goto L_0199; // 2012 p_sub = link; link = next #line 2012 "regression-compile-tmp/vax-pass1.imp" P->SUB = LINK; #line 2012 "regression-compile-tmp/vax-pass1.imp" LINK = NEXT; // 2013 %FINISH #line 2013 "regression-compile-tmp/vax-pass1.imp" L_0199:; // 2014 next = x #line 2014 "regression-compile-tmp/vax-pass1.imp" NEXT = X; // 2015 %REPEAT #line 2015 "regression-compile-tmp/vax-pass1.imp" goto L_0194; #line 2015 "regression-compile-tmp/vax-pass1.imp" L_0195:; // 2016 next = p_link #line 2016 "regression-compile-tmp/vax-pass1.imp" NEXT = P->LINK; // 2017 %IF diag&2 # 0 %START #line 2017 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (2))) == (0))) goto L_019a; // 2018 spaces(8-length(name)) %UNLESS name = "" #line 2018 "regression-compile-tmp/vax-pass1.imp" if ((_imp_strcmp(NAME, _imp_str_literal("")) == 0)) goto L_019b; #line 2018 "regression-compile-tmp/vax-pass1.imp" _imp_SPACES(((8) - (*(int *)(_imp_LENGTH(&NAME))))); #line 2018 "regression-compile-tmp/vax-pass1.imp" L_019b:; // 2019 name = text(class) #line 2019 "regression-compile-tmp/vax-pass1.imp" NAME = TEXT[CLASS]; // 2020 write(x, 2) #line 2020 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(X, 2); // 2021 space #line 2021 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 2022 printstring(name) #line 2022 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(NAME); // 2023 space #line 2023 "regression-compile-tmp/vax-pass1.imp" _imp_SPACE(); // 2024 count = count-1 #line 2024 "regression-compile-tmp/vax-pass1.imp" COUNT = (((int)(COUNT)) - (1)); // 2025 %IF count <= 0 %START #line 2025 "regression-compile-tmp/vax-pass1.imp" if (((COUNT) > (0))) goto L_019c; // 2026 count = 5 #line 2026 "regression-compile-tmp/vax-pass1.imp" COUNT = 5; // 2027 name = "" #line 2027 "regression-compile-tmp/vax-pass1.imp" NAME = _imp_str_literal(""); // 2028 newline #line 2028 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 2029 %FINISH #line 2029 "regression-compile-tmp/vax-pass1.imp" L_019c:; // 2030 %FINISH #line 2030 "regression-compile-tmp/vax-pass1.imp" L_019a:; // 2031 %END #line 2031 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GETNEXT at level 4 // 2032 // 2033 %ROUTINE set subs(%INTEGER n) #line 2033 "regression-compile-tmp/vax-pass1.imp" void SETSUBS( int N ) #line 2033 "regression-compile-tmp/vax-pass1.imp" { // 2034 // 2035 !update the app field in n array descriptors // 2036 // 2037 %INTEGER p #line 2037 "regression-compile-tmp/vax-pass1.imp" int P; // 2038 p = tmax #line 2038 "regression-compile-tmp/vax-pass1.imp" P = TMAX; // 2039 %WHILE n > 0 %CYCLE #line 2039 "regression-compile-tmp/vax-pass1.imp" L_019d:; #line 2039 "regression-compile-tmp/vax-pass1.imp" if (((N) <= (0))) goto L_019e; // 2040 %SIGNAL 15,15 %IF p < tbase #line 2040 "regression-compile-tmp/vax-pass1.imp" if (((P) >= (TBASE))) goto L_01a0; #line 2040 "regression-compile-tmp/vax-pass1.imp" _imp_signal(15, 15, 0, ""); #line 2040 "regression-compile-tmp/vax-pass1.imp" L_01a0:; // 2041 tag(p)_app = dimension #line 2041 "regression-compile-tmp/vax-pass1.imp" TAG[P].APP = DIMENSION; // 2042 p = p-1; n = n-1 #line 2042 "regression-compile-tmp/vax-pass1.imp" P = (((int)(P)) - (1)); #line 2042 "regression-compile-tmp/vax-pass1.imp" N = (((int)(N)) - (1)); // 2043 %REPEAT #line 2043 "regression-compile-tmp/vax-pass1.imp" goto L_019d; #line 2043 "regression-compile-tmp/vax-pass1.imp" L_019e:; // 2044 %END #line 2044 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETSUBS at level 4 // 2045 // 2046 %ROUTINE set bp #line 2046 "regression-compile-tmp/vax-pass1.imp" void SETBP( void ) #line 2046 "regression-compile-tmp/vax-pass1.imp" { // 2047 // 2048 !define a constant bound pair from the last stacked constants // 2049 // 2050 pending = pending-2 #line 2050 "regression-compile-tmp/vax-pass1.imp" PENDING = (((int)(PENDING)) - (2)); // 2051 lb = pstack(pending+1); ub = pstack(pending+2) #line 2051 "regression-compile-tmp/vax-pass1.imp" LB = (PSTACK-1)[(((int)(PENDING)) + (1))]; #line 2051 "regression-compile-tmp/vax-pass1.imp" UB = (PSTACK-1)[(((int)(PENDING)) + (2))]; // 2052 %IF ub < lb-1 %START #line 2052 "regression-compile-tmp/vax-pass1.imp" if (((UB) >= ((((int)(LB)) - (1))))) goto L_01a1; // 2053 pos1 = 0; next = link; fault(11) #line 2053 "regression-compile-tmp/vax-pass1.imp" POS1 = 0; #line 2053 "regression-compile-tmp/vax-pass1.imp" NEXT = LINK; #line 2053 "regression-compile-tmp/vax-pass1.imp" FAULT(11); // 2054 ub = lb #line 2054 "regression-compile-tmp/vax-pass1.imp" UB = LB; // 2055 %FINISH #line 2055 "regression-compile-tmp/vax-pass1.imp" L_01a1:; // 2056 set const(lb); set const(ub) #line 2056 "regression-compile-tmp/vax-pass1.imp" SETCONST(LB); #line 2056 "regression-compile-tmp/vax-pass1.imp" SETCONST(UB); // 2057 put('b') %UNLESS class = 146 #line 2057 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) == (146))) goto L_01a2; #line 2057 "regression-compile-tmp/vax-pass1.imp" PUT(98); #line 2057 "regression-compile-tmp/vax-pass1.imp" L_01a2:; // 2058 %END #line 2058 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETBP at level 4 // 2059 // 2060 %ROUTINE compile end(%INTEGER type) #line 2060 "regression-compile-tmp/vax-pass1.imp" void COMPILEEND( int TYPE ) #line 2060 "regression-compile-tmp/vax-pass1.imp" { // 2061 // 2062 ! type = 0:eof, 1:eop, 2:end // 2063 // 2064 %IF access # 0 %START #line 2064 "regression-compile-tmp/vax-pass1.imp" if (((ACCESS) == (0))) goto L_01a3; // 2065 open = 0 #line 2065 "regression-compile-tmp/vax-pass1.imp" OPEN = 0; // 2066 fault(19) %IF block form > proc; !can reach end #line 2066 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKFORM) <= (7))) goto L_01a4; #line 2066 "regression-compile-tmp/vax-pass1.imp" FAULT(19); #line 2066 "regression-compile-tmp/vax-pass1.imp" L_01a4:; // 2067 %FINISH #line 2067 "regression-compile-tmp/vax-pass1.imp" L_01a3:; // 2068 // 2069 %WHILE dict(dmin) >= 0 %CYCLE; !finishes & repeats #line 2069 "regression-compile-tmp/vax-pass1.imp" L_01a5:; #line 2069 "regression-compile-tmp/vax-pass1.imp" if (((DICT[(((int)(DMIN)) - (1))]) < (0))) goto L_01a6; // 2070 fault(17+dict(dmin)&1) #line 2070 "regression-compile-tmp/vax-pass1.imp" FAULT(((17) + ((int)(((DICT[(((int)(DMIN)) - (1))]) & (1)))))); // 2071 dmin = dmin+1 #line 2071 "regression-compile-tmp/vax-pass1.imp" DMIN = (((int)(DMIN)) + (1)); // 2072 %REPEAT #line 2072 "regression-compile-tmp/vax-pass1.imp" goto L_01a5; #line 2072 "regression-compile-tmp/vax-pass1.imp" L_01a6:; // 2073 {delete names(0)} // 2074 put(';') #line 2074 "regression-compile-tmp/vax-pass1.imp" PUT(59); // 2075 put(';') %IF type = 1; !endofprogram #line 2075 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) != (1))) goto L_01a8; #line 2075 "regression-compile-tmp/vax-pass1.imp" PUT(59); #line 2075 "regression-compile-tmp/vax-pass1.imp" L_01a8:; // 2076 // 2077 bflags = bflags!open; !show if it returns #line 2077 "regression-compile-tmp/vax-pass1.imp" *BFLAGS = ((*BFLAGS) | (OPEN)); // 2078 // 2079 def lab(0) %IF block tag # 0 %AND level # 1; !for jump around #line 2079 "regression-compile-tmp/vax-pass1.imp" if (((BLOCKTAG) == (0))) goto L_01a9; #line 2079 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) == (1))) goto L_01a9; #line 2079 "regression-compile-tmp/vax-pass1.imp" DEFLAB(0); #line 2079 "regression-compile-tmp/vax-pass1.imp" L_01a9:; // 2080 %IF type # 2 %START; !eop, eof #line 2080 "regression-compile-tmp/vax-pass1.imp" if (((TYPE) == (2))) goto L_01aa; // 2081 fault(16) %IF level # type; !end missing #line 2081 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) == (TYPE))) goto L_01ab; #line 2081 "regression-compile-tmp/vax-pass1.imp" FAULT(16); #line 2081 "regression-compile-tmp/vax-pass1.imp" L_01ab:; // 2082 %FINISH %ELSE %START #line 2082 "regression-compile-tmp/vax-pass1.imp" goto L_01ac; #line 2082 "regression-compile-tmp/vax-pass1.imp" L_01aa:; // 2083 %IF level = 0 %START #line 2083 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) != (0))) goto L_01ad; // 2084 fault(15); !spurious end #line 2084 "regression-compile-tmp/vax-pass1.imp" FAULT(15); // 2085 %FINISH #line 2085 "regression-compile-tmp/vax-pass1.imp" L_01ad:; // 2086 %FINISH #line 2086 "regression-compile-tmp/vax-pass1.imp" L_01ac:; // 2087 // 2088 !end mark = 11; !IMP77 // 2089 %END #line 2089 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block COMPILEEND at level 4 // 2090 // 2091 %ROUTINE def(%INTEGER p) #line 2091 "regression-compile-tmp/vax-pass1.imp" void DEF( int P ) #line 2091 "regression-compile-tmp/vax-pass1.imp" { // 2092 // 2093 !dump a descriptor // 2094 // 2095 %INTEGER t, f, type #line 2095 "regression-compile-tmp/vax-pass1.imp" int T; #line 2095 "regression-compile-tmp/vax-pass1.imp" int F; #line 2095 "regression-compile-tmp/vax-pass1.imp" int TYPE; // 2096 %RECORD(tagfm)%NAME v; !imp77: #line 2096 "regression-compile-tmp/vax-pass1.imp" TAGFM /*name*/*V; // 2097 defs = defs+1 #line 2097 "regression-compile-tmp/vax-pass1.imp" DEFS = (((int)(DEFS)) + (1)); // 2098 v == tag(p) #line 2098 "regression-compile-tmp/vax-pass1.imp" V = &TAG[P]; // 2099 t = 0 #line 2099 "regression-compile-tmp/vax-pass1.imp" T = 0; // 2100 put('$') #line 2100 "regression-compile-tmp/vax-pass1.imp" PUT(36); // 2101 %UNLESS v_index < 0 %START; !no index for subnames #line 2101 "regression-compile-tmp/vax-pass1.imp" if (((V->INDEX) < (0))) goto L_01ae; // 2102 id = id+1 %AND v_index = id %IF v_index = 0 #line 2102 "regression-compile-tmp/vax-pass1.imp" if (((V->INDEX) != (0))) goto L_01af; #line 2102 "regression-compile-tmp/vax-pass1.imp" ID = (((int)(ID)) + (1)); #line 2102 "regression-compile-tmp/vax-pass1.imp" V->INDEX = ID; #line 2102 "regression-compile-tmp/vax-pass1.imp" L_01af:; // 2103 last def = v_index #line 2103 "regression-compile-tmp/vax-pass1.imp" LASTDEF = V->INDEX; // 2104 putword(lastdef) #line 2104 "regression-compile-tmp/vax-pass1.imp" PUTWORD(LASTDEF); // 2105 %FINISH %else putword(0) #line 2105 "regression-compile-tmp/vax-pass1.imp" goto L_01b0; #line 2105 "regression-compile-tmp/vax-pass1.imp" L_01ae:; #line 2105 "regression-compile-tmp/vax-pass1.imp" PUTWORD(0); #line 2105 "regression-compile-tmp/vax-pass1.imp" L_01b0:; // 2106 print ident(p, 1); !output the name #line 2106 "regression-compile-tmp/vax-pass1.imp" PRINTIDENT(P, 1); // 2107 t = v_flags #line 2107 "regression-compile-tmp/vax-pass1.imp" T = V->FLAGS; // 2108 type = t #line 2108 "regression-compile-tmp/vax-pass1.imp" TYPE = T; // 2109 type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred #line 2109 "regression-compile-tmp/vax-pass1.imp" if (((((TYPE) & (((7) << (4))))) < (((6) << (4))))) goto L_01b1; #line 2109 "regression-compile-tmp/vax-pass1.imp" TYPE = ((TYPE) & ((~(((7) << (4)))))); #line 2109 "regression-compile-tmp/vax-pass1.imp" L_01b1:; // 2110 put(','); put(type&2_1111111); !type & form #line 2110 "regression-compile-tmp/vax-pass1.imp" PUT(44); #line 2110 "regression-compile-tmp/vax-pass1.imp" PUT(((TYPE) & (127))); // 2111 f = v_format #line 2111 "regression-compile-tmp/vax-pass1.imp" F = V->FORMAT; // 2112 f = tag(f)_index %IF t&16_70 = record<<4 #line 2112 "regression-compile-tmp/vax-pass1.imp" if (((((T) & (112))) != (((4) << (4))))) goto L_01b2; #line 2112 "regression-compile-tmp/vax-pass1.imp" F = TAG[F].INDEX; #line 2112 "regression-compile-tmp/vax-pass1.imp" L_01b2:; // 2113 f = v_index %IF f < 0 #line 2113 "regression-compile-tmp/vax-pass1.imp" if (((F) >= (0))) goto L_01b3; #line 2113 "regression-compile-tmp/vax-pass1.imp" F = V->INDEX; #line 2113 "regression-compile-tmp/vax-pass1.imp" L_01b3:; // 2114 op(',', f); !format #line 2114 "regression-compile-tmp/vax-pass1.imp" OP(44, F); // 2115 f = otype+t>>4&2_1111000 #line 2115 "regression-compile-tmp/vax-pass1.imp" F = ((OTYPE) + ((int)((((int)((((unsigned int)(T)) >> (4)))) & (120))))); // 2116 f = f!8 %IF class = 125; !add spec from %DUP #line 2116 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) != (125))) goto L_01b4; #line 2116 "regression-compile-tmp/vax-pass1.imp" F = ((F) | (8)); #line 2116 "regression-compile-tmp/vax-pass1.imp" L_01b4:; // 2117 dim = v_app; !dimension #line 2117 "regression-compile-tmp/vax-pass1.imp" DIM = V->APP; // 2118 dim = 0 %unless 0 < dim <= dim limit #line 2118 "regression-compile-tmp/vax-pass1.imp" if ((((0) >= (DIM))) || (((DIM) <= (6)))) goto L_01b5; #line 2118 "regression-compile-tmp/vax-pass1.imp" L_01a7:; #line 2118 "regression-compile-tmp/vax-pass1.imp" DIM = 0; #line 2118 "regression-compile-tmp/vax-pass1.imp" L_01b5:; // 2119 put(','); putlong(f+dim<<8); !otype & spec & prot #line 2119 "regression-compile-tmp/vax-pass1.imp" PUT(44); #line 2119 "regression-compile-tmp/vax-pass1.imp" PUTLONG(((F) + ((int)(((DIM) << (8)))))); // 2120 defs = 0 %IF t¶meters = 0 #line 2120 "regression-compile-tmp/vax-pass1.imp" if (((((T) & (4096))) != (0))) goto L_01b6; #line 2120 "regression-compile-tmp/vax-pass1.imp" DEFS = 0; #line 2120 "regression-compile-tmp/vax-pass1.imp" L_01b6:; // 2121 f = t&15 #line 2121 "regression-compile-tmp/vax-pass1.imp" F = ((T) & (15)); // 2122 %IF v_flags&spec # 0 %START #line 2122 "regression-compile-tmp/vax-pass1.imp" if (((((V->FLAGS) & (128))) == (0))) goto L_01b7; // 2123 v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10 #line 2123 "regression-compile-tmp/vax-pass1.imp" if ((((3) > (F))) || (((F) <= (10)))) goto L_01b8; #line 2123 "regression-compile-tmp/vax-pass1.imp" L_0170:; #line 2123 "regression-compile-tmp/vax-pass1.imp" V->FLAGS = ((V->FLAGS) & ((~(128)))); #line 2123 "regression-compile-tmp/vax-pass1.imp" L_01b8:; // 2124 ocount = -1; ! external specs have no constants #line 2124 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (-1); // 2125 %FINISH #line 2125 "regression-compile-tmp/vax-pass1.imp" L_01b7:; // 2126 dimension = 0 #line 2126 "regression-compile-tmp/vax-pass1.imp" DIMENSION = 0; // 2127 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start #line 2127 "regression-compile-tmp/vax-pass1.imp" if (((OTYPE) != (2))) goto L_01b9; #line 2127 "regression-compile-tmp/vax-pass1.imp" if (((F) == (2))) goto L_01ba; #line 2127 "regression-compile-tmp/vax-pass1.imp" if (((F) == (12))) goto L_01ba; #line 2127 "regression-compile-tmp/vax-pass1.imp" if (((F) != (14))) goto L_01b9; #line 2127 "regression-compile-tmp/vax-pass1.imp" L_01ba:; // 2128 v_flags = v_flags-1; !convert to simple #line 2128 "regression-compile-tmp/vax-pass1.imp" V->FLAGS = (((int)(V->FLAGS)) - (1)); // 2129 %finish #line 2129 "regression-compile-tmp/vax-pass1.imp" L_01b9:; // 2130 %END #line 2130 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEF at level 4 // 2131 // 2132 %ROUTINE def s lab(%INTEGER n) #line 2132 "regression-compile-tmp/vax-pass1.imp" void DEFSLAB( int N ) #line 2132 "regression-compile-tmp/vax-pass1.imp" { // 2133 // 2134 !define a switch label, x defines the switch tag // 2135 // 2136 %INTEGER p, l, b, w, bit #line 2136 "regression-compile-tmp/vax-pass1.imp" int P; #line 2136 "regression-compile-tmp/vax-pass1.imp" int L; #line 2136 "regression-compile-tmp/vax-pass1.imp" int B; #line 2136 "regression-compile-tmp/vax-pass1.imp" int W; #line 2136 "regression-compile-tmp/vax-pass1.imp" int BIT; // 2137 p = tag(x)_format; !pointer to table #line 2137 "regression-compile-tmp/vax-pass1.imp" P = TAG[X].FORMAT; // 2138 l = dict(p); !lower bound #line 2138 "regression-compile-tmp/vax-pass1.imp" L = DICT[(((int)(P)) - (1))]; // 2139 %IF l <= n <= dict(p+1) %START #line 2139 "regression-compile-tmp/vax-pass1.imp" if ((((L) > (N))) || (((N) > (DICT[(((int)((((int)(P)) + (1)))) - (1))])))) goto L_01bb; // 2140 b = n-l #line 2140 "regression-compile-tmp/vax-pass1.imp" B = (((int)(N)) - (L)); // 2141 w = b>>4+p #line 2141 "regression-compile-tmp/vax-pass1.imp" W = (((int)((int)((((unsigned int)(B)) >> (4))))) + (P)); // 2142 bit = 1<<(b&15) #line 2142 "regression-compile-tmp/vax-pass1.imp" BIT = ((1) << (((B) & (15)))); // 2143 %IF dict(w+2)&bit # 0 %START; !already set #line 2143 "regression-compile-tmp/vax-pass1.imp" if (((((DICT[(((int)((((int)(W)) + (2)))) - (1))]) & (BIT))) == (0))) goto L_01bc; // 2144 fault(4) %IF pending # 0 #line 2144 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_01bd; #line 2144 "regression-compile-tmp/vax-pass1.imp" FAULT(4); #line 2144 "regression-compile-tmp/vax-pass1.imp" L_01bd:; // 2145 %RETURN #line 2145 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2146 %FINISH #line 2146 "regression-compile-tmp/vax-pass1.imp" L_01bc:; // 2147 dict(w+2) <- dict(w+2)!bit %IF pending # 0 #line 2147 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_01be; #line 2147 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)((((int)(W)) + (2)))) - (1))] = ((DICT[(((int)((((int)(W)) + (2)))) - (1))]) | (BIT)); #line 2147 "regression-compile-tmp/vax-pass1.imp" L_01be:; // 2148 set const(n) #line 2148 "regression-compile-tmp/vax-pass1.imp" SETCONST(N); // 2149 op('_', tag(x)_index) #line 2149 "regression-compile-tmp/vax-pass1.imp" OP(95, TAG[X].INDEX); // 2150 %FINISH %ELSE %START #line 2150 "regression-compile-tmp/vax-pass1.imp" goto L_01bf; #line 2150 "regression-compile-tmp/vax-pass1.imp" L_01bb:; // 2151 fault(12) #line 2151 "regression-compile-tmp/vax-pass1.imp" FAULT(12); // 2152 %FINISH #line 2152 "regression-compile-tmp/vax-pass1.imp" L_01bf:; // 2153 access = 1 #line 2153 "regression-compile-tmp/vax-pass1.imp" ACCESS = 1; // 2154 %END #line 2154 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFSLAB at level 4 // 2155 // 2156 %ROUTINE call #line 2156 "regression-compile-tmp/vax-pass1.imp" void CALL( void ) #line 2156 "regression-compile-tmp/vax-pass1.imp" { // 2157 %RECORD(tagfm)%NAME T; !IMP77: #line 2157 "regression-compile-tmp/vax-pass1.imp" TAGFM /*name*/*T; // 2158 t == tag(x) #line 2158 "regression-compile-tmp/vax-pass1.imp" T = &TAG[X]; // 2159 op('@', t_index) #line 2159 "regression-compile-tmp/vax-pass1.imp" OP(64, T->INDEX); // 2160 access = 0 %IF t_flags&closed # 0; !never comes back #line 2160 "regression-compile-tmp/vax-pass1.imp" if (((((T->FLAGS) & (16384))) == (0))) goto L_01c0; #line 2160 "regression-compile-tmp/vax-pass1.imp" ACCESS = 0; #line 2160 "regression-compile-tmp/vax-pass1.imp" L_01c0:; // 2161 put('E') %IF t_app = 0; !no parameters #line 2161 "regression-compile-tmp/vax-pass1.imp" if (((T->APP) != (0))) goto L_01c1; #line 2161 "regression-compile-tmp/vax-pass1.imp" PUT(69); #line 2161 "regression-compile-tmp/vax-pass1.imp" L_01c1:; // 2162 %END #line 2162 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CALL at level 4 // 2163 // 2164 %ROUTINE pop def #line 2164 "regression-compile-tmp/vax-pass1.imp" void POPDEF( void ) #line 2164 "regression-compile-tmp/vax-pass1.imp" { // 2165 set const(pstack(pending)); pending = pending-1 #line 2165 "regression-compile-tmp/vax-pass1.imp" SETCONST((PSTACK-1)[PENDING]); #line 2165 "regression-compile-tmp/vax-pass1.imp" PENDING = (((int)(PENDING)) - (1)); // 2166 %END #line 2166 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POPDEF at level 4 // 2167 // 2168 %ROUTINE pop lit #line 2168 "regression-compile-tmp/vax-pass1.imp" void POPLIT( void ) #line 2168 "regression-compile-tmp/vax-pass1.imp" { // 2169 %IF pending = 0 %THEN lit = 0 %ELSE %START #line 2169 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) != (0))) goto L_01c2; #line 2169 "regression-compile-tmp/vax-pass1.imp" LIT = 0; #line 2169 "regression-compile-tmp/vax-pass1.imp" goto L_01c3; #line 2169 "regression-compile-tmp/vax-pass1.imp" L_01c2:; // 2170 lit = pstack(pending); pending = pending-1 #line 2170 "regression-compile-tmp/vax-pass1.imp" LIT = (PSTACK-1)[PENDING]; #line 2170 "regression-compile-tmp/vax-pass1.imp" PENDING = (((int)(PENDING)) - (1)); // 2171 %FINISH #line 2171 "regression-compile-tmp/vax-pass1.imp" L_01c3:; // 2172 %END #line 2172 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POPLIT at level 4 // 2173 // 2174 // 2175 %IF sstype < 0 %START; !executable statement #line 2175 "regression-compile-tmp/vax-pass1.imp" if (((SSTYPE) >= (0))) goto L_01c4; // 2176 %IF level = 0 %START; !outermost level #line 2176 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) != (0))) goto L_01c5; // 2177 fault(13); !*order #line 2177 "regression-compile-tmp/vax-pass1.imp" FAULT(13); // 2178 %FINISH %ELSE %START #line 2178 "regression-compile-tmp/vax-pass1.imp" goto L_01c6; #line 2178 "regression-compile-tmp/vax-pass1.imp" L_01c5:; // 2179 %IF access = 0 %START #line 2179 "regression-compile-tmp/vax-pass1.imp" if (((ACCESS) != (0))) goto L_01c7; // 2180 access = 1; fault(-1); !only a warning #line 2180 "regression-compile-tmp/vax-pass1.imp" ACCESS = 1; #line 2180 "regression-compile-tmp/vax-pass1.imp" FAULT((-1)); // 2181 %FINISH #line 2181 "regression-compile-tmp/vax-pass1.imp" L_01c7:; // 2182 %FINISH #line 2182 "regression-compile-tmp/vax-pass1.imp" L_01c6:; // 2183 %FINISH #line 2183 "regression-compile-tmp/vax-pass1.imp" L_01c4:; // 2184 // 2185 %IF diag&2 # 0 %START #line 2185 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (2))) == (0))) goto L_01c8; // 2186 newline %IF sym # nl #line 2186 "regression-compile-tmp/vax-pass1.imp" if (((SYM) == (10))) goto L_01c9; #line 2186 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 2186 "regression-compile-tmp/vax-pass1.imp" L_01c9:; // 2187 printstring("ss =") #line 2187 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_str_literal("ss =")); // 2188 write(ss, 1) #line 2188 "regression-compile-tmp/vax-pass1.imp" _imp_WRITE(SS, 1); // 2189 newline #line 2189 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 2190 count = 5 #line 2190 "regression-compile-tmp/vax-pass1.imp" COUNT = 5; // 2191 name = "" #line 2191 "regression-compile-tmp/vax-pass1.imp" NAME = _imp_str_literal(""); // 2192 %FINISH #line 2192 "regression-compile-tmp/vax-pass1.imp" L_01c8:; // 2193 // 2194 next = ss #line 2194 "regression-compile-tmp/vax-pass1.imp" NEXT = SS; // 2195 pending = 0; lmode = 0 #line 2195 "regression-compile-tmp/vax-pass1.imp" PENDING = 0; #line 2195 "regression-compile-tmp/vax-pass1.imp" LMODE = 0; // 2196 link = 0; decs = 0 #line 2196 "regression-compile-tmp/vax-pass1.imp" LINK = 0; #line 2196 "regression-compile-tmp/vax-pass1.imp" DECS = 0; // 2197 defs = 0; resln = 0; done = 0 #line 2197 "regression-compile-tmp/vax-pass1.imp" DEFS = 0; #line 2197 "regression-compile-tmp/vax-pass1.imp" RESLN = 0; #line 2197 "regression-compile-tmp/vax-pass1.imp" DONE = 0; // 2198 ord = level #line 2198 "regression-compile-tmp/vax-pass1.imp" ORD = LEVEL; // 2199 ord = 1 %IF this >= 0; !recordformat declarations #line 2199 "regression-compile-tmp/vax-pass1.imp" if (((THIS) < (0))) goto L_01ca; #line 2199 "regression-compile-tmp/vax-pass1.imp" ORD = 1; #line 2199 "regression-compile-tmp/vax-pass1.imp" L_01ca:; // 2200 c(0): #line 2200 "regression-compile-tmp/vax-pass1.imp" sw5_C_0:; // 2201 top: %IF next # link %START #line 2201 "regression-compile-tmp/vax-pass1.imp" U_101b:; #line 2201 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) == (LINK))) goto L_01cb; // 2202 get next; ->c(class) #line 2202 "regression-compile-tmp/vax-pass1.imp" GETNEXT(); #line 2202 "regression-compile-tmp/vax-pass1.imp" sw5_C_idx = CLASS; if ((0 <= sw5_C_idx) && (sw5_C_idx <= 180)) goto *sw5_C[sw5_C_idx]; else { /*_imp_signal(8, 2, sw5_C_idx);*/ fprintf(stderr, "%%SWITCH index C(%d) not in range 0:180 at %s:%d\n", sw5_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2203 c(*):debug("* Switch label not set: c(".itos(class,0).")"); %stop #line 2203 "regression-compile-tmp/vax-pass1.imp" sw5_C_default:; #line 2203 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: c("),(_imp_string)_imp_ITOS(CLASS, 0)),(_imp_string)_imp_str_literal(")"))); #line 2203 "regression-compile-tmp/vax-pass1.imp" exit(0); // 2204 %FINISH #line 2204 "regression-compile-tmp/vax-pass1.imp" L_01cb:; // 2205 // 2206 !all done, tidy up declarations and jumps // 2207 // 2208 newline %IF diag&2 # 0 %AND count # 5 #line 2208 "regression-compile-tmp/vax-pass1.imp" if (((((DIAG) & (2))) == (0))) goto L_01cc; #line 2208 "regression-compile-tmp/vax-pass1.imp" if (((COUNT) == (5))) goto L_01cc; #line 2208 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 2208 "regression-compile-tmp/vax-pass1.imp" L_01cc:; // 2209 // 2210 %IF lmode&(loop!then!else) # 0 %START; !pending labels and jumps #line 2210 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (((((16) | (4))) | (8))))) == (0))) goto L_01cd; // 2211 op('B', label-1) %IF lmode&loop # 0; !repeat #line 2211 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (16))) == (0))) goto L_01ce; #line 2211 "regression-compile-tmp/vax-pass1.imp" OP(66, (((int)(LABEL)) - (1))); #line 2211 "regression-compile-tmp/vax-pass1.imp" L_01ce:; // 2212 def lab(label) %IF lmode&then # 0; !entry from then #line 2212 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (4))) == (0))) goto L_01cf; #line 2212 "regression-compile-tmp/vax-pass1.imp" DEFLAB(LABEL); #line 2212 "regression-compile-tmp/vax-pass1.imp" L_01cf:; // 2213 def lab(label-1) %IF lmode&else # 0; !entry from else #line 2213 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (8))) == (0))) goto L_01d0; #line 2213 "regression-compile-tmp/vax-pass1.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2213 "regression-compile-tmp/vax-pass1.imp" L_01d0:; // 2214 %FINISH #line 2214 "regression-compile-tmp/vax-pass1.imp" L_01cd:; // 2215 // 2216 %RETURN %IF decs = 0 #line 2216 "regression-compile-tmp/vax-pass1.imp" if (((DECS) != (0))) goto L_01d1; #line 2216 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 2216 "regression-compile-tmp/vax-pass1.imp" L_01d1:; // 2217 atom1 = error %AND %RETURN %IF atom1 # 0; !%INTEGERROUTINE #line 2217 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) == (0))) goto L_01d2; #line 2217 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32768; #line 2217 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 2217 "regression-compile-tmp/vax-pass1.imp" L_01d2:; // 2218 order = ord #line 2218 "regression-compile-tmp/vax-pass1.imp" ORDER = ORD; // 2219 decl = decl&(\15)+decmap(decl&15); !construct declarator flags #line 2219 "regression-compile-tmp/vax-pass1.imp" DECL = (((short)(((DECL) & ((~(15)))))) + (DECMAP[((DECL) & (15))])); // 2220 atom1 = atoms(decl&15); !generate class #line 2220 "regression-compile-tmp/vax-pass1.imp" ATOM1 = ATOMS[((DECL) & (15))]; // 2221 %IF otype # 0 %START; !own, const etc. #line 2221 "regression-compile-tmp/vax-pass1.imp" if (((OTYPE) == (0))) goto L_01d3; // 2222 atom1 = atom1+1 %IF atom1 # proc #line 2222 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) == (7))) goto L_01d4; #line 2222 "regression-compile-tmp/vax-pass1.imp" ATOM1 = (((int)(ATOM1)) + (1)); #line 2222 "regression-compile-tmp/vax-pass1.imp" L_01d4:; // 2223 %IF otype = 2 %START; !const #line 2223 "regression-compile-tmp/vax-pass1.imp" if (((OTYPE) != (2))) goto L_01d5; // 2224 n = decl&15 #line 2224 "regression-compile-tmp/vax-pass1.imp" N = ((DECL) & (15)); // 2225 %if n&1 # 0 %start #line 2225 "regression-compile-tmp/vax-pass1.imp" if (((((N) & (1))) == (0))) goto L_01d6; // 2226 decl = decl!prot #line 2226 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (256)); // 2227 decl = decl!const bit %IF decl&2_1111111 = iform #line 2227 "regression-compile-tmp/vax-pass1.imp" if (((((DECL) & (127))) != (17))) goto L_01d7; #line 2227 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (8192)); #line 2227 "regression-compile-tmp/vax-pass1.imp" L_01d7:; // 2228 %finish #line 2228 "regression-compile-tmp/vax-pass1.imp" L_01d6:; // 2229 %else #line 2229 "regression-compile-tmp/vax-pass1.imp" goto L_01d8; #line 2229 "regression-compile-tmp/vax-pass1.imp" L_01d5:; // 2230 decl = decl!own bit #line 2230 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (512)); // 2231 %FINISH #line 2231 "regression-compile-tmp/vax-pass1.imp" L_01d8:; // 2232 %FINISH #line 2232 "regression-compile-tmp/vax-pass1.imp" L_01d3:; // 2233 sstype = 1 %IF sstype = 0 %AND atom1 = proc #line 2233 "regression-compile-tmp/vax-pass1.imp" if (((SSTYPE) != (0))) goto L_01d9; #line 2233 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (7))) goto L_01d9; #line 2233 "regression-compile-tmp/vax-pass1.imp" SSTYPE = 1; #line 2233 "regression-compile-tmp/vax-pass1.imp" L_01d9:; // 2234 atom1 = atom1+1 %IF decl&spec # 0; !onto spec variant #line 2234 "regression-compile-tmp/vax-pass1.imp" if (((((DECL) & (128))) == (0))) goto L_01da; #line 2234 "regression-compile-tmp/vax-pass1.imp" ATOM1 = (((int)(ATOM1)) + (1)); #line 2234 "regression-compile-tmp/vax-pass1.imp" L_01da:; // 2235 ocount = 0 %AND cont = '+' %IF atom1 = 5; !own array #line 2235 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (5))) goto L_01db; #line 2235 "regression-compile-tmp/vax-pass1.imp" OCOUNT = 0; #line 2235 "regression-compile-tmp/vax-pass1.imp" CONT = 43; #line 2235 "regression-compile-tmp/vax-pass1.imp" L_01db:; // 2236 %IF anyform(decl&15) = 0 %START; !check meaningful #line 2236 "regression-compile-tmp/vax-pass1.imp" if (((ANYFORM[((DECL) & (15))]) != (0))) goto L_01dc; // 2237 %IF decl>>4&7 = record %START #line 2237 "regression-compile-tmp/vax-pass1.imp" if ((((((int)((((unsigned int)(DECL)) >> (4)))) & (7))) != (4))) goto L_01dd; // 2238 this = fdef %IF tag(fdef)_flags&spec # 0 #line 2238 "regression-compile-tmp/vax-pass1.imp" if (((((TAG[FDEF].FLAGS) & (128))) == (0))) goto L_01de; #line 2238 "regression-compile-tmp/vax-pass1.imp" THIS = FDEF; #line 2238 "regression-compile-tmp/vax-pass1.imp" L_01de:; // 2239 atom1 = error+21 %IF fdef = this; !*context for format #line 2239 "regression-compile-tmp/vax-pass1.imp" if (((FDEF) != (THIS))) goto L_01df; #line 2239 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32789; #line 2239 "regression-compile-tmp/vax-pass1.imp" L_01df:; // 2240 %FINISH #line 2240 "regression-compile-tmp/vax-pass1.imp" L_01dd:; // 2241 atom1 = error+10 %IF fdef = 0; !*size #line 2241 "regression-compile-tmp/vax-pass1.imp" if (((FDEF) != (0))) goto L_01e0; #line 2241 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32778; #line 2241 "regression-compile-tmp/vax-pass1.imp" L_01e0:; // 2242 %FINISH #line 2242 "regression-compile-tmp/vax-pass1.imp" L_01dc:; // 2243 %RETURN #line 2243 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2244 // 2245 atop: access = 0; ->top #line 2245 "regression-compile-tmp/vax-pass1.imp" U_101c:; #line 2245 "regression-compile-tmp/vax-pass1.imp" ACCESS = 0; #line 2245 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2246 // 2247 ! declarators // 2248 // 2249 c(88): !rtype #line 2249 "regression-compile-tmp/vax-pass1.imp" sw5_C_88:; // 2250 c(28): decl = x&(\7); !stype #line 2250 "regression-compile-tmp/vax-pass1.imp" sw5_C_28:; #line 2250 "regression-compile-tmp/vax-pass1.imp" DECL = ((X) & ((~(7)))); // 2251 fdef = x&7; !precision #line 2251 "regression-compile-tmp/vax-pass1.imp" FDEF = ((X) & (7)); // 2252 fdef = reals ln %IF x&2_1110001 = real<<4+1; !convert to long #line 2252 "regression-compile-tmp/vax-pass1.imp" if (((((X) & (113))) != ((((int)(((2) << (4)))) + (1))))) goto L_01e1; #line 2252 "regression-compile-tmp/vax-pass1.imp" FDEF = REALSLN; #line 2252 "regression-compile-tmp/vax-pass1.imp" L_01e1:; // 2253 decs = 1; ->top #line 2253 "regression-compile-tmp/vax-pass1.imp" DECS = 1; #line 2253 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2254 c(34): !own #line 2254 "regression-compile-tmp/vax-pass1.imp" sw5_C_34:; // 2255 c(35): otype = x; ord = 1; ->top; !external #line 2255 "regression-compile-tmp/vax-pass1.imp" sw5_C_35:; #line 2255 "regression-compile-tmp/vax-pass1.imp" OTYPE = X; #line 2255 "regression-compile-tmp/vax-pass1.imp" ORD = 1; #line 2255 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2256 c(152):decl = decl+x<<1; ->top; !xname #line 2256 "regression-compile-tmp/vax-pass1.imp" sw5_C_152:; #line 2256 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) + ((int)(((X) << (1))))); #line 2256 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2257 c(31): !proc #line 2257 "regression-compile-tmp/vax-pass1.imp" sw5_C_31:; // 2258 c(32): spec mode = level+1; !fn/map #line 2258 "regression-compile-tmp/vax-pass1.imp" sw5_C_32:; #line 2258 "regression-compile-tmp/vax-pass1.imp" SPECMODE = (((int)(LEVEL)) + (1)); // 2259 decl = decl!prot %IF x = 9; !function #line 2259 "regression-compile-tmp/vax-pass1.imp" if (((X) != (9))) goto L_01e2; #line 2259 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (256)); #line 2259 "regression-compile-tmp/vax-pass1.imp" L_01e2:; // 2260 c(29): ord = 1; !array #line 2260 "regression-compile-tmp/vax-pass1.imp" sw5_C_29:; #line 2260 "regression-compile-tmp/vax-pass1.imp" ORD = 1; // 2261 dim = 0 #line 2261 "regression-compile-tmp/vax-pass1.imp" DIM = 0; // 2262 c(30): decl = decl+x; !name #line 2262 "regression-compile-tmp/vax-pass1.imp" sw5_C_30:; #line 2262 "regression-compile-tmp/vax-pass1.imp" DECL = (((int)(DECL)) + (X)); // 2263 decs = 1 #line 2263 "regression-compile-tmp/vax-pass1.imp" DECS = 1; // 2264 ->top #line 2264 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2265 c(27): lit = 0; ! arrayd #line 2265 "regression-compile-tmp/vax-pass1.imp" sw5_C_27:; #line 2265 "regression-compile-tmp/vax-pass1.imp" LIT = 0; // 2266 %IF pending # 0 %START #line 2266 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_01e3; // 2267 pop lit #line 2267 "regression-compile-tmp/vax-pass1.imp" POPLIT(); // 2268 %UNLESS 0= (LIT))) || (((LIT) <= (6)))) goto L_01e5; #line 2268 "regression-compile-tmp/vax-pass1.imp" L_01e4:; // 2269 atom1 = error + 11; %RETURN #line 2269 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32779; #line 2269 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2270 %FINISH #line 2270 "regression-compile-tmp/vax-pass1.imp" L_01e5:; // 2271 %FINISH #line 2271 "regression-compile-tmp/vax-pass1.imp" L_01e3:; // 2272 dim = lit #line 2272 "regression-compile-tmp/vax-pass1.imp" DIM = LIT; // 2273 decl = decl + x; decs = 1 #line 2273 "regression-compile-tmp/vax-pass1.imp" DECL = (((int)(DECL)) + (X)); #line 2273 "regression-compile-tmp/vax-pass1.imp" DECS = 1; // 2274 -> top #line 2274 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2275 c(37): x = x!subname; !record #line 2275 "regression-compile-tmp/vax-pass1.imp" sw5_C_37:; #line 2275 "regression-compile-tmp/vax-pass1.imp" X = ((X) | (2048)); // 2276 c(36): lit = 0; !string #line 2276 "regression-compile-tmp/vax-pass1.imp" sw5_C_36:; #line 2276 "regression-compile-tmp/vax-pass1.imp" LIT = 0; // 2277 %IF pending # 0 %START #line 2277 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_01e6; // 2278 pop lit #line 2278 "regression-compile-tmp/vax-pass1.imp" POPLIT(); // 2279 %UNLESS 0 < lit <= 255 %START; !max length wrong #line 2279 "regression-compile-tmp/vax-pass1.imp" if ((((0) >= (LIT))) || (((LIT) <= (255)))) goto L_01e8; #line 2279 "regression-compile-tmp/vax-pass1.imp" L_01e7:; // 2280 atom1 = error+10; %RETURN #line 2280 "regression-compile-tmp/vax-pass1.imp" ATOM1 = 32778; #line 2280 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2281 %FINISH #line 2281 "regression-compile-tmp/vax-pass1.imp" L_01e8:; // 2282 %FINISH #line 2282 "regression-compile-tmp/vax-pass1.imp" L_01e6:; // 2283 fdef = lit; !format or length #line 2283 "regression-compile-tmp/vax-pass1.imp" FDEF = LIT; // 2284 c(33): decl = x; !switch #line 2284 "regression-compile-tmp/vax-pass1.imp" sw5_C_33:; #line 2284 "regression-compile-tmp/vax-pass1.imp" DECL = X; // 2285 decs = 1 #line 2285 "regression-compile-tmp/vax-pass1.imp" DECS = 1; // 2286 ->top #line 2286 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2287 c(39): decl = decl!spec; !spec #line 2287 "regression-compile-tmp/vax-pass1.imp" sw5_C_39:; #line 2287 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (128)); // 2288 ocount = -1; !no initialisation #line 2288 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (-1); // 2289 spec mode = -1 #line 2289 "regression-compile-tmp/vax-pass1.imp" SPECMODE = (-1); // 2290 ->top #line 2290 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2291 c(38): decl = 64+4; !recordformat (spec) #line 2291 "regression-compile-tmp/vax-pass1.imp" sw5_C_38:; #line 2291 "regression-compile-tmp/vax-pass1.imp" DECL = 68; // 2292 order = 1 #line 2292 "regression-compile-tmp/vax-pass1.imp" ORDER = 1; // 2293 atom1 = x #line 2293 "regression-compile-tmp/vax-pass1.imp" ATOM1 = X; // 2294 decl = decl!spec %if atom1 = 12; !formatspec #line 2294 "regression-compile-tmp/vax-pass1.imp" if (((ATOM1) != (12))) goto L_01e9; #line 2294 "regression-compile-tmp/vax-pass1.imp" DECL = ((DECL) | (128)); #line 2294 "regression-compile-tmp/vax-pass1.imp" L_01e9:; // 2295 fdef = tmax+1; !format tag #line 2295 "regression-compile-tmp/vax-pass1.imp" FDEF = (((int)(TMAX)) + (1)); // 2296 %return #line 2296 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2297 c(175):id = id+1; tag(x)_index = id; %return; !FSID #line 2297 "regression-compile-tmp/vax-pass1.imp" sw5_C_175:; #line 2297 "regression-compile-tmp/vax-pass1.imp" ID = (((int)(ID)) + (1)); #line 2297 "regression-compile-tmp/vax-pass1.imp" TAG[X].INDEX = ID; #line 2297 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2298 c(41): decs = 1; decl = x!spec; ->top; !label #line 2298 "regression-compile-tmp/vax-pass1.imp" sw5_C_41:; #line 2298 "regression-compile-tmp/vax-pass1.imp" DECS = 1; #line 2298 "regression-compile-tmp/vax-pass1.imp" DECL = ((X) | (128)); #line 2298 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2299 c(133):recid = 0; rbase = tmin-1; !fname #line 2299 "regression-compile-tmp/vax-pass1.imp" sw5_C_133:; #line 2299 "regression-compile-tmp/vax-pass1.imp" RECID = 0; #line 2299 "regression-compile-tmp/vax-pass1.imp" RBASE = (((int)(TMIN)) - (1)); // 2300 this = x #line 2300 "regression-compile-tmp/vax-pass1.imp" THIS = X; // 2301 fm base = fdef; format list = tmin #line 2301 "regression-compile-tmp/vax-pass1.imp" FMBASE = FDEF; #line 2301 "regression-compile-tmp/vax-pass1.imp" FORMATLIST = TMIN; // 2302 def(this); ->top #line 2302 "regression-compile-tmp/vax-pass1.imp" DEF(THIS); #line 2302 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2303 c(148):fdef = 0 %AND ->top %IF next = 0; !reclb #line 2303 "regression-compile-tmp/vax-pass1.imp" sw5_C_148:; #line 2303 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) != (0))) goto L_01ea; #line 2303 "regression-compile-tmp/vax-pass1.imp" FDEF = 0; #line 2303 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2303 "regression-compile-tmp/vax-pass1.imp" L_01ea:; // 2304 get next; !skip name #line 2304 "regression-compile-tmp/vax-pass1.imp" GETNEXT(); // 2305 fdef = x #line 2305 "regression-compile-tmp/vax-pass1.imp" FDEF = X; // 2306 ->top #line 2306 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2307 c(127):put('}'); ->top; !%POUT #line 2307 "regression-compile-tmp/vax-pass1.imp" sw5_C_127:; #line 2307 "regression-compile-tmp/vax-pass1.imp" PUT(125); #line 2307 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2308 c(126):put('{'); ->top; !%PIN #line 2308 "regression-compile-tmp/vax-pass1.imp" sw5_C_126:; #line 2308 "regression-compile-tmp/vax-pass1.imp" PUT(123); #line 2308 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2309 // 2310 c(174):set bp; !rangerb #line 2310 "regression-compile-tmp/vax-pass1.imp" sw5_C_174:; #line 2310 "regression-compile-tmp/vax-pass1.imp" SETBP(); // 2311 c(171): !fmlb #line 2311 "regression-compile-tmp/vax-pass1.imp" sw5_C_171:; // 2312 c(172): !fmrb #line 2312 "regression-compile-tmp/vax-pass1.imp" sw5_C_172:; // 2313 c(173):put('~'); put(class-171+'A'); ->top; #line 2313 "regression-compile-tmp/vax-pass1.imp" sw5_C_173:; #line 2313 "regression-compile-tmp/vax-pass1.imp" PUT(126); #line 2313 "regression-compile-tmp/vax-pass1.imp" PUT((((int)((((int)(CLASS)) - (171)))) + (65))); #line 2313 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2314 !fmor // 2315 c(168):rbase = -rbase; !orrb #line 2315 "regression-compile-tmp/vax-pass1.imp" sw5_C_168:; #line 2315 "regression-compile-tmp/vax-pass1.imp" RBASE = (-(RBASE)); // 2316 sstype = 0; spec mode = 0 #line 2316 "regression-compile-tmp/vax-pass1.imp" SSTYPE = 0; #line 2316 "regression-compile-tmp/vax-pass1.imp" SPECMODE = 0; // 2317 // 2318 c(147):search base = 0; !recrb #line 2318 "regression-compile-tmp/vax-pass1.imp" sw5_C_147:; #line 2318 "regression-compile-tmp/vax-pass1.imp" SEARCHBASE = 0; // 2319 tag(this)_app = tmin #line 2319 "regression-compile-tmp/vax-pass1.imp" TAG[THIS].APP = TMIN; // 2320 tag(this)_format = rbase #line 2320 "regression-compile-tmp/vax-pass1.imp" TAG[THIS].FORMAT = RBASE; // 2321 ->top #line 2321 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2322 // 2323 c(45):put('U') %IF x = 36; ->top; !sign #line 2323 "regression-compile-tmp/vax-pass1.imp" sw5_C_45:; #line 2323 "regression-compile-tmp/vax-pass1.imp" if (((X) != (36))) goto L_01eb; #line 2323 "regression-compile-tmp/vax-pass1.imp" PUT(85); #line 2323 "regression-compile-tmp/vax-pass1.imp" L_01eb:; #line 2323 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2324 c(46):put('\'); ->top; !uop #line 2324 "regression-compile-tmp/vax-pass1.imp" sw5_C_46:; #line 2324 "regression-compile-tmp/vax-pass1.imp" PUT(92); #line 2324 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2325 c(47): !mod #line 2325 "regression-compile-tmp/vax-pass1.imp" sw5_C_47:; // 2326 c(48): !dot #line 2326 "regression-compile-tmp/vax-pass1.imp" sw5_C_48:; // 2327 c(42): !op1 #line 2327 "regression-compile-tmp/vax-pass1.imp" sw5_C_42:; // 2328 c(43): !op2 #line 2328 "regression-compile-tmp/vax-pass1.imp" sw5_C_43:; // 2329 c(44):put(operator(x)); ->top; !op3 #line 2329 "regression-compile-tmp/vax-pass1.imp" sw5_C_44:; #line 2329 "regression-compile-tmp/vax-pass1.imp" PUT((OPERATOR-1)[X]); #line 2329 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2330 // 2331 !conditions & jumps // 2332 // 2333 %ROUTINE push(%INTEGER x) #line 2333 "regression-compile-tmp/vax-pass1.imp" void PUSH( int X ) #line 2333 "regression-compile-tmp/vax-pass1.imp" { // 2334 %IF cnest(cp)&2 # x %START #line 2334 "regression-compile-tmp/vax-pass1.imp" if (((((CNEST[CP]) & (2))) == (X))) goto L_01ec; // 2335 cnest(cp) = cnest(cp)!1; x = x+4 #line 2335 "regression-compile-tmp/vax-pass1.imp" CNEST[CP] = ((CNEST[CP]) | (1)); #line 2335 "regression-compile-tmp/vax-pass1.imp" X = (((int)(X)) + (4)); // 2336 %FINISH #line 2336 "regression-compile-tmp/vax-pass1.imp" L_01ec:; // 2337 clab = clab+1 %IF cnest(cp)&1 # 0 #line 2337 "regression-compile-tmp/vax-pass1.imp" if (((((CNEST[CP]) & (1))) == (0))) goto L_01ed; #line 2337 "regression-compile-tmp/vax-pass1.imp" CLAB = (((int)(CLAB)) + (1)); #line 2337 "regression-compile-tmp/vax-pass1.imp" L_01ed:; // 2338 cnest(cp+1) = x; cp = cp+1 #line 2338 "regression-compile-tmp/vax-pass1.imp" CNEST[(((int)(CP)) + (1))] = X; #line 2338 "regression-compile-tmp/vax-pass1.imp" CP = (((int)(CP)) + (1)); // 2339 %END #line 2339 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PUSH at level 4 // 2340 // 2341 %ROUTINE pop label(%INTEGER mode) #line 2341 "regression-compile-tmp/vax-pass1.imp" void POPLABEL( int MODE ) #line 2341 "regression-compile-tmp/vax-pass1.imp" { // 2342 lmode = dict(dmin) #line 2342 "regression-compile-tmp/vax-pass1.imp" LMODE = DICT[(((int)(DMIN)) - (1))]; // 2343 %IF lmode < 0 %OR lmode&1 # mode %START #line 2343 "regression-compile-tmp/vax-pass1.imp" if (((LMODE) < (0))) goto L_01ee; #line 2343 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (1))) == (MODE))) goto L_01ef; #line 2343 "regression-compile-tmp/vax-pass1.imp" L_01ee:; // 2344 fault(mode+8) #line 2344 "regression-compile-tmp/vax-pass1.imp" FAULT((((int)(MODE)) + (8))); // 2345 %FINISH %ELSE %START #line 2345 "regression-compile-tmp/vax-pass1.imp" goto L_01f0; #line 2345 "regression-compile-tmp/vax-pass1.imp" L_01ef:; // 2346 dmin = dmin+1; label = label-3 #line 2346 "regression-compile-tmp/vax-pass1.imp" DMIN = (((int)(DMIN)) + (1)); #line 2346 "regression-compile-tmp/vax-pass1.imp" LABEL = (((int)(LABEL)) - (3)); // 2347 %FINISH #line 2347 "regression-compile-tmp/vax-pass1.imp" L_01f0:; // 2348 %END #line 2348 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POPLABEL at level 4 // 2349 // 2350 c(56): !and #line 2350 "regression-compile-tmp/vax-pass1.imp" sw5_C_56:; // 2351 c(57):push(x); ->top; !or #line 2351 "regression-compile-tmp/vax-pass1.imp" sw5_C_57:; #line 2351 "regression-compile-tmp/vax-pass1.imp" PUSH(X); #line 2351 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2352 c(58):cnest(cp) = cnest(cp)!!2; ->top; !not #line 2352 "regression-compile-tmp/vax-pass1.imp" sw5_C_58:; #line 2352 "regression-compile-tmp/vax-pass1.imp" CNEST[CP] = ((CNEST[CP]) ^ (2)); #line 2352 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2353 // 2354 c(138):x = 128+32+16+4; !csep: treat like %WHILE #line 2354 "regression-compile-tmp/vax-pass1.imp" sw5_C_138:; #line 2354 "regression-compile-tmp/vax-pass1.imp" X = 180; // 2355 c(59): !while #line 2355 "regression-compile-tmp/vax-pass1.imp" sw5_C_59:; // 2356 c(60):%IF class = 138 %THEN op('f', label-1) %C #line 2356 "regression-compile-tmp/vax-pass1.imp" sw5_C_60:; #line 2356 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) != (138))) goto L_01f1; #line 2356 "regression-compile-tmp/vax-pass1.imp" OP(102, (((int)(LABEL)) - (1))); #line 2356 "regression-compile-tmp/vax-pass1.imp" goto L_01f2; #line 2356 "regression-compile-tmp/vax-pass1.imp" L_01f1:; #line 2356 "regression-compile-tmp/vax-pass1.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2356 "regression-compile-tmp/vax-pass1.imp" L_01f2:; // 2357 %ELSE def lab(label-1); !until // 2358 c(166): !runtil #line 2358 "regression-compile-tmp/vax-pass1.imp" sw5_C_166:; // 2359 c(62):lmode = (lmode&(else!loop)) !(x>>3); !cword #line 2359 "regression-compile-tmp/vax-pass1.imp" sw5_C_62:; #line 2359 "regression-compile-tmp/vax-pass1.imp" LMODE = ((((LMODE) & (((8) | (16))))) | ((int)((((unsigned int)(X)) >> (3))))); // 2360 clab = label; cp = 1; cnest(1) = x&7 #line 2360 "regression-compile-tmp/vax-pass1.imp" CLAB = LABEL; #line 2360 "regression-compile-tmp/vax-pass1.imp" CP = 1; #line 2360 "regression-compile-tmp/vax-pass1.imp" CNEST[1] = ((X) & (7)); // 2361 ->top #line 2361 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2362 c(72):pop label(0); !repeat #line 2362 "regression-compile-tmp/vax-pass1.imp" sw5_C_72:; #line 2362 "regression-compile-tmp/vax-pass1.imp" POPLABEL(0); // 2363 def lab(label+1) %IF lmode&32 # 0; ->atop #line 2363 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (32))) == (0))) goto L_01f3; #line 2363 "regression-compile-tmp/vax-pass1.imp" DEFLAB((((int)(LABEL)) + (1))); #line 2363 "regression-compile-tmp/vax-pass1.imp" L_01f3:; #line 2363 "regression-compile-tmp/vax-pass1.imp" goto U_101c; // 2364 c(69):pop label(1); ->top; !finish #line 2364 "regression-compile-tmp/vax-pass1.imp" sw5_C_69:; #line 2364 "regression-compile-tmp/vax-pass1.imp" POPLABEL(1); #line 2364 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2365 c(163): !xelse #line 2365 "regression-compile-tmp/vax-pass1.imp" sw5_C_163:; // 2366 c(70):pop label(1); !finish else ... #line 2366 "regression-compile-tmp/vax-pass1.imp" sw5_C_70:; #line 2366 "regression-compile-tmp/vax-pass1.imp" POPLABEL(1); // 2367 fault(7) %IF lmode&3 = 3; !dangling else #line 2367 "regression-compile-tmp/vax-pass1.imp" if (((((LMODE) & (3))) != (3))) goto L_01f4; #line 2367 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 2367 "regression-compile-tmp/vax-pass1.imp" L_01f4:; // 2368 c(68):lmode = (lmode&else)!3; !...else... #line 2368 "regression-compile-tmp/vax-pass1.imp" sw5_C_68:; #line 2368 "regression-compile-tmp/vax-pass1.imp" LMODE = ((((LMODE) & (8))) | (3)); // 2369 %IF access # 0 %START #line 2369 "regression-compile-tmp/vax-pass1.imp" if (((ACCESS) == (0))) goto L_01f5; // 2370 op('F', label-1); lmode = else!3 #line 2370 "regression-compile-tmp/vax-pass1.imp" OP(70, (((int)(LABEL)) - (1))); #line 2370 "regression-compile-tmp/vax-pass1.imp" LMODE = ((8) | (3)); // 2371 %FINISH #line 2371 "regression-compile-tmp/vax-pass1.imp" L_01f5:; // 2372 def lab(label) #line 2372 "regression-compile-tmp/vax-pass1.imp" DEFLAB(LABEL); // 2373 ->top %IF next # 0 #line 2373 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) == (0))) goto L_01f6; #line 2373 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2373 "regression-compile-tmp/vax-pass1.imp" L_01f6:; // 2374 // 2375 c(120): !%MSTART #line 2375 "regression-compile-tmp/vax-pass1.imp" sw5_C_120:; // 2376 c(67): !start #line 2376 "regression-compile-tmp/vax-pass1.imp" sw5_C_67:; // 2377 c(71): !cycle #line 2377 "regression-compile-tmp/vax-pass1.imp" sw5_C_71:; // 2378 stcy: def lab(label-1) %AND lmode = loop %IF lmode = 0;!cycle #line 2378 "regression-compile-tmp/vax-pass1.imp" U_101d:; #line 2378 "regression-compile-tmp/vax-pass1.imp" if (((LMODE) != (0))) goto L_01f7; #line 2378 "regression-compile-tmp/vax-pass1.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2378 "regression-compile-tmp/vax-pass1.imp" LMODE = 16; #line 2378 "regression-compile-tmp/vax-pass1.imp" L_01f7:; // 2379 dmin = dmin-1; abandon(3) %IF dmin <= dmax #line 2379 "regression-compile-tmp/vax-pass1.imp" DMIN = (((int)(DMIN)) - (1)); #line 2379 "regression-compile-tmp/vax-pass1.imp" if (((DMIN) > (DMAX))) goto L_01f8; #line 2379 "regression-compile-tmp/vax-pass1.imp" ABANDON(3); #line 2379 "regression-compile-tmp/vax-pass1.imp" L_01f8:; // 2380 dict(dmin) = lmode #line 2380 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(DMIN)) - (1))] = LMODE; // 2381 label = label+3 #line 2381 "regression-compile-tmp/vax-pass1.imp" LABEL = (((int)(LABEL)) + (3)); // 2382 %RETURN #line 2382 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2383 // 2384 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0; !on event #line 2384 "regression-compile-tmp/vax-pass1.imp" sw5_C_64:; #line 2384 "regression-compile-tmp/vax-pass1.imp" if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_01f9; #line 2384 "regression-compile-tmp/vax-pass1.imp" if (((INHIBIT) == (0))) goto L_01fa; #line 2384 "regression-compile-tmp/vax-pass1.imp" L_01f9:; #line 2384 "regression-compile-tmp/vax-pass1.imp" FAULT(13); #line 2384 "regression-compile-tmp/vax-pass1.imp" L_01fa:; // 2385 inhibit = 1 #line 2385 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 1; // 2386 last array = tmax-1 #line 2386 "regression-compile-tmp/vax-pass1.imp" LASTARRAY = (((int)(TMAX)) - (1)); // 2387 n = 0 #line 2387 "regression-compile-tmp/vax-pass1.imp" N = 0; // 2388 n = 16_FFFF %IF pending = 0; !* = all events #line 2388 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) != (0))) goto L_01fb; #line 2388 "regression-compile-tmp/vax-pass1.imp" N = 65535; #line 2388 "regression-compile-tmp/vax-pass1.imp" L_01fb:; // 2389 %WHILE pending > 0 %CYCLE #line 2389 "regression-compile-tmp/vax-pass1.imp" L_01fc:; #line 2389 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) <= (0))) goto L_01fd; // 2390 pop lit; fault(10) %IF lit&(\15) # 0;!too big #line 2390 "regression-compile-tmp/vax-pass1.imp" POPLIT(); #line 2390 "regression-compile-tmp/vax-pass1.imp" if (((((LIT) & ((~(15))))) == (0))) goto L_01ff; #line 2390 "regression-compile-tmp/vax-pass1.imp" FAULT(10); #line 2390 "regression-compile-tmp/vax-pass1.imp" L_01ff:; // 2391 j = 1<stcy #line 2396 "regression-compile-tmp/vax-pass1.imp" LMODE = ((4) | (1)); #line 2396 "regression-compile-tmp/vax-pass1.imp" goto U_101d; // 2397 // 2398 // 2399 c(104):op('J', tag(x)_index); !l #line 2399 "regression-compile-tmp/vax-pass1.imp" sw5_C_104:; #line 2399 "regression-compile-tmp/vax-pass1.imp" OP(74, TAG[X].INDEX); // 2400 inhibit = 1; ->atop #line 2400 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 1; #line 2400 "regression-compile-tmp/vax-pass1.imp" goto U_101c; // 2401 c(149):stats = stats-1; !lab #line 2401 "regression-compile-tmp/vax-pass1.imp" sw5_C_149:; #line 2401 "regression-compile-tmp/vax-pass1.imp" STATS = (((int)(STATS)) - (1)); // 2402 access = 1; inhibit = 1 #line 2402 "regression-compile-tmp/vax-pass1.imp" ACCESS = 1; #line 2402 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 1; // 2403 fault(13) %IF x < last array; !jump round array dec #line 2403 "regression-compile-tmp/vax-pass1.imp" if (((X) >= (LASTARRAY))) goto L_0201; #line 2403 "regression-compile-tmp/vax-pass1.imp" FAULT(13); #line 2403 "regression-compile-tmp/vax-pass1.imp" L_0201:; // 2404 op('L', tag(x)_index); ->top #line 2404 "regression-compile-tmp/vax-pass1.imp" OP(76, TAG[X].INDEX); #line 2404 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2405 // 2406 c(63):j = dmin; l = label-3; !exit, continue #line 2406 "regression-compile-tmp/vax-pass1.imp" sw5_C_63:; #line 2406 "regression-compile-tmp/vax-pass1.imp" J = DMIN; #line 2406 "regression-compile-tmp/vax-pass1.imp" L = (((int)(LABEL)) - (3)); // 2407 %CYCLE #line 2407 "regression-compile-tmp/vax-pass1.imp" L_0202:; // 2408 fault(7) %AND ->top %IF dict(j) < 0 #line 2408 "regression-compile-tmp/vax-pass1.imp" if (((DICT[(((int)(J)) - (1))]) >= (0))) goto L_0205; #line 2408 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 2408 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2408 "regression-compile-tmp/vax-pass1.imp" L_0205:; // 2409 %EXIT %IF dict(j)&1 = 0 #line 2409 "regression-compile-tmp/vax-pass1.imp" if (((((DICT[(((int)(J)) - (1))]) & (1))) != (0))) goto L_0206; #line 2409 "regression-compile-tmp/vax-pass1.imp" goto L_0203; #line 2409 "regression-compile-tmp/vax-pass1.imp" L_0206:; // 2410 j = j+1; l = l-3 #line 2410 "regression-compile-tmp/vax-pass1.imp" J = (((int)(J)) + (1)); #line 2410 "regression-compile-tmp/vax-pass1.imp" L = (((int)(L)) - (3)); // 2411 %REPEAT #line 2411 "regression-compile-tmp/vax-pass1.imp" goto L_0202; #line 2411 "regression-compile-tmp/vax-pass1.imp" L_0203:; // 2412 l = l+1 %IF x = 32; !continue #line 2412 "regression-compile-tmp/vax-pass1.imp" if (((X) != (32))) goto L_0207; #line 2412 "regression-compile-tmp/vax-pass1.imp" L = (((int)(L)) + (1)); #line 2412 "regression-compile-tmp/vax-pass1.imp" L_0207:; // 2413 op('F', l) #line 2413 "regression-compile-tmp/vax-pass1.imp" OP(70, L); // 2414 dict(j) = dict(j)!x; !show given #line 2414 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(J)) - (1))] = ((DICT[(((int)(J)) - (1))]) | (X)); // 2415 ->atop #line 2415 "regression-compile-tmp/vax-pass1.imp" goto U_101c; // 2416 // 2417 c(50):put('C'); ->cop; !acomp #line 2417 "regression-compile-tmp/vax-pass1.imp" sw5_C_50:; #line 2417 "regression-compile-tmp/vax-pass1.imp" PUT(67); #line 2417 "regression-compile-tmp/vax-pass1.imp" goto U_101e; // 2418 // 2419 c(49): #line 2419 "regression-compile-tmp/vax-pass1.imp" sw5_C_49:; // 2420 %IF next # 0 %START; !comparator #line 2420 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) == (0))) goto L_0208; // 2421 put('"'); push(0); !double sided #line 2421 "regression-compile-tmp/vax-pass1.imp" PUT(34); #line 2421 "regression-compile-tmp/vax-pass1.imp" PUSH(0); // 2422 %FINISH %ELSE %START #line 2422 "regression-compile-tmp/vax-pass1.imp" goto L_0209; #line 2422 "regression-compile-tmp/vax-pass1.imp" L_0208:; // 2423 put('?') #line 2423 "regression-compile-tmp/vax-pass1.imp" PUT(63); // 2424 %FINISH #line 2424 "regression-compile-tmp/vax-pass1.imp" L_0209:; // 2425 // 2426 cop: x = x!!1 %IF cnest(cp)&2 # 0; !invert the condition #line 2426 "regression-compile-tmp/vax-pass1.imp" U_101e:; #line 2426 "regression-compile-tmp/vax-pass1.imp" if (((((CNEST[CP]) & (2))) == (0))) goto L_020a; #line 2426 "regression-compile-tmp/vax-pass1.imp" X = ((X) ^ (1)); #line 2426 "regression-compile-tmp/vax-pass1.imp" L_020a:; // 2427 j = cp; l = clab #line 2427 "regression-compile-tmp/vax-pass1.imp" J = CP; #line 2427 "regression-compile-tmp/vax-pass1.imp" L = CLAB; // 2428 %WHILE cnest(j)&4 = 0 %CYCLE #line 2428 "regression-compile-tmp/vax-pass1.imp" L_020b:; #line 2428 "regression-compile-tmp/vax-pass1.imp" if (((((CNEST[J]) & (4))) != (0))) goto L_020c; // 2429 j = j-1; l = l-cnest(j)&1 #line 2429 "regression-compile-tmp/vax-pass1.imp" J = (((int)(J)) - (1)); #line 2429 "regression-compile-tmp/vax-pass1.imp" L = ((L) - ((int)(((CNEST[J]) & (1))))); // 2430 %REPEAT #line 2430 "regression-compile-tmp/vax-pass1.imp" goto L_020b; #line 2430 "regression-compile-tmp/vax-pass1.imp" L_020c:; // 2431 op(cc(x), l) #line 2431 "regression-compile-tmp/vax-pass1.imp" OP(CC[X], L); // 2432 def lab(clab+1) %IF cnest(cp)&1 # 0 #line 2432 "regression-compile-tmp/vax-pass1.imp" if (((((CNEST[CP]) & (1))) == (0))) goto L_020e; #line 2432 "regression-compile-tmp/vax-pass1.imp" DEFLAB((((int)(CLAB)) + (1))); #line 2432 "regression-compile-tmp/vax-pass1.imp" L_020e:; // 2433 cp = cp-1 #line 2433 "regression-compile-tmp/vax-pass1.imp" CP = (((int)(CP)) - (1)); // 2434 clab = clab-cnest(cp)&1 #line 2434 "regression-compile-tmp/vax-pass1.imp" CLAB = ((CLAB) - ((int)(((CNEST[CP]) & (1))))); // 2435 ->top #line 2435 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2436 // 2437 c(78): !fresult #line 2437 "regression-compile-tmp/vax-pass1.imp" sw5_C_78:; // 2438 c(79): !mresult #line 2438 "regression-compile-tmp/vax-pass1.imp" sw5_C_79:; // 2439 c(80): open = 0; !return, true, false #line 2439 "regression-compile-tmp/vax-pass1.imp" sw5_C_80:; #line 2439 "regression-compile-tmp/vax-pass1.imp" OPEN = 0; // 2440 c(82): access = 0; !stop #line 2440 "regression-compile-tmp/vax-pass1.imp" sw5_C_82:; #line 2440 "regression-compile-tmp/vax-pass1.imp" ACCESS = 0; // 2441 c(89): !addop #line 2441 "regression-compile-tmp/vax-pass1.imp" sw5_C_89:; // 2442 c(81): put(x); ->top; !monitor #line 2442 "regression-compile-tmp/vax-pass1.imp" sw5_C_81:; #line 2442 "regression-compile-tmp/vax-pass1.imp" PUT(X); #line 2442 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2443 // 2444 c(65): pop lit; op('e', lit); ->atop; !signal #line 2444 "regression-compile-tmp/vax-pass1.imp" sw5_C_65:; #line 2444 "regression-compile-tmp/vax-pass1.imp" POPLIT(); #line 2444 "regression-compile-tmp/vax-pass1.imp" OP(101, LIT); #line 2444 "regression-compile-tmp/vax-pass1.imp" goto U_101c; // 2445 // 2446 c(51): put('S'); ->top; !eq #line 2446 "regression-compile-tmp/vax-pass1.imp" sw5_C_51:; #line 2446 "regression-compile-tmp/vax-pass1.imp" PUT(83); #line 2446 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2447 c(53): put('j'); ->top; !jam transfer #line 2447 "regression-compile-tmp/vax-pass1.imp" sw5_C_53:; #line 2447 "regression-compile-tmp/vax-pass1.imp" PUT(106); #line 2447 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2448 c(52): put('Z'); ->top; !eqeq #line 2448 "regression-compile-tmp/vax-pass1.imp" sw5_C_52:; #line 2448 "regression-compile-tmp/vax-pass1.imp" PUT(90); #line 2448 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2449 // 2450 c(74):%IF level = 0 %START; !begin #line 2450 "regression-compile-tmp/vax-pass1.imp" sw5_C_74:; #line 2450 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) != (0))) goto L_020f; // 2451 %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7) #line 2451 "regression-compile-tmp/vax-pass1.imp" if (((PROGMODE) > (0))) goto L_0210; #line 2451 "regression-compile-tmp/vax-pass1.imp" PROGMODE = 1; #line 2451 "regression-compile-tmp/vax-pass1.imp" goto L_0211; #line 2451 "regression-compile-tmp/vax-pass1.imp" L_0210:; #line 2451 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 2451 "regression-compile-tmp/vax-pass1.imp" L_0211:; // 2452 {Permit BEGIN after external defs} // 2453 %FINISH #line 2453 "regression-compile-tmp/vax-pass1.imp" L_020f:; // 2454 spec mode = level+1 #line 2454 "regression-compile-tmp/vax-pass1.imp" SPECMODE = (((int)(LEVEL)) + (1)); // 2455 block x = 0 #line 2455 "regression-compile-tmp/vax-pass1.imp" BLOCKX = 0; // 2456 put('H'); %RETURN #line 2456 "regression-compile-tmp/vax-pass1.imp" PUT(72); #line 2456 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2457 c(77):perm = 0; lines = 0; stats = 0; !endofperm #line 2457 "regression-compile-tmp/vax-pass1.imp" sw5_C_77:; #line 2457 "regression-compile-tmp/vax-pass1.imp" PERM = 0; #line 2457 "regression-compile-tmp/vax-pass1.imp" LINES = 0; #line 2457 "regression-compile-tmp/vax-pass1.imp" STATS = 0; // 2458 debug("close input {input stream=".itos(input stream,0)."}") #line 2458 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("close input {input stream="),(_imp_string)_imp_ITOS(_imp_INPUTSTREAM(), 0)),(_imp_string)_imp_str_literal("}"))); // 2459 close input #line 2459 "regression-compile-tmp/vax-pass1.imp" _imp_CLOSEINPUT(); // 2460 debug("select input(source=".itos(source,0).")") #line 2460 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(source="),(_imp_string)_imp_ITOS(1, 0)),(_imp_string)_imp_str_literal(")"))); // 2461 select input(source); #line 2461 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTINPUT(1); // 2462 sym = nl #line 2462 "regression-compile-tmp/vax-pass1.imp" SYM = 10; // 2463 list = list-1 #line 2463 "regression-compile-tmp/vax-pass1.imp" LIST = (((int)(LIST)) - (1)); // 2464 list = list -1 %if command & listbit # 0 #line 2464 "regression-compile-tmp/vax-pass1.imp" if (((((COMMAND) & (256))) == (0))) goto L_0212; #line 2464 "regression-compile-tmp/vax-pass1.imp" LIST = (((int)(LIST)) - (1)); #line 2464 "regression-compile-tmp/vax-pass1.imp" L_0212:; // 2465 tbase = tmax; tstart = tmax #line 2465 "regression-compile-tmp/vax-pass1.imp" TBASE = TMAX; #line 2465 "regression-compile-tmp/vax-pass1.imp" TSTART = TMAX; // 2466 %RETURN #line 2466 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2467 c(76):%IF include # 0 %AND x = 0 %START; !end of ... #line 2467 "regression-compile-tmp/vax-pass1.imp" sw5_C_76:; #line 2467 "regression-compile-tmp/vax-pass1.imp" if (((INCLUDE) == (0))) goto L_0213; #line 2467 "regression-compile-tmp/vax-pass1.imp" if (((X) != (0))) goto L_0213; // 2468 lines = include; sstype = 0; !include #line 2468 "regression-compile-tmp/vax-pass1.imp" LINES = INCLUDE; #line 2468 "regression-compile-tmp/vax-pass1.imp" SSTYPE = 0; // 2469 debug("close input {input stream=".itos(input stream,0)."}") #line 2469 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("close input {input stream="),(_imp_string)_imp_ITOS(_imp_INPUTSTREAM(), 0)),(_imp_string)_imp_str_literal("}"))); // 2470 close input #line 2470 "regression-compile-tmp/vax-pass1.imp" _imp_CLOSEINPUT(); // 2471 list = include list #line 2471 "regression-compile-tmp/vax-pass1.imp" LIST = INCLUDELIST; // 2472 include = 0; #line 2472 "regression-compile-tmp/vax-pass1.imp" INCLUDE = 0; // 2473 debug("select input(source=".itos(source,0).")") #line 2473 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(source="),(_imp_string)_imp_ITOS(1, 0)),(_imp_string)_imp_str_literal(")"))); // 2474 select input(source); #line 2474 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTINPUT(1); // 2475 sym = nl; #line 2475 "regression-compile-tmp/vax-pass1.imp" SYM = 10; // 2476 %RETURN #line 2476 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2477 %FINISH #line 2477 "regression-compile-tmp/vax-pass1.imp" L_0213:; // 2478 ss = -1; !prog/file #line 2478 "regression-compile-tmp/vax-pass1.imp" SS = (-1); // 2479 c(75):compile end(x); %RETURN; !%END #line 2479 "regression-compile-tmp/vax-pass1.imp" sw5_C_75:; #line 2479 "regression-compile-tmp/vax-pass1.imp" COMPILEEND(X); #line 2479 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2480 // 2481 c(85):%IF x=0 %THEN control=lit %ELSE %START; !control #line 2481 "regression-compile-tmp/vax-pass1.imp" sw5_C_85:; #line 2481 "regression-compile-tmp/vax-pass1.imp" if (((X) != (0))) goto L_0214; #line 2481 "regression-compile-tmp/vax-pass1.imp" CONTROL = LIT; #line 2481 "regression-compile-tmp/vax-pass1.imp" goto L_0215; #line 2481 "regression-compile-tmp/vax-pass1.imp" L_0214:; // 2482 diag = lit&16_3FFF %IF lit>>14&3 = 1 #line 2482 "regression-compile-tmp/vax-pass1.imp" if ((((((int)((((unsigned int)(LIT)) >> (14)))) & (3))) != (1))) goto L_0216; #line 2482 "regression-compile-tmp/vax-pass1.imp" DIAG = ((LIT) & (16383)); #line 2482 "regression-compile-tmp/vax-pass1.imp" L_0216:; // 2483 %FINISH #line 2483 "regression-compile-tmp/vax-pass1.imp" L_0215:; // 2484 op('z'-x, lit) #line 2484 "regression-compile-tmp/vax-pass1.imp" OP((((int)(122)) - (X)), LIT); // 2485 ->top #line 2485 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2486 c(83):list = list+x-2; ->top; !%LIST/%ENDOFLIST #line 2486 "regression-compile-tmp/vax-pass1.imp" sw5_C_83:; #line 2486 "regression-compile-tmp/vax-pass1.imp" LIST = (((int)((((int)(LIST)) + (X)))) - (2)); #line 2486 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2487 c(84):reals ln = x; ->top; !%REALS long/normal #line 2487 "regression-compile-tmp/vax-pass1.imp" sw5_C_84:; #line 2487 "regression-compile-tmp/vax-pass1.imp" REALSLN = X; #line 2487 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2488 c(86):%IF include # 0 %START; !include "file" #line 2488 "regression-compile-tmp/vax-pass1.imp" sw5_C_86:; #line 2488 "regression-compile-tmp/vax-pass1.imp" if (((INCLUDE) == (0))) goto L_0217; // 2489 fault(7); %RETURN #line 2489 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 2489 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2490 %FINISH #line 2490 "regression-compile-tmp/vax-pass1.imp" L_0217:; // 2491 get next; !sconst #line 2491 "regression-compile-tmp/vax-pass1.imp" GETNEXT(); // 2492 include file = string(x-16_4000+stbase) #line 2492 "regression-compile-tmp/vax-pass1.imp" INCLUDEFILE = *_imp_STRING((((int)((((int)(X)) - (16384)))) + (STBASE))); // 2493 open input(3, include file) #line 2493 "regression-compile-tmp/vax-pass1.imp" _imp_OPENINPUT(3, INCLUDEFILE); // 2494 include = lines; lines = 0 #line 2494 "regression-compile-tmp/vax-pass1.imp" INCLUDE = LINES; #line 2494 "regression-compile-tmp/vax-pass1.imp" LINES = 0; // 2495 include list = list #line 2495 "regression-compile-tmp/vax-pass1.imp" INCLUDELIST = LIST; // 2496 debug("select input(3)") #line 2496 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_str_literal("select input(3)")); // 2497 select input(3); #line 2497 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTINPUT(3); // 2498 sym = nl #line 2498 "regression-compile-tmp/vax-pass1.imp" SYM = 10; // 2499 ->top #line 2499 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2500 // 2501 c(154):dimension = dimension+1; !dbsep #line 2501 "regression-compile-tmp/vax-pass1.imp" sw5_C_154:; #line 2501 "regression-compile-tmp/vax-pass1.imp" DIMENSION = (((int)(DIMENSION)) + (1)); // 2502 fault(11) %IF dimension = dim limit+1 #line 2502 "regression-compile-tmp/vax-pass1.imp" if (((DIMENSION) != (7))) goto L_0218; #line 2502 "regression-compile-tmp/vax-pass1.imp" FAULT(11); #line 2502 "regression-compile-tmp/vax-pass1.imp" L_0218:; // 2503 ->top #line 2503 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2504 c(145):set bp; ->top; !crb #line 2504 "regression-compile-tmp/vax-pass1.imp" sw5_C_145:; #line 2504 "regression-compile-tmp/vax-pass1.imp" SETBP(); #line 2504 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2505 c(146):set bp; !rcrb #line 2505 "regression-compile-tmp/vax-pass1.imp" sw5_C_146:; #line 2505 "regression-compile-tmp/vax-pass1.imp" SETBP(); // 2506 c(142): !bplrb #line 2506 "regression-compile-tmp/vax-pass1.imp" sw5_C_142:; // 2507 dimension = 1 %IF dimension = 0 #line 2507 "regression-compile-tmp/vax-pass1.imp" if (((DIMENSION) != (0))) goto L_0219; #line 2507 "regression-compile-tmp/vax-pass1.imp" DIMENSION = 1; #line 2507 "regression-compile-tmp/vax-pass1.imp" L_0219:; // 2508 op('d', dimension); op(',', defs) #line 2508 "regression-compile-tmp/vax-pass1.imp" OP(100, DIMENSION); #line 2508 "regression-compile-tmp/vax-pass1.imp" OP(44, DEFS); // 2509 %IF class # 146 %START #line 2509 "regression-compile-tmp/vax-pass1.imp" if (((CLASS) == (146))) goto L_021a; // 2510 set subs(defs) #line 2510 "regression-compile-tmp/vax-pass1.imp" SETSUBS(DEFS); // 2511 last array = tmax-1 #line 2511 "regression-compile-tmp/vax-pass1.imp" LASTARRAY = (((int)(TMAX)) - (1)); // 2512 fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0 #line 2512 "regression-compile-tmp/vax-pass1.imp" if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_021b; #line 2512 "regression-compile-tmp/vax-pass1.imp" if (((INHIBIT) != (0))) goto L_021b; #line 2512 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) != (0))) goto L_021c; #line 2512 "regression-compile-tmp/vax-pass1.imp" L_021b:; #line 2512 "regression-compile-tmp/vax-pass1.imp" FAULT(13); #line 2512 "regression-compile-tmp/vax-pass1.imp" L_021c:; // 2513 %FINISH #line 2513 "regression-compile-tmp/vax-pass1.imp" L_021a:; // 2514 dimension = 0; defs = 0 #line 2514 "regression-compile-tmp/vax-pass1.imp" DIMENSION = 0; #line 2514 "regression-compile-tmp/vax-pass1.imp" DEFS = 0; // 2515 ->top #line 2515 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2516 c(128):id = dupid; ->top; !EDUP #line 2516 "regression-compile-tmp/vax-pass1.imp" sw5_C_128:; #line 2516 "regression-compile-tmp/vax-pass1.imp" ID = DUPID; #line 2516 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2517 c(130):block x = x #line 2517 "regression-compile-tmp/vax-pass1.imp" sw5_C_130:; #line 2517 "regression-compile-tmp/vax-pass1.imp" BLOCKX = X; // 2518 op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc #line 2518 "regression-compile-tmp/vax-pass1.imp" if (((((DECL) & (128))) != (0))) goto L_021d; #line 2518 "regression-compile-tmp/vax-pass1.imp" if (((LEVEL) == (0))) goto L_021d; #line 2518 "regression-compile-tmp/vax-pass1.imp" OP(70, 0); #line 2518 "regression-compile-tmp/vax-pass1.imp" L_021d:; // 2519 c(125):dupid = id; !%DUP #line 2519 "regression-compile-tmp/vax-pass1.imp" sw5_C_125:; #line 2519 "regression-compile-tmp/vax-pass1.imp" DUPID = ID; // 2520 c(90): def(x); ->top; !ident #line 2520 "regression-compile-tmp/vax-pass1.imp" sw5_C_90:; #line 2520 "regression-compile-tmp/vax-pass1.imp" DEF(X); #line 2520 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2521 c(131): !cident #line 2521 "regression-compile-tmp/vax-pass1.imp" sw5_C_131:; // 2522 %IF tag(x)_flags&(2_1111111+const bit) = iform+const bit %START #line 2522 "regression-compile-tmp/vax-pass1.imp" if (((((TAG[X].FLAGS) & (8319))) != (8209))) goto L_021e; // 2523 tag(x)_format = lit #line 2523 "regression-compile-tmp/vax-pass1.imp" TAG[X].FORMAT = LIT; // 2524 %FINISH %ELSE %START #line 2524 "regression-compile-tmp/vax-pass1.imp" goto L_021f; #line 2524 "regression-compile-tmp/vax-pass1.imp" L_021e:; // 2525 set const(lit) %IF pending # 0 #line 2525 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_0220; #line 2525 "regression-compile-tmp/vax-pass1.imp" SETCONST(LIT); #line 2525 "regression-compile-tmp/vax-pass1.imp" L_0220:; // 2526 def(x) #line 2526 "regression-compile-tmp/vax-pass1.imp" DEF(X); // 2527 put('A'); putlong(1) #line 2527 "regression-compile-tmp/vax-pass1.imp" PUT(65); #line 2527 "regression-compile-tmp/vax-pass1.imp" PUTLONG(1); // 2528 %FINISH #line 2528 "regression-compile-tmp/vax-pass1.imp" L_021f:; // 2529 cident = x #line 2529 "regression-compile-tmp/vax-pass1.imp" CIDENT = X; // 2530 ->top #line 2530 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2531 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS #line 2531 "regression-compile-tmp/vax-pass1.imp" sw5_C_124:; #line 2531 "regression-compile-tmp/vax-pass1.imp" if (((((TAG[CIDENT].FLAGS) & (256))) == (0))) goto L_0221; #line 2531 "regression-compile-tmp/vax-pass1.imp" DUBIOUS = 1; #line 2531 "regression-compile-tmp/vax-pass1.imp" L_0221:; // 2532 ->top #line 2532 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2533 c(97): !f #line 2533 "regression-compile-tmp/vax-pass1.imp" sw5_C_97:; // 2534 c(98): !m #line 2534 "regression-compile-tmp/vax-pass1.imp" sw5_C_98:; // 2535 c(99): !p #line 2535 "regression-compile-tmp/vax-pass1.imp" sw5_C_99:; // 2536 c(96): call; ->top; !r #line 2536 "regression-compile-tmp/vax-pass1.imp" sw5_C_96:; #line 2536 "regression-compile-tmp/vax-pass1.imp" CALL(); #line 2536 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2537 // 2538 c(165): !nlab #line 2538 "regression-compile-tmp/vax-pass1.imp" sw5_C_165:; // 2539 c(100): !rp #line 2539 "regression-compile-tmp/vax-pass1.imp" sw5_C_100:; // 2540 c(101): !fp #line 2540 "regression-compile-tmp/vax-pass1.imp" sw5_C_101:; // 2541 c(102): !mp #line 2541 "regression-compile-tmp/vax-pass1.imp" sw5_C_102:; // 2542 c(103): !pp #line 2542 "regression-compile-tmp/vax-pass1.imp" sw5_C_103:; // 2543 c(91): !v #line 2543 "regression-compile-tmp/vax-pass1.imp" sw5_C_91:; // 2544 c(92): !n #line 2544 "regression-compile-tmp/vax-pass1.imp" sw5_C_92:; // 2545 c(106): !a #line 2545 "regression-compile-tmp/vax-pass1.imp" sw5_C_106:; // 2546 c(107): !an #line 2546 "regression-compile-tmp/vax-pass1.imp" sw5_C_107:; // 2547 c(108): !na #line 2547 "regression-compile-tmp/vax-pass1.imp" sw5_C_108:; // 2548 c(109): !nan #line 2548 "regression-compile-tmp/vax-pass1.imp" sw5_C_109:; // 2549 k = tag(x)_index #line 2549 "regression-compile-tmp/vax-pass1.imp" K = TAG[X].INDEX; // 2550 %IF k < 0 %THEN op('n', -k) %ELSE op('@', k) #line 2550 "regression-compile-tmp/vax-pass1.imp" if (((K) >= (0))) goto L_0222; #line 2550 "regression-compile-tmp/vax-pass1.imp" OP(110, (-(K))); #line 2550 "regression-compile-tmp/vax-pass1.imp" goto L_0223; #line 2550 "regression-compile-tmp/vax-pass1.imp" L_0222:; #line 2550 "regression-compile-tmp/vax-pass1.imp" OP(64, K); #line 2550 "regression-compile-tmp/vax-pass1.imp" L_0223:; // 2551 ->top #line 2551 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2552 c(121):set const(0); ->top; !special for zero #line 2552 "regression-compile-tmp/vax-pass1.imp" sw5_C_121:; #line 2552 "regression-compile-tmp/vax-pass1.imp" SETCONST(0); #line 2552 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2553 c(167):put('G'); ->pstr; !aconst (alias) #line 2553 "regression-compile-tmp/vax-pass1.imp" sw5_C_167:; #line 2553 "regression-compile-tmp/vax-pass1.imp" PUT(71); #line 2553 "regression-compile-tmp/vax-pass1.imp" goto U_101f; // 2554 c(const): !const #line 2554 "regression-compile-tmp/vax-pass1.imp" sw5_C_93:; // 2555 %IF x < 0 %START; !constinteger #line 2555 "regression-compile-tmp/vax-pass1.imp" if (((X) >= (0))) goto L_0224; // 2556 set const(tag(-x)_format); ->top #line 2556 "regression-compile-tmp/vax-pass1.imp" SETCONST(TAG[(-(X))].FORMAT); #line 2556 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2557 %FINISH #line 2557 "regression-compile-tmp/vax-pass1.imp" L_0224:; // 2558 %IF x&16_4000 # 0 %START; !strings #line 2558 "regression-compile-tmp/vax-pass1.imp" if (((((X) & (16384))) == (0))) goto L_0225; // 2559 put('''') #line 2559 "regression-compile-tmp/vax-pass1.imp" PUT(39); // 2560 pstr: x = x-16_4000+stbase #line 2560 "regression-compile-tmp/vax-pass1.imp" U_101f:; #line 2560 "regression-compile-tmp/vax-pass1.imp" X = (((int)((((int)(X)) - (16384)))) + (STBASE)); // 2561 k = byteinteger(x) #line 2561 "regression-compile-tmp/vax-pass1.imp" K = *_imp_BYTEINTEGER(X); // 2562 putblock(k+1, byteinteger(x)) #line 2562 "regression-compile-tmp/vax-pass1.imp" PUTBLOCK((((int)(K)) + (1)), _imp_BYTEINTEGER(X)); // 2563 -> top #line 2563 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2564 %FINISH #line 2564 "regression-compile-tmp/vax-pass1.imp" L_0225:; // 2565 %IF x&16_2000 # 0 %START; !real #line 2565 "regression-compile-tmp/vax-pass1.imp" if (((((X) & (8192))) == (0))) goto L_0226; // 2566 x = x-16_2000+stbase #line 2566 "regression-compile-tmp/vax-pass1.imp" X = (((int)((((int)(X)) - (8192)))) + (STBASE)); // 2567 k = byteinteger(x) #line 2567 "regression-compile-tmp/vax-pass1.imp" K = *_imp_BYTEINTEGER(X); // 2568 op('D', k); put(',') #line 2568 "regression-compile-tmp/vax-pass1.imp" OP(68, K); #line 2568 "regression-compile-tmp/vax-pass1.imp" PUT(44); // 2569 k = k+x #line 2569 "regression-compile-tmp/vax-pass1.imp" K = (((int)(K)) + (X)); // 2570 %CYCLE #line 2570 "regression-compile-tmp/vax-pass1.imp" L_0227:; // 2571 ->top %IF x = k #line 2571 "regression-compile-tmp/vax-pass1.imp" if (((X) != (K))) goto L_022a; #line 2571 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2571 "regression-compile-tmp/vax-pass1.imp" L_022a:; // 2572 x = x+1; j = byteinteger(x) #line 2572 "regression-compile-tmp/vax-pass1.imp" X = (((int)(X)) + (1)); #line 2572 "regression-compile-tmp/vax-pass1.imp" J = *_imp_BYTEINTEGER(X); // 2573 %IF j = '@' %START #line 2573 "regression-compile-tmp/vax-pass1.imp" if (((J) != (64))) goto L_022b; // 2574 op('@', litpool(byteinteger(x+1))); ->top #line 2574 "regression-compile-tmp/vax-pass1.imp" OP(64, LITPOOL[*_imp_BYTEINTEGER((((int)(X)) + (1)))]); #line 2574 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2575 %FINISH #line 2575 "regression-compile-tmp/vax-pass1.imp" L_022b:; // 2576 put(j) #line 2576 "regression-compile-tmp/vax-pass1.imp" PUT(J); // 2577 %REPEAT #line 2577 "regression-compile-tmp/vax-pass1.imp" goto L_0227; // 2578 %FINISH #line 2578 "regression-compile-tmp/vax-pass1.imp" L_0226:; // 2579 set const(lit pool(x)) #line 2579 "regression-compile-tmp/vax-pass1.imp" SETCONST(LITPOOL[X]); // 2580 ->top #line 2580 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2581 // 2582 c(137):put('i'); ->top; !asep #line 2582 "regression-compile-tmp/vax-pass1.imp" sw5_C_137:; #line 2582 "regression-compile-tmp/vax-pass1.imp" PUT(105); #line 2582 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2583 c(141):put('a'); ->top; !arb #line 2583 "regression-compile-tmp/vax-pass1.imp" sw5_C_141:; #line 2583 "regression-compile-tmp/vax-pass1.imp" PUT(97); #line 2583 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2584 // 2585 !own arrays // 2586 // 2587 c(132):ocount = ub-lb+1 #line 2587 "regression-compile-tmp/vax-pass1.imp" sw5_C_132:; #line 2587 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (((int)((((int)(UB)) - (LB)))) + (1)); // 2588 def(x); !oident #line 2588 "regression-compile-tmp/vax-pass1.imp" DEF(X); // 2589 dimension = 1; set subs(1) #line 2589 "regression-compile-tmp/vax-pass1.imp" DIMENSION = 1; #line 2589 "regression-compile-tmp/vax-pass1.imp" SETSUBS(1); // 2590 %IF next = 0 %START; !no initialisation #line 2590 "regression-compile-tmp/vax-pass1.imp" if (((NEXT) != (0))) goto L_022c; // 2591 %IF ocount > 0 %start #line 2591 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) <= (0))) goto L_0228; // 2592 put('A'); putlong(ocount) #line 2592 "regression-compile-tmp/vax-pass1.imp" PUT(65); #line 2592 "regression-compile-tmp/vax-pass1.imp" PUTLONG(OCOUNT); // 2593 %finish #line 2593 "regression-compile-tmp/vax-pass1.imp" L_0228:; // 2594 ocount = -1 #line 2594 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (-1); // 2595 %FINISH %ELSE %START; !initialisation given #line 2595 "regression-compile-tmp/vax-pass1.imp" goto L_022d; #line 2595 "regression-compile-tmp/vax-pass1.imp" L_022c:; // 2596 get next #line 2596 "regression-compile-tmp/vax-pass1.imp" GETNEXT(); // 2597 %FINISH #line 2597 "regression-compile-tmp/vax-pass1.imp" L_022d:; // 2598 ->top #line 2598 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2599 c(162):lit = ocount; ->ins; !indef #line 2599 "regression-compile-tmp/vax-pass1.imp" sw5_C_162:; #line 2599 "regression-compile-tmp/vax-pass1.imp" LIT = OCOUNT; #line 2599 "regression-compile-tmp/vax-pass1.imp" goto U_1020; // 2600 c(143):pop lit; !orb #line 2600 "regression-compile-tmp/vax-pass1.imp" sw5_C_143:; #line 2600 "regression-compile-tmp/vax-pass1.imp" POPLIT(); // 2601 ins: fault(10) %AND lit = 0 %IF lit < 0 #line 2601 "regression-compile-tmp/vax-pass1.imp" U_1020:; #line 2601 "regression-compile-tmp/vax-pass1.imp" if (((LIT) >= (0))) goto L_022e; #line 2601 "regression-compile-tmp/vax-pass1.imp" FAULT(10); #line 2601 "regression-compile-tmp/vax-pass1.imp" LIT = 0; #line 2601 "regression-compile-tmp/vax-pass1.imp" L_022e:; // 2602 get next #line 2602 "regression-compile-tmp/vax-pass1.imp" GETNEXT(); // 2603 ->inst #line 2603 "regression-compile-tmp/vax-pass1.imp" goto U_1021; // 2604 c(139): !osep (x=19) #line 2604 "regression-compile-tmp/vax-pass1.imp" sw5_C_139:; // 2605 c(153):lit = 1 #line 2605 "regression-compile-tmp/vax-pass1.imp" sw5_C_153:; #line 2605 "regression-compile-tmp/vax-pass1.imp" LIT = 1; // 2606 inst: pop def %IF pending # 0; !ownt (x=0) #line 2606 "regression-compile-tmp/vax-pass1.imp" U_1021:; #line 2606 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_022f; #line 2606 "regression-compile-tmp/vax-pass1.imp" POPDEF(); #line 2606 "regression-compile-tmp/vax-pass1.imp" L_022f:; // 2607 put('A'); putlong(lit) #line 2607 "regression-compile-tmp/vax-pass1.imp" PUT(65); #line 2607 "regression-compile-tmp/vax-pass1.imp" PUTLONG(LIT); // 2608 ocount = ocount-lit #line 2608 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (((int)(OCOUNT)) - (LIT)); // 2609 %IF ocount >= 0 %START #line 2609 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) < (0))) goto L_0230; // 2610 ->top %IF x # 0; !more coming #line 2610 "regression-compile-tmp/vax-pass1.imp" if (((X) == (0))) goto L_0231; #line 2610 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2610 "regression-compile-tmp/vax-pass1.imp" L_0231:; // 2611 ocount = -1 %AND %RETURN %IF ocount = 0; !all done #line 2611 "regression-compile-tmp/vax-pass1.imp" if (((OCOUNT) != (0))) goto L_0232; #line 2611 "regression-compile-tmp/vax-pass1.imp" OCOUNT = (-1); #line 2611 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 2611 "regression-compile-tmp/vax-pass1.imp" L_0232:; // 2612 %FINISH #line 2612 "regression-compile-tmp/vax-pass1.imp" L_0230:; // 2613 fault(11); %RETURN #line 2613 "regression-compile-tmp/vax-pass1.imp" FAULT(11); #line 2613 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2614 // 2615 c(swit):op('W', tag(x)_index); inhibit = 1; ->atop #line 2615 "regression-compile-tmp/vax-pass1.imp" sw5_C_105:; #line 2615 "regression-compile-tmp/vax-pass1.imp" OP(87, TAG[X].INDEX); #line 2615 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 1; #line 2615 "regression-compile-tmp/vax-pass1.imp" goto U_101c; // 2616 c(134):def(x); !swid #line 2616 "regression-compile-tmp/vax-pass1.imp" sw5_C_134:; #line 2616 "regression-compile-tmp/vax-pass1.imp" DEF(X); // 2617 n = ub-lb+1 #line 2617 "regression-compile-tmp/vax-pass1.imp" N = (((int)((((int)(UB)) - (LB)))) + (1)); // 2618 n = (n+15)>>4; !slots needed (includes zero) #line 2618 "regression-compile-tmp/vax-pass1.imp" N = (((((((int)(N)) + (15)))) >> (4))); // 2619 j = dmax; dmax = dmax+n+2 #line 2619 "regression-compile-tmp/vax-pass1.imp" J = DMAX; #line 2619 "regression-compile-tmp/vax-pass1.imp" DMAX = (((int)((((int)(DMAX)) + (N)))) + (2)); // 2620 abandon(1) %IF dmax >= dmin #line 2620 "regression-compile-tmp/vax-pass1.imp" if (((DMAX) < (DMIN))) goto L_0233; #line 2620 "regression-compile-tmp/vax-pass1.imp" ABANDON(1); #line 2620 "regression-compile-tmp/vax-pass1.imp" L_0233:; // 2621 tag(x)_format = j #line 2621 "regression-compile-tmp/vax-pass1.imp" TAG[X].FORMAT = J; // 2622 dict(j) = lb; dict(j+1) = ub #line 2622 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)(J)) - (1))] = LB; #line 2622 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)((((int)(J)) + (1)))) - (1))] = UB; // 2623 %CYCLE #line 2623 "regression-compile-tmp/vax-pass1.imp" L_0234:; // 2624 n = n-1 #line 2624 "regression-compile-tmp/vax-pass1.imp" N = (((int)(N)) - (1)); // 2625 ->top %IF n < 0 #line 2625 "regression-compile-tmp/vax-pass1.imp" if (((N) >= (0))) goto L_0237; #line 2625 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2625 "regression-compile-tmp/vax-pass1.imp" L_0237:; // 2626 j = j+1; dict(j+1) = 0 #line 2626 "regression-compile-tmp/vax-pass1.imp" J = (((int)(J)) + (1)); #line 2626 "regression-compile-tmp/vax-pass1.imp" DICT[(((int)((((int)(J)) + (1)))) - (1))] = 0; // 2627 %REPEAT #line 2627 "regression-compile-tmp/vax-pass1.imp" goto L_0234; // 2628 c(151):stats = stats-1; !slab #line 2628 "regression-compile-tmp/vax-pass1.imp" sw5_C_151:; #line 2628 "regression-compile-tmp/vax-pass1.imp" STATS = (((int)(STATS)) - (1)); // 2629 fault(7) %AND %RETURN %IF x < tbase #line 2629 "regression-compile-tmp/vax-pass1.imp" if (((X) >= (TBASE))) goto L_0235; #line 2629 "regression-compile-tmp/vax-pass1.imp" FAULT(7); #line 2629 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 2629 "regression-compile-tmp/vax-pass1.imp" L_0235:; // 2630 %IF pending # 0 %START; !explicit label #line 2630 "regression-compile-tmp/vax-pass1.imp" if (((PENDING) == (0))) goto L_0238; // 2631 def s lab(pstack(1)) #line 2631 "regression-compile-tmp/vax-pass1.imp" DEFSLAB((PSTACK-1)[1]); // 2632 %FINISH %ELSE %START #line 2632 "regression-compile-tmp/vax-pass1.imp" goto L_0239; #line 2632 "regression-compile-tmp/vax-pass1.imp" L_0238:; // 2633 fault(4) %AND %RETURN %IF tag(x)_app # 0 #line 2633 "regression-compile-tmp/vax-pass1.imp" if (((TAG[X].APP) == (0))) goto L_023a; #line 2633 "regression-compile-tmp/vax-pass1.imp" FAULT(4); #line 2633 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; #line 2633 "regression-compile-tmp/vax-pass1.imp" L_023a:; // 2634 tag(x)_app = 1 #line 2634 "regression-compile-tmp/vax-pass1.imp" TAG[X].APP = 1; // 2635 n = tag(x)_format #line 2635 "regression-compile-tmp/vax-pass1.imp" N = TAG[X].FORMAT; // 2636 %FOR j = dict(n), 1, dict(n+1) %CYCLE; !imp77: #line 2636 "regression-compile-tmp/vax-pass1.imp" {static int _initial, _increment, _final, _control; _initial = DICT[(((int)(N)) - (1))]; _increment = 1; _final = DICT[(((int)((((int)(N)) + (1)))) - (1))]; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = DICT[(((int)(N)) - (1))], 1, DICT[(((int)((((int)(N)) + (1)))) - (1))]"); J -= _increment; _control -= _increment; L_023b:; if (J == _final) goto L_023c; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 2637 def s lab(j); !imp77: #line 2637 "regression-compile-tmp/vax-pass1.imp" DEFSLAB(J); // 2638 %REPEAT; !imp77: #line 2638 "regression-compile-tmp/vax-pass1.imp" goto L_023b; #line 2638 "regression-compile-tmp/vax-pass1.imp" L_023c:; // 2639 %FINISH #line 2639 "regression-compile-tmp/vax-pass1.imp" L_0239:; // 2640 inhibit = 1 #line 2640 "regression-compile-tmp/vax-pass1.imp" INHIBIT = 1; // 2641 %RETURN #line 2641 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; // 2642 // 2643 c(140):put('p'); ->top; !psep #line 2643 "regression-compile-tmp/vax-pass1.imp" sw5_C_140:; #line 2643 "regression-compile-tmp/vax-pass1.imp" PUT(112); #line 2643 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2644 c(144):put('p'); put('E'); ->top; !prb #line 2644 "regression-compile-tmp/vax-pass1.imp" sw5_C_144:; #line 2644 "regression-compile-tmp/vax-pass1.imp" PUT(112); #line 2644 "regression-compile-tmp/vax-pass1.imp" PUT(69); #line 2644 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2645 // 2646 !constant expressions // 2647 // 2648 c(155): !pconst #line 2648 "regression-compile-tmp/vax-pass1.imp" sw5_C_155:; // 2649 %IF x < 0 %THEN lit = tag(-x)_format %ELSE lit = lit pool(x) #line 2649 "regression-compile-tmp/vax-pass1.imp" if (((X) >= (0))) goto L_023e; #line 2649 "regression-compile-tmp/vax-pass1.imp" LIT = TAG[(-(X))].FORMAT; #line 2649 "regression-compile-tmp/vax-pass1.imp" goto L_023f; #line 2649 "regression-compile-tmp/vax-pass1.imp" L_023e:; #line 2649 "regression-compile-tmp/vax-pass1.imp" LIT = LITPOOL[X]; #line 2649 "regression-compile-tmp/vax-pass1.imp" L_023f:; // 2650 pending = pending+1; pstack(pending) = lit; ->top #line 2650 "regression-compile-tmp/vax-pass1.imp" PENDING = (((int)(PENDING)) + (1)); #line 2650 "regression-compile-tmp/vax-pass1.imp" (PSTACK-1)[PENDING] = LIT; #line 2650 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2651 c(156):lit = pstack(pending); lit = -lit %IF lit < 0 #line 2651 "regression-compile-tmp/vax-pass1.imp" sw5_C_156:; #line 2651 "regression-compile-tmp/vax-pass1.imp" LIT = (PSTACK-1)[PENDING]; #line 2651 "regression-compile-tmp/vax-pass1.imp" if (((LIT) >= (0))) goto L_0240; #line 2651 "regression-compile-tmp/vax-pass1.imp" LIT = (-(LIT)); #line 2651 "regression-compile-tmp/vax-pass1.imp" L_0240:; // 2652 pstack(pending) = lit; ->top; !cmod #line 2652 "regression-compile-tmp/vax-pass1.imp" (PSTACK-1)[PENDING] = LIT; #line 2652 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2653 c(157):-> top %if X#36 { JGH fix to %const %integer X = +1 => -1 bug } #line 2653 "regression-compile-tmp/vax-pass1.imp" sw5_C_157:; #line 2653 "regression-compile-tmp/vax-pass1.imp" if (((X) == (36))) goto L_0241; #line 2653 "regression-compile-tmp/vax-pass1.imp" goto U_101b; #line 2653 "regression-compile-tmp/vax-pass1.imp" L_0241:; // 2654 lit = -pstack(pending); pstack(pending) = lit; ->top; !csign #line 2654 "regression-compile-tmp/vax-pass1.imp" LIT = (-((PSTACK-1)[PENDING])); #line 2654 "regression-compile-tmp/vax-pass1.imp" (PSTACK-1)[PENDING] = LIT; #line 2654 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2655 c(158):lit = \pstack(pending); pstack(pending) = lit; ->top; !cuop #line 2655 "regression-compile-tmp/vax-pass1.imp" sw5_C_158:; #line 2655 "regression-compile-tmp/vax-pass1.imp" LIT = (~((PSTACK-1)[PENDING])); #line 2655 "regression-compile-tmp/vax-pass1.imp" (PSTACK-1)[PENDING] = LIT; #line 2655 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2656 c(159): !cop1 #line 2656 "regression-compile-tmp/vax-pass1.imp" sw5_C_159:; // 2657 c(160): !cop2 #line 2657 "regression-compile-tmp/vax-pass1.imp" sw5_C_160:; // 2658 c(161):pending = pending-1; !cop3 #line 2658 "regression-compile-tmp/vax-pass1.imp" sw5_C_161:; #line 2658 "regression-compile-tmp/vax-pass1.imp" PENDING = (((int)(PENDING)) - (1)); // 2659 lit2 = pstack(pending+1); lit = pstack(pending) #line 2659 "regression-compile-tmp/vax-pass1.imp" LIT2 = (PSTACK-1)[(((int)(PENDING)) + (1))]; #line 2659 "regression-compile-tmp/vax-pass1.imp" LIT = (PSTACK-1)[PENDING]; // 2660 ->litop(x>>2) #line 2660 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_idx = (int)((((unsigned int)(X)) >> (2))); if ((1 <= sw6_LITOP_idx) && (sw6_LITOP_idx <= 12)) goto *(sw6_LITOP-1)[sw6_LITOP_idx]; /* Bounds=1:12 */ else { /*_imp_signal(8, 2, sw6_LITOP_idx);*/ fprintf(stderr, "%%SWITCH index LITOP(%d) not in range 1:12 at %s:%d\n", sw6_LITOP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2661 litop(*):debug("* Switch label not set: litop(".itos(x>>2,0).") {x=".itos(x,2)."}"); %stop #line 2661 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_default:; #line 2661 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: litop("),(_imp_string)_imp_ITOS((int)((((unsigned int)(X)) >> (2))), 0)),(_imp_string)_imp_str_literal(") {x=")),(_imp_string)_imp_ITOS(X, 2)),(_imp_string)_imp_str_literal("}"))); #line 2661 "regression-compile-tmp/vax-pass1.imp" exit(0); // 2662 litop(10):lit = lit*lit2; ->setl #line 2662 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_10:; #line 2662 "regression-compile-tmp/vax-pass1.imp" LIT = (((int)(LIT)) * (LIT2)); #line 2662 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2663 litop(12): #line 2663 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_12:; // 2664 litop(3):n = 1; !lit = lit\\lit2 #line 2664 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_3:; #line 2664 "regression-compile-tmp/vax-pass1.imp" N = 1; // 2665 fault(10) %IF lit2 < 0 #line 2665 "regression-compile-tmp/vax-pass1.imp" if (((LIT2) >= (0))) goto L_0242; #line 2665 "regression-compile-tmp/vax-pass1.imp" FAULT(10); #line 2665 "regression-compile-tmp/vax-pass1.imp" L_0242:; // 2666 %WHILE lit2 > 0 %CYCLE #line 2666 "regression-compile-tmp/vax-pass1.imp" L_0243:; #line 2666 "regression-compile-tmp/vax-pass1.imp" if (((LIT2) <= (0))) goto L_0244; // 2667 lit2 = lit2-1 #line 2667 "regression-compile-tmp/vax-pass1.imp" LIT2 = (((int)(LIT2)) - (1)); // 2668 n = n*lit #line 2668 "regression-compile-tmp/vax-pass1.imp" N = (((int)(N)) * (LIT)); // 2669 %REPEAT #line 2669 "regression-compile-tmp/vax-pass1.imp" goto L_0243; #line 2669 "regression-compile-tmp/vax-pass1.imp" L_0244:; // 2670 lit = n; ->setl #line 2670 "regression-compile-tmp/vax-pass1.imp" LIT = N; #line 2670 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2671 litop(1):lit = lit<setl #line 2671 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_1:; #line 2671 "regression-compile-tmp/vax-pass1.imp" LIT = ((LIT) << (LIT2)); #line 2671 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2672 litop(2):lit = lit>>lit2; ->setl #line 2672 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_2:; #line 2672 "regression-compile-tmp/vax-pass1.imp" LIT = (int)((((unsigned int)(LIT)) >> (LIT2))); #line 2672 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2673 litop(5):lit = lit&lit2; ->setl #line 2673 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_5:; #line 2673 "regression-compile-tmp/vax-pass1.imp" LIT = ((LIT) & (LIT2)); #line 2673 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2674 litop(11): #line 2674 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_11:; // 2675 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2 #line 2675 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_4:; #line 2675 "regression-compile-tmp/vax-pass1.imp" if (((LIT2) != (0))) goto L_0246; #line 2675 "regression-compile-tmp/vax-pass1.imp" FAULT(10); #line 2675 "regression-compile-tmp/vax-pass1.imp" goto L_0247; #line 2675 "regression-compile-tmp/vax-pass1.imp" L_0246:; #line 2675 "regression-compile-tmp/vax-pass1.imp" LIT = (long)((long)((int)(LIT)) / (long)((int)(_Z(LIT2)))); #line 2675 "regression-compile-tmp/vax-pass1.imp" L_0247:; // 2676 ->setl #line 2676 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2677 litop(8):lit = lit+lit2; ->setl #line 2677 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_8:; #line 2677 "regression-compile-tmp/vax-pass1.imp" LIT = (((int)(LIT)) + (LIT2)); #line 2677 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2678 litop(9):lit = lit-lit2; ->setl #line 2678 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_9:; #line 2678 "regression-compile-tmp/vax-pass1.imp" LIT = (((int)(LIT)) - (LIT2)); #line 2678 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2679 litop(6):lit = lit!lit2; ->setl #line 2679 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_6:; #line 2679 "regression-compile-tmp/vax-pass1.imp" LIT = ((LIT) | (LIT2)); #line 2679 "regression-compile-tmp/vax-pass1.imp" goto U_1022; // 2680 litop(7):lit = lit!!lit2 #line 2680 "regression-compile-tmp/vax-pass1.imp" sw6_LITOP_7:; #line 2680 "regression-compile-tmp/vax-pass1.imp" LIT = ((LIT) ^ (LIT2)); // 2681 // 2682 setl: pstack(pending) = lit; ->top #line 2682 "regression-compile-tmp/vax-pass1.imp" U_1022:; #line 2682 "regression-compile-tmp/vax-pass1.imp" (PSTACK-1)[PENDING] = LIT; #line 2682 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2683 // 2684 c(170): !option string #line 2684 "regression-compile-tmp/vax-pass1.imp" sw5_C_170:; // 2685 put('~'); put('D') #line 2685 "regression-compile-tmp/vax-pass1.imp" PUT(126); #line 2685 "regression-compile-tmp/vax-pass1.imp" PUT(68); // 2686 ->pstr #line 2686 "regression-compile-tmp/vax-pass1.imp" goto U_101f; // 2687 // 2688 !string resolution // 2689 // 2690 c(135):resln = 2; ->top; !dotl #line 2690 "regression-compile-tmp/vax-pass1.imp" sw5_C_135:; #line 2690 "regression-compile-tmp/vax-pass1.imp" RESLN = 2; #line 2690 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2691 c(136):resln = resln+1; ->top; !dotr #line 2691 "regression-compile-tmp/vax-pass1.imp" sw5_C_136:; #line 2691 "regression-compile-tmp/vax-pass1.imp" RESLN = (((int)(RESLN)) + (1)); #line 2691 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2692 c(55): op('r', resln); resln = 0; ->top; !resop #line 2692 "regression-compile-tmp/vax-pass1.imp" sw5_C_55:; #line 2692 "regression-compile-tmp/vax-pass1.imp" OP(114, RESLN); #line 2692 "regression-compile-tmp/vax-pass1.imp" RESLN = 0; #line 2692 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2693 c(164):op('r', resln+4); resln = 0; !cresop #line 2693 "regression-compile-tmp/vax-pass1.imp" sw5_C_164:; #line 2693 "regression-compile-tmp/vax-pass1.imp" OP(114, (((int)(RESLN)) + (4))); #line 2693 "regression-compile-tmp/vax-pass1.imp" RESLN = 0; // 2694 c(122):x = 6; ->cop; !%PRED #line 2694 "regression-compile-tmp/vax-pass1.imp" sw5_C_122:; #line 2694 "regression-compile-tmp/vax-pass1.imp" X = 6; #line 2694 "regression-compile-tmp/vax-pass1.imp" goto U_101e; // 2695 c(87):set const(pstack(1)); !mass #line 2695 "regression-compile-tmp/vax-pass1.imp" sw5_C_87:; #line 2695 "regression-compile-tmp/vax-pass1.imp" SETCONST((PSTACK-1)[1]); // 2696 put('P'); ->top #line 2696 "regression-compile-tmp/vax-pass1.imp" PUT(80); #line 2696 "regression-compile-tmp/vax-pass1.imp" goto U_101b; // 2697 %END #line 2697 "regression-compile-tmp/vax-pass1.imp" return; sw5_C_1:; sw5_C_2:; sw5_C_3:; sw5_C_4:; sw5_C_5:; sw5_C_6:; sw5_C_7:; sw5_C_8:; sw5_C_9:; sw5_C_10:; sw5_C_11:; sw5_C_12:; sw5_C_13:; sw5_C_14:; sw5_C_15:; sw5_C_16:; sw5_C_17:; sw5_C_18:; sw5_C_19:; sw5_C_20:; sw5_C_21:; sw5_C_22:; sw5_C_23:; sw5_C_24:; sw5_C_25:; sw5_C_26:; sw5_C_40:; sw5_C_54:; sw5_C_61:; sw5_C_66:; sw5_C_73:; sw5_C_94:; sw5_C_95:; sw5_C_110:; sw5_C_111:; sw5_C_112:; sw5_C_113:; sw5_C_114:; sw5_C_115:; sw5_C_116:; sw5_C_117:; sw5_C_118:; sw5_C_119:; sw5_C_123:; sw5_C_129:; sw5_C_150:; sw5_C_169:; sw5_C_176:; sw5_C_177:; sw5_C_178:; sw5_C_179:; sw5_C_180:; goto sw5_C_default; } // End of block COMPILE at level 3 // 2698 // 2699 %END; !of compile block #line 2699 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block COMPILEBLOCK at level 2 // 2700 // 2701 debug("ENTERED PASS1 object tank=".itos(object tank,0)." *************") #line 2701 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("ENTERED PASS1 object tank="),(_imp_string)_imp_ITOS(OBJECTTANK, 0)),(_imp_string)_imp_str_literal(" *************"))); // 2702 // 2703 %ON 9 %START #line 2703 "regression-compile-tmp/vax-pass1.imp" if (!_imp_on_event(9)) goto L_0248; /* TO DO: Remove %on %event handler just before L_0248: if present for this block */ // 2704 debug("[3]%ON 9 %START:") #line 2704 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_str_literal("[3]%ON 9 %START:")); // 2705 abandon(5) #line 2705 "regression-compile-tmp/vax-pass1.imp" ABANDON(5); // 2706 %FINISH #line 2706 "regression-compile-tmp/vax-pass1.imp" L_0248:; // 2707 // 2708 selectoutput(listing) ;!!!!!!!!!!!!!!!! THIS FAILS #line 2708 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTOUTPUT(2); // 2709 !debug("A: object tank=".itos(object tank,0)) // 2710 %if command & list bit # 0 %start #line 2710 "regression-compile-tmp/vax-pass1.imp" if (((((COMMAND) & (256))) == (0))) goto L_0249; // 2711 printstring(" #line 2711 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("\n Computer Science VAX-11 IMP77 Compiler. Version 8.02\n\n Compiled on "),(_imp_string)DATE()),(_imp_string)_imp_str_literal(" at ")),(_imp_string)TIME())); // 2712 Computer Science VAX-11 IMP77 Compiler. Version 8.02 // 2713 // 2714 Compiled on ".date." at ".time) // 2715 newlines(2) #line 2715 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINES(2); // 2716 debug("select input(1)") #line 2716 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_str_literal("select input(1)")); // 2717 select input(1) #line 2717 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTINPUT(1); // 2718 printstring(" Source file: ".infilename) #line 2718 "regression-compile-tmp/vax-pass1.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(" Source file: "),(_imp_string)INFILENAME())); // 2719 newline; newline #line 2719 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); #line 2719 "regression-compile-tmp/vax-pass1.imp" _imp_NEWLINE(); // 2720 !debug("B: object tank=".itos(object tank,0)) // 2721 %finish #line 2721 "regression-compile-tmp/vax-pass1.imp" L_0249:; // 2722 !debug("C: object tank=".itos(object tank,0)) // 2723 debug("select input(prims=".itos(prims,0).")") #line 2723 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(prims="),(_imp_string)_imp_ITOS(2, 0)),(_imp_string)_imp_str_literal(")"))); // 2724 select input(prims) #line 2724 "regression-compile-tmp/vax-pass1.imp" _imp_SELECTINPUT(2); // 2725 debug("select output tank(object tank=".itos(object tank,0).")") #line 2725 "regression-compile-tmp/vax-pass1.imp" DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select output tank(object tank="),(_imp_string)_imp_ITOS(OBJECTTANK, 0)),(_imp_string)_imp_str_literal(")"))); // 2726 select output tank(object tank) #line 2726 "regression-compile-tmp/vax-pass1.imp" SELECTOUTPUTTANK(OBJECTTANK); // 2727 tag(max tag) = 0; !%BEGIN defn #line 2727 "regression-compile-tmp/vax-pass1.imp" TAG[1200] = (TAGFM){ 0 } /* Assign 0's to all fields of record */; // 2728 tag(0) = 0; tag(0)_flags = 7; !%BEGIN tag! #line 2728 "regression-compile-tmp/vax-pass1.imp" TAG[0] = (TAGFM){ 0 } /* Assign 0's to all fields of record */; #line 2728 "regression-compile-tmp/vax-pass1.imp" TAG[0].FLAGS = 7; // 2729 %FOR x = 0, 1, max names %CYCLE; !imp77: #line 2729 "regression-compile-tmp/vax-pass1.imp" X = (-1); if ((((2047)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle X = 0, 1, 2047"); L_024a:; if (X == 2047) goto L_024b; X += 1; // 2730 hash(x) = 0; !imp77: #line 2730 "regression-compile-tmp/vax-pass1.imp" HASH[X] = 0; // 2731 %REPEAT; !imp77: #line 2731 "regression-compile-tmp/vax-pass1.imp" goto L_024a; #line 2731 "regression-compile-tmp/vax-pass1.imp" L_024b:; // 2732 include file = "" #line 2732 "regression-compile-tmp/vax-pass1.imp" INCLUDEFILE = _imp_str_literal(""); // 2733 put('l'); putword(0) #line 2733 "regression-compile-tmp/vax-pass1.imp" PUT(108); #line 2733 "regression-compile-tmp/vax-pass1.imp" PUTWORD(0); // 2734 compile block(0, 0, max dict, 0, 0) #line 2734 "regression-compile-tmp/vax-pass1.imp" COMPILEBLOCK(0, 0, 9000, 0, 0); // 2735 %result = -faulty %IF faulty # 0; !imp77: %ENDOFPROGRAM #line 2735 "regression-compile-tmp/vax-pass1.imp" if (((FAULTY) == (0))) goto L_024d; #line 2735 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return (-(FAULTY)); #line 2735 "regression-compile-tmp/vax-pass1.imp" L_024d:; // 2736 %result = stats #line 2736 "regression-compile-tmp/vax-pass1.imp" /* Remove %on %event handler here if present for this block */ return STATS; // 2737 %end #line 2737 "regression-compile-tmp/vax-pass1.imp" } // End of block PASS1 at level 1 // 2738 %endoffile #line 2738 "regression-compile-tmp/vax-pass1.imp" // End of file