#include // 1 %EXTERNALROUTINE CHECKINNER(%INTEGER FSTART,FSIZE, %INTEGERNAME PARM) #line 1 "regression-compile-tmp/check.imp" void CHECKINNER( int FSTART, int FSIZE, int /*name*/*PARM ) #line 1 "regression-compile-tmp/check.imp" { // 2 !%EXTERNALLONGREALFNSPEC CPUTIME // 3 %LONGREAL TIME1,TIME2 #line 3 "regression-compile-tmp/check.imp" double TIME1; #line 3 "regression-compile-tmp/check.imp" double TIME2; // 4 ! // 5 !DECLARATION CODES // 6 %CONSTINTEGER STRINGBIT=X'80', REALBITS=X'30', INTBIT=X'40' // 7 %CONSTINTEGER NUMBITS=X'70' // 8 %CONSTINTEGER APPMASK=X'FF00' // 9 %CONSTINTEGER EXP=1, FN=2 // 10 %CONSTINTEGER RECFORMAT=4, ROUTINE=6 // 11 %CONSTINTEGER REF=8, VAR=9, MAP=10 // 12 %CONSTINTEGER LAB=12, JUMPLAB=13 // 13 %CONSTINTEGER SWITCH=X'10C' // 14 %CONSTINTEGER IMP1MODES=B'01000011111111000000000000000000' // 15 %CONSTINTEGER IMPMODES =B'01000011111100000000000000000000' // 16 %CONSTINTEGER DESTMODES=B'00000000111100000000000000000000' // 17 %CONSTINTEGER ADRMODES =B'01000000111100000000000000000000' // 18 %CONSTINTEGER EXPMODES =B'11110000111100000000000000000000' // 19 %CONSTINTEGER FMATMODES=B'00001000000000000000000000000000' // 20 !SYMBOL INIT CODES // 21 ! USED EXPLICITLY // 22 ! SPACE=0, DIGIT:ISO, LETTER:ISO, QUOTE=127 // 23 ! PC=128, PCLET OR PUNCT: 128 + KEYDICT INDEX // 24 ! KEYDICT INDEX >= PUNCTMIN FOR PUNCT // 25 ! KEYDICT INDEX >= SKIP1MIN FOR ! * SEMICOLON NL // 26 %CONSTINTEGER NLCODE=127; !MASKED FROM 255 ACTUAL // 27 !ATOM CODES // 28 %CONSTINTEGER IDENT=1, CONST=2, LB=11, COMMA=10, RB=12 // 29 %CONSTINTEGER TERMINATOR=13, JUMP=15 // 30 %CONSTINTEGER OP3=6, START=53, CYCLE=54 // 31 ! VERTICAL BAR // 32 %CONSTINTEGER MARKER=124 // 33 // 34 %OWNINTEGER STATS=0, ATOMS=-54, IDENTIFIERS=-54, NUMBERS=0, LOOPS=0 #line 34 "regression-compile-tmp/check.imp" static int STATS = 0; #line 34 "regression-compile-tmp/check.imp" static int ATOMS = (-54); #line 34 "regression-compile-tmp/check.imp" static int IDENTIFIERS = (-54); #line 34 "regression-compile-tmp/check.imp" static int NUMBERS = 0; #line 34 "regression-compile-tmp/check.imp" static int LOOPS = 0; // 35 %OWNINTEGER LOOKS=1, TIMES=1 #line 35 "regression-compile-tmp/check.imp" static int LOOKS = 1; #line 35 "regression-compile-tmp/check.imp" static int TIMES = 1; // 36 %INTEGER I,J #line 36 "regression-compile-tmp/check.imp" int I; #line 36 "regression-compile-tmp/check.imp" int J; // 37 %INTEGER LINEBASE; !BASE FOR SOURCE LINE (POINTER) #line 37 "regression-compile-tmp/check.imp" int LINEBASE; // 38 %INTEGER FPOS; !CURRENT POSITION IN SOURCE (POINTER) #line 38 "regression-compile-tmp/check.imp" int FPOS; // 39 %INTEGER FPOS1; !START OF CURRENT ATOM (POINTER) #line 39 "regression-compile-tmp/check.imp" int FPOS1; // 40 %INTEGER PRINTPOS; !'LINE-ALREADY-PRINTED' INDIC #line 40 "regression-compile-tmp/check.imp" int PRINTPOS; // 41 %INTEGER LINE; !CURRENT LINE NUMBER #line 41 "regression-compile-tmp/check.imp" int LINE; // 42 %INTEGER NEXTLINE #line 42 "regression-compile-tmp/check.imp" int NEXTLINE; // 43 %INTEGER FMAX; !LAST BYTE IN SOURCE (POINTER) #line 43 "regression-compile-tmp/check.imp" int FMAX; // 44 %INTEGER FAULTNUM; !FAULTY NUMBER #line 44 "regression-compile-tmp/check.imp" int FAULTNUM; // 45 %INTEGER FAULTPOS; !FAULTY ATOM POSITION (POINTER) #line 45 "regression-compile-tmp/check.imp" int FAULTPOS; // 46 %INTEGER SYMCODE; !SYMBOL CODE FOR CURRENT SYMBOL #line 46 "regression-compile-tmp/check.imp" int SYMCODE; // 47 %INTEGER SKIPMIN; !=SKIP1MIN OR NLCODE #line 47 "regression-compile-tmp/check.imp" int SKIPMIN; // 48 !%INTEGER GG; !=GRAM(G) // 49 %INTEGER CLASS; !GRAMMAR CLASS #line 49 "regression-compile-tmp/check.imp" int CLASS; // 50 %INTEGER G; !INDEX TO GRAM #line 50 "regression-compile-tmp/check.imp" int G; // 51 %INTEGER ATOM; !ATOM CODE FOR CURRENT ATOM #line 51 "regression-compile-tmp/check.imp" int ATOM; // 52 %INTEGER ATOMTYPE; !TYPE FOR CURREMT ATOM #line 52 "regression-compile-tmp/check.imp" int ATOMTYPE; // 53 %INTEGER ATOMVAL; !'VALUE' FOR CURRENT ATOM #line 53 "regression-compile-tmp/check.imp" int ATOMVAL; // 54 %INTEGER DECLTYPE; !DECLARATION TYPE #line 54 "regression-compile-tmp/check.imp" int DECLTYPE; // 55 %INTEGER MODES; !BIT VECTOR FOR PERMISSIBLE IDENT MODES #line 55 "regression-compile-tmp/check.imp" int MODES; // 56 %INTEGER DIMCOUNT; !DIMENSION COUNT #line 56 "regression-compile-tmp/check.imp" int DIMCOUNT; // 57 %INTEGER CONSTCOUNT; !CONSTANT COUNT (DOWN) #line 57 "regression-compile-tmp/check.imp" int CONSTCOUNT; // 58 %INTEGER STRINGSIZE #line 58 "regression-compile-tmp/check.imp" int STRINGSIZE; // 59 %INTEGER PRECISION #line 59 "regression-compile-tmp/check.imp" int PRECISION; // 60 %INTEGER LASTTYPE,LASTVAL #line 60 "regression-compile-tmp/check.imp" int LASTTYPE; #line 60 "regression-compile-tmp/check.imp" int LASTVAL; // 61 %INTEGER TYPE,VAL #line 61 "regression-compile-tmp/check.imp" int TYPE; #line 61 "regression-compile-tmp/check.imp" int VAL; // 62 %INTEGER NP; !NEST POINTER (INDEX TO NTYPE,NVAL) #line 62 "regression-compile-tmp/check.imp" int NP; // 63 %INTEGERARRAY NTYPE,NVAL(1:50); !NEST #line 63 "regression-compile-tmp/check.imp" int NTYPE[50]; #line 63 "regression-compile-tmp/check.imp" int NVAL[50]; // 64 %INTEGER LINKMAX; !GRAMMAR STACK MAX (INDEX TO LINK) #line 64 "regression-compile-tmp/check.imp" int LINKMAX; // 65 %INTEGERARRAY LINK(1:20); !GRAMMAR CONTROL STACK #line 65 "regression-compile-tmp/check.imp" int LINK[20]; // 66 %RECORDFORMAT BLOCKINF(%INTEGER STACK,LOCAL,BTYPE) #line 66 "regression-compile-tmp/check.imp" typedef struct BLOCKINF BLOCKINF; struct BLOCKINF { int STACK; int LOCAL; int BTYPE; }; // 67 %INTEGER LEVEL; !CURRENT BLOCK LEVEL (MAIN=1) #line 67 "regression-compile-tmp/check.imp" int LEVEL; // 68 %RECORD(BLOCKINF) C; !INFO FOR CURRENT BLOCK #line 68 "regression-compile-tmp/check.imp" BLOCKINF C; // 69 %RECORD(BLOCKINF)%ARRAY HOLD(1:12); !INFO FOR GLOBAL BLOCKS #line 69 "regression-compile-tmp/check.imp" BLOCKINF HOLD[12]; // 70 %INTEGERARRAY INDEX(0:255); !HASH INDEX TO IDENT DICT #line 70 "regression-compile-tmp/check.imp" int INDEX[256]; // 71 %INTEGERNAME HEAD; !HEAD OF IDENT SEARCH LIST #line 71 "regression-compile-tmp/check.imp" int /*name*/*HEAD; // 72 %INTEGER DPOS; !DICT SEARCH POSITION (POINTER) #line 72 "regression-compile-tmp/check.imp" int DPOS; // 73 %INTEGER DLIM; !DICT LIMIT (POINTER) #line 73 "regression-compile-tmp/check.imp" int DLIM; // 74 %INTEGER NEWDLIM #line 74 "regression-compile-tmp/check.imp" int NEWDLIM; // 75 %INTEGER DBOUND; !DICT UPPER LIMIT (POINTER); #line 75 "regression-compile-tmp/check.imp" int DBOUND; // 76 %INTEGER IDENTS; !POS OF FIRST IDENT IN DECL LIST (POINTER) #line 76 "regression-compile-tmp/check.imp" int IDENTS; // 77 %INTEGER RECIDENTS; !POS OF FIRST IDENT IN RECORD LIST (POINTER) #line 77 "regression-compile-tmp/check.imp" int RECIDENTS; // 78 %INTEGER PIDENTPOS; !POS OF PROCEDURE IDENT (POINTER) #line 78 "regression-compile-tmp/check.imp" int PIDENTPOS; // 79 %INTEGER FIDENTPOS; !POS OF FORMAT IDENT (POINTER) #line 79 "regression-compile-tmp/check.imp" int FIDENTPOS; // 80 %INTEGER EXTIND; !SET BY %EXTERNAL #line 80 "regression-compile-tmp/check.imp" int EXTIND; // 81 %INTEGER CONDIND; !SET FOR START,CYCLE #line 81 "regression-compile-tmp/check.imp" int CONDIND; // 82 %INTEGER PARMAX; !CURRENT MAX IN PARTYPE #line 82 "regression-compile-tmp/check.imp" int PARMAX; // 83 %INTEGER ADGRAM0, LINK1; !PRE-COMPUTED GRAMMAR VALUES #line 83 "regression-compile-tmp/check.imp" int ADGRAM0; #line 83 "regression-compile-tmp/check.imp" int LINK1; // 84 %INTEGER APPCONT #line 84 "regression-compile-tmp/check.imp" int APPCONT; // 85 // 86 %OWNINTEGERARRAY PARTYPE(0:255) = 0, #line 86 "regression-compile-tmp/check.imp" static int PARTYPE[256] = { 0, 105, 16777321, 33554537, 50331753, 67108969, 83886185, 41, 16777257, 137, 136, 248, 33554473, 117440553, 16777352, 33554568, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (-50331543), (-33553928), 0, (-16777111), }; // 87 X'00000069', X'01000069', X'02000069', X'03000069', // 88 X'04000069', X'05000069', X'00000029', X'01000029', // 89 X'00000089', X'00000088', X'000000F8', X'02000029', // 90 X'07000029', X'01000088', X'02000088', 0(236), // 91 X'FD000069', X'FE0001F8', X'00000000', X'FF000069' // 92 // 93 %INTEGERARRAY DICT(1:4000) #line 93 "regression-compile-tmp/check.imp" int DICT[4000]; // 94 // 95 !* GRAMMAR AND KEYWORD DICTIONARY GENERATED BY TAKEON PROGRAM // 96 // 97 %CONSTINTEGER PUNCTMIN = 43, SKIP1MIN = 86 // 98 // 99 %CONSTBYTEINTEGERARRAY SYMINIT( 0: 255) = %C #line 99 "regression-compile-tmp/check.imp" const unsigned char SYMINIT[256] = { 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 255, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 0, 217, 127, 171, 129, 128, 173, 127, 175, 178, 214, 180, 182, 184, 187, 189, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 192, 221, 194, 200, 203, 129, 129, 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, 129, 207, 129, 210, 212, 129, 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, 129, 207, 129, 210, 212, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 255, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 0, 217, 127, 171, 129, 128, 173, 127, 175, 178, 214, 180, 182, 184, 187, 189, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 192, 221, 194, 200, 203, 129, 129, 130, 132, 134, 138, 139, 142, 129, 129, 146, 129, 129, 148, 150, 152, 154, 157, 158, 159, 161, 167, 169, 129, 170, 129, 129, 129, 129, 207, 129, 210, 212, 129, 130, 132, 134, 138, 139, 142, 129, 129, 146, 129, 129, 148, 150, 152, 154, 157, 158, 159, 161, 167, 169, 129, 170, 129, 129, 129, 129, 207, 129, 210, 212, }; // 100 129, 129, 129, 129, 129, 129, 129, 129, // 101 129, 129, 255, 129, 129, 129, 129, 129, // 102 129, 129, 129, 129, 129, 129, 129, 129, // 103 129, 129, 129, 129, 129, 129, 129, 129, // 104 0, 217, 127, 171, 129, 128, 173, 127, // 105 175, 178, 214, 180, 182, 184, 187, 189, // 106 48, 49, 50, 51, 52, 53, 54, 55, // 107 56, 57, 192, 221, 194, 200, 203, 129, // 108 129, 65, 66, 67, 68, 69, 70, 71, // 109 72, 73, 74, 75, 76, 77, 78, 79, // 110 80, 81, 82, 83, 84, 85, 86, 87, // 111 88, 89, 90, 129, 207, 129, 210, 212, // 112 129, 65, 66, 67, 68, 69, 70, 71, // 113 72, 73, 74, 75, 76, 77, 78, 79, // 114 80, 81, 82, 83, 84, 85, 86, 87, // 115 88, 89, 90, 129, 207, 129, 210, 212, // 116 129, 129, 129, 129, 129, 129, 129, 129, // 117 129, 129, 255, 129, 129, 129, 129, 129, // 118 129, 129, 129, 129, 129, 129, 129, 129, // 119 129, 129, 129, 129, 129, 129, 129, 129, // 120 0, 217, 127, 171, 129, 128, 173, 127, // 121 175, 178, 214, 180, 182, 184, 187, 189, // 122 48, 49, 50, 51, 52, 53, 54, 55, // 123 56, 57, 192, 221, 194, 200, 203, 129, // 124 129, 130, 132, 134, 138, 139, 142, 129, // 125 129, 146, 129, 129, 148, 150, 152, 154, // 126 157, 158, 159, 161, 167, 169, 129, 170, // 127 129, 129, 129, 129, 207, 129, 210, 212, // 128 129, 130, 132, 134, 138, 139, 142, 129, // 129 129, 146, 129, 129, 148, 150, 152, 154, // 130 157, 158, 159, 161, 167, 169, 129, 170, // 131 129, 129, 129, 129, 207, 129, 210, 212 // 132 // 133 %CONSTSHORTINTEGERARRAY KEYDICT( 0: 487) = %C #line 133 "regression-compile-tmp/check.imp" const short KEYDICT[488] = { 0, 5, (-26642), 6194, (-26523), 6329, (-26385), (-26247), 0, 0, 6585, (-26132), (-26066), 6776, (-25887), (-25815), (-25746), 7151, (-25562), 7342, (-25367), 7471, (-25247), 7599, (-25119), 7727, (-24978), (-24782), 8119, 8178, 8245, (-24475), 8687, (-24024), (-23959), (-23888), (-23820), (-23625), 9209, (-23512), 9330, 9390, 9512, 512, 240, 320, 64, (-23231), 704, 0, 786, 0, 384, 113, 640, 0, (-23074), 384, 114, 384, 128, (-22961), 320, 48, 1600, 1, (-22835), (-22692), (-22563), (-22434), 512, 240, (-22307), 576, 240, (-22179), (-22050), 512, 240, (-21923), 448, 68, 448, 68, 192, 0, (-21814), 320, 112, (-21695), (-21559), 384, 67, 832, 1, 11364, 11506, 11559, 11636, (-21075), 11758, 11875, 11950, 12019, 12068, (-20503), 12340, 12469, 12526, 2496, 11, 12594, 1664, 3, 12788, 12851, 12910, 12976, 13102, 13165, 13236, (-19419), 3264, 1, 2816, 0, 13422, 13545, 13601, (-19103), (-19037), (-18969), (-18896), (-18829), 14004, 14069, 14127, 14183, 14245, (-18463), (-18385), 14450, 14505, 14579, 14629, 14709, (-18004), 14836, 14889, 3008, 0, 960, 0, 320, 64, 576, 0, 256, 64, 512, 240, 256, 64, 896, 0, 512, 240, 256, 64, 512, 240, 256, 112, 384, 68, 3072, 0, 2752, 0, 14945, 15017, 15077, 15149, (-17549), 15284, 15340, 15393, 15461, (-17169), 3712, 0, 15668, (-16987), 15858, 15916, 15977, (-16723), 3136, 0, 16101, 16180, 16295, 2496, 3, 16425, 16485, 2880, 0, 16630, 2048, 0, 16686, 16740, 16812, 17007, 17065, 17125, 17205, 17269, 17332, 17394, 17454, 17507, 17650, 17712, 17833, 17908, 17972, 18030, 18163, 18213, 18281, 18348, 18425, 18606, 18729, 18789, 18868, 18994, 19045, 19181, 3328, 1, 19238, 1024, 2, 19442, 19497, 19572, 19699, 19745, 19815, 1280, 0, (-12887), 19954, 20020, 2240, 1, 20069, 20148, 20210, (-12493), 1984, 25, 20402, 20467, 20513, 20588, 20658, 20713, 20788, 20897, 2624, 1, 20980, 1024, 0, 21102, 21155, 21221, 3200, 0, 21300, 21363, 21420, 21541, (-11090), 2112, 256, 3648, 0, 21742, 21806, 2048, 8, 21871, 3456, 2, 21929, (-10778), (-10708), 22128, 22190, 22254, 1472, 0, 22312, 22452, 22565, 22638, 22693, 22767, 22830, 22900, 22949, (-9748), 23086, 23140, 23284, 23348, 23476, 23598, 23726, (-8983), 23858, 23916, 3392, 1, 24039, 24168, 24301, 24421, 24499, 1728, 0, 1728, 0, 24609, 24692, 24756, 24876, 24995, 25129, 25193, 25266, 25313, 25395, 3520, 1, 2368, 0, 25458, 25588, 25633, 25714, 25908, 26021, 26081, 26159, 26223, 2304, 9, 26277, 3584, 0, 1088, 0, 1024, 1, 26341, 26478, 26543, 1152, 0, 2176, 137, 1920, 268, 2688, 0, 26596, 1664, 3, 26669, 26725, 0, 2, 1344, 0, 2688, 0, 26796, 26867, 26927, 26988, 27113, 1984, 105, 27173, 27244, (-5389), 1152, 0, 3264, 1, 27448, 27500, 27630, 27698, 27762, 2560, 6, 27892, 27957, 28016, 28069, 28199, 28261, 28404, 28519, 2432, 0, 28579, 28711, 1984, 41, 28788, 28852, 1984, 57, 28967, 29101, 1856, 121, 29157, 29236, 29298, 2240, (-255), 29349, 3776, 0, 1280, 0, 29426, 2048, 0, 29477, 29551, 1216, 0, 1408, 32, 29601, 29671, 29737, 29807, 29874, 29985, 30066, 30192, 30316, 30437, 30510, 30567, 1984, 73, 30637, 1984, 121, 1024, 0, 1408, 0, 30770, 30885, 31026, 3776, 1, 1984, 89, 1280, 0, 31073, 31149, 1280, 0, }; // 134 0, 5,-26642, 6194,-26523, 6329,-26385,-26247, 0, 0, // 135 6585,-26132,-26066, 6776,-25887,-25815,-25746, 7151,-25562, 7342, // 136 -25367, 7471,-25247, 7599,-25119, 7727,-24978,-24782, 8119, 8178, // 137 8245,-24475, 8687,-24024,-23959,-23888,-23820,-23625, 9209,-23512, // 138 9330, 9390, 9512, 512, 240, 320, 64,-23231, 704, 0, // 139 786, 0, 384, 113, 640, 0,-23074, 384, 114, 384, // 140 128,-22961, 320, 48, 1600, 1,-22835,-22692,-22563,-22434, // 141 512, 240,-22307, 576, 240,-22179,-22050, 512, 240,-21923, // 142 448, 68, 448, 68, 192, 0,-21814, 320, 112,-21695, // 143 -21559, 384, 67, 832, 1, 11364, 11506, 11559, 11636,-21075, // 144 11758, 11875, 11950, 12019, 12068,-20503, 12340, 12469, 12526, 2496, // 145 11, 12594, 1664, 3, 12788, 12851, 12910, 12976, 13102, 13165, // 146 13236,-19419, 3264, 1, 2816, 0, 13422, 13545, 13601,-19103, // 147 -19037,-18969,-18896,-18829, 14004, 14069, 14127, 14183, 14245,-18463, // 148 -18385, 14450, 14505, 14579, 14629, 14709,-18004, 14836, 14889, 3008, // 149 0, 960, 0, 320, 64, 576, 0, 256, 64, 512, // 150 240, 256, 64, 896, 0, 512, 240, 256, 64, 512, // 151 240, 256, 112, 384, 68, 3072, 0, 2752, 0, 14945, // 152 15017, 15077, 15149,-17549, 15284, 15340, 15393, 15461,-17169, 3712, // 153 0, 15668,-16987, 15858, 15916, 15977,-16723, 3136, 0, 16101, // 154 16180, 16295, 2496, 3, 16425, 16485, 2880, 0, 16630, 2048, // 155 0, 16686, 16740, 16812, 17007, 17065, 17125, 17205, 17269, 17332, // 156 17394, 17454, 17507, 17650, 17712, 17833, 17908, 17972, 18030, 18163, // 157 18213, 18281, 18348, 18425, 18606, 18729, 18789, 18868, 18994, 19045, // 158 19181, 3328, 1, 19238, 1024, 2, 19442, 19497, 19572, 19699, // 159 19745, 19815, 1280, 0,-12887, 19954, 20020, 2240, 1, 20069, // 160 20148, 20210,-12493, 1984, 25, 20402, 20467, 20513, 20588, 20658, // 161 20713, 20788, 20897, 2624, 1, 20980, 1024, 0, 21102, 21155, // 162 21221, 3200, 0, 21300, 21363, 21420, 21541,-11090, 2112, 256, // 163 3648, 0, 21742, 21806, 2048, 8, 21871, 3456, 2, 21929, // 164 -10778,-10708, 22128, 22190, 22254, 1472, 0, 22312, 22452, 22565, // 165 22638, 22693, 22767, 22830, 22900, 22949, -9748, 23086, 23140, 23284, // 166 23348, 23476, 23598, 23726, -8983, 23858, 23916, 3392, 1, 24039, // 167 24168, 24301, 24421, 24499, 1728, 0, 1728, 0, 24609, 24692, // 168 24756, 24876, 24995, 25129, 25193, 25266, 25313, 25395, 3520, 1, // 169 2368, 0, 25458, 25588, 25633, 25714, 25908, 26021, 26081, 26159, // 170 26223, 2304, 9, 26277, 3584, 0, 1088, 0, 1024, 1, // 171 26341, 26478, 26543, 1152, 0, 2176, 137, 1920, 268, 2688, // 172 0, 26596, 1664, 3, 26669, 26725, 0, 2, 1344, 0, // 173 2688, 0, 26796, 26867, 26927, 26988, 27113, 1984, 105, 27173, // 174 27244, -5389, 1152, 0, 3264, 1, 27448, 27500, 27630, 27698, // 175 27762, 2560, 6, 27892, 27957, 28016, 28069, 28199, 28261, 28404, // 176 28519, 2432, 0, 28579, 28711, 1984, 41, 28788, 28852, 1984, // 177 57, 28967, 29101, 1856, 121, 29157, 29236, 29298, 2240, -255, // 178 29349, 3776, 0, 1280, 0, 29426, 2048, 0, 29477, 29551, // 179 1216, 0, 1408, 32, 29601, 29671, 29737, 29807, 29874, 29985, // 180 30066, 30192, 30316, 30437, 30510, 30567, 1984, 73, 30637, 1984, // 181 121, 1024, 0, 1408, 0, 30770, 30885, 31026, 3776, 1, // 182 1984, 89, 1280, 0, 31073, 31149, 1280, 0 // 183 // 184 %CONSTSHORTINTEGERARRAY PHRASE( 109: 126) = %C #line 184 "regression-compile-tmp/check.imp" const short PHRASE[18] = { 257, 249, 368, 430, 264, 269, 286, 298, 335, 345, 0, 452, 237, 374, 381, 0, 420, 437, }; // 185 257, 249, 368, 430, 264, 269, 286, 298, 335, 345, // 186 0, 452, 237, 374, 381, 0, 420, 437 // 187 // 188 %CONSTINTEGER INITBASE = 472 // 189 // 190 {%CONST}%OWNSHORTINTEGERARRAY GRAM( 0: 531) = %C #line 190 "regression-compile-tmp/check.imp" static short GRAM[532] = { 66, 4084, 4511, 4898, 5028, 6440, 64, 7071, 7330, 5028, 64, 11553, 1955, 11685, 11945, 12273, 12321, 2467, 6439, 5617, 12429, 2996, 64, 5786, 5557, 5620, 2157, 12575, 12834, 6440, 64, 12954, 12955, 6961, 64, 13089, 6439, 5489, 4589, 13345, 1955, 12273, 7433, 12429, 64, 6005, 7602, 5557, 64, 7925, 13569, 13737, 64, 12429, 5630, 13089, 5489, 7149, 8257, 5557, 14068, 3250, 5558, 64, 8442, 8538, 4746, 12429, 64, 9042, 9200, 8963, 14217, 14350, 14479, 14617, 9927, 12429, 14763, 66, 14970, 15098, 15489, 64, 15729, 16129, 64, 8062, 16378, 5576, 12274, 16769, 64, 16897, 64, 5614, 5618, 69, 6439, 64, 12653, 5621, 17281, 64, 17409, 64, 17612, 13569, 64, 3124, 64, 18154, 18287, 9976, 9956, 116, 5599, 15199, 10378, 18319, 64, 18636, 15859, 10762, 12429, 64, 18897, 16479, 11274, 5557, 64, 19021, 17105, 17155, 12239, 19276, 19788, 17736, 19851, 19981, 64, 20218, 9964, 20225, 64, 20363, 64, 17616, 20619, 64, 19443, 22409, 12429, 64, 12275, 22905, 89, 9963, 23126, 23554, 64, 20806, 21279, 22306, 21796, 64, 23809, 24609, 24867, 64, 25089, 25889, 24867, 64, 21357, 22593, 26125, 26362, 26881, 64, 23242, 10378, 12429, 64, 5516, 64, 24014, 24330, 5516, 64, 23809, 20806, 27649, 64, 23809, 64, 25294, 28682, 25582, 20618, 5516, 64, 28929, 64, 22724, 26458, 22538, 29067, 29197, 64, 27084, 27402, 17804, 22905, 26881, 22905, 27854, 24586, 28147, 28426, 5516, 64, 27649, 20806, 25089, 64, 29390, 29562, 91, 25459, 29663, 29836, 64, 30046, 22538, 29197, 64, 30534, 31135, 31522, 31652, 40, 31691, 35, 39, 66, 31213, 35, 64, 32139, 64, 32385, 64, 32597, 32780, 64, 88, 33163, 66, 33402, 33503, 33676, 64, 98, 34049, 64, 34252, 33802, 66, 34597, 34801, 34955, 64, 35194, 35296, 35481, 64, 35677, 35834, 35936, 34954, 36236, 64, 36444, 34570, 66, 36875, 64, 37114, 37215, 37401, 64, 37608, 37754, 37855, 38028, 64, 99, 39937, 40847, 41104, 39569, 39058, 41363, 64, 41602, 12429, 14763, 66, 41737, 41870, 64, 40147, 40304, 40067, 14217, 14350, 14479, 9927, 41985, 64, 12429, 66, 42114, 64, 41184, 42346, 42479, 42582, 9953, 42746, 41196, 42864, 41195, 41162, 43126, 43520, 43691, 43820, 66, 67, 44022, 43382, 43691, 66, 44939, 44538, 45448, 45577, 45711, 67, 45173, 45824, 12, 64, 46202, 45544, 120, 46604, 64, 46313, 46728, 46857, 66, 44539, 47098, 46824, 105, 47361, 64, 47569, 47728, 47491, 66, 49281, 48770, 50182, 50311, 50443, 50607, 64, 50308, 50693, 51078, 66, 49492, 49648, 49411, 50308, 50693, 51078, 66, 51302, 51453, 51578, 51834, 50941, 51972, 49001, 52200, 52733, 48873, 48780, 64, 48816, 64, 52861, 52349, 52868, 52997, 49129, 52327, 50921, 53501, 53245, 53508, 52457, 52329, 53757, 53225, 54401, 2, 54539, 54703, 64, 47572, 45306, 54906, 48, 64, 55307, 66, 55546, 55615, 55306, 12, 64, 56175, 56288, 56457, 64, 56641, 56826, 56928, 57098, 64, 57338, 57440, 57610, 64, 57850, 96, 58057, 58251, 58479, 58618, 58721, 58977, 59142, 64, 59276, 64, 59621, 59782, 64, 58251, 64, 60005, 60143, 60257, 59142, 66, 0, 8833, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40847, 41104, 39569, 39058, 41363, 5524, 10261, 5526, 10391, 0, 0, 5786, 6299, 0, 10525, 10782, 2079, 928, 0, 3362, 0, 1444, 0, 294, 0, 6440, 10921, 3498, 0, 0, 0, 0, 0, 0, 11185, 0, 11315, 0, 0, 6838, 2615, 5560, 11449, 5562, 59, }; // 191 66, 4084, 4511, 4898, 5028, 6440, 64, 7071, 7330, 5028, // 192 64, 11553, 1955, 11685, 11945, 12273, 12321, 2467, 6439, 5617, // 193 12429, 2996, 64, 5786, 5557, 5620, 2157, 12575, 12834, 6440, // 194 64, 12954, 12955, 6961, 64, 13089, 6439, 5489, 4589, 13345, // 195 1955, 12273, 7433, 12429, 64, 6005, 7602, 5557, 64, 7925, // 196 13569, 13737, 64, 12429, 5630, 13089, 5489, 7149, 8257, 5557, // 197 14068, 3250, 5558, 64, 8442, 8538, 4746, 12429, 64, 9042, // 198 9200, 8963, 14217, 14350, 14479, 14617, 9927, 12429, 14763, 66, // 199 14970, 15098, 15489, 64, 15729, 16129, 64, 8062, 16378, 5576, // 200 12274, 16769, 64, 16897, 64, 5614, 5618, 69, 6439, 64, // 201 12653, 5621, 17281, 64, 17409, 64, 17612, 13569, 64, 3124, // 202 64, 18154, 18287, 9976, 9956, 116, 5599, 15199, 10378, 18319, // 203 64, 18636, 15859, 10762, 12429, 64, 18897, 16479, 11274, 5557, // 204 64, 19021, 17105, 17155, 12239, 19276, 19788, 17736, 19851, 19981, // 205 64, 20218, 9964, 20225, 64, 20363, 64, 17616, 20619, 64, // 206 19443, 22409, 12429, 64, 12275, 22905, 89, 9963, 23126, 23554, // 207 64, 20806, 21279, 22306, 21796, 64, 23809, 24609, 24867, 64, // 208 25089, 25889, 24867, 64, 21357, 22593, 26125, 26362, 26881, 64, // 209 23242, 10378, 12429, 64, 5516, 64, 24014, 24330, 5516, 64, // 210 23809, 20806, 27649, 64, 23809, 64, 25294, 28682, 25582, 20618, // 211 5516, 64, 28929, 64, 22724, 26458, 22538, 29067, 29197, 64, // 212 27084, 27402, 17804, 22905, 26881, 22905, 27854, 24586, 28147, 28426, // 213 5516, 64, 27649, 20806, 25089, 64, 29390, 29562, 91, 25459, // 214 29663, 29836, 64, 30046, 22538, 29197, 64, 30534, 31135, 31522, // 215 31652, 40, 31691, 35, 39, 66, 31213, 35, 64, 32139, // 216 64, 32385, 64, 32597, 32780, 64, 88, 33163, 66, 33402, // 217 33503, 33676, 64, 98, 34049, 64, 34252, 33802, 66, 34597, // 218 34801, 34955, 64, 35194, 35296, 35481, 64, 35677, 35834, 35936, // 219 34954, 36236, 64, 36444, 34570, 66, 36875, 64, 37114, 37215, // 220 37401, 64, 37608, 37754, 37855, 38028, 64, 99, 39937, 40847, // 221 41104, 39569, 39058, 41363, 64, 41602, 12429, 14763, 66, 41737, // 222 41870, 64, 40147, 40304, 40067, 14217, 14350, 14479, 9927, 41985, // 223 64, 12429, 66, 42114, 64, 41184, 42346, 42479, 42582, 9953, // 224 42746, 41196, 42864, 41195, 41162, 43126, 43520, 43691, 43820, 66, // 225 67, 44022, 43382, 43691, 66, 44939, 44538, 45448, 45577, 45711, // 226 67, 45173, 45824, 12, 64, 46202, 45544, 120, 46604, 64, // 227 46313, 46728, 46857, 66, 44539, 47098, 46824, 105, 47361, 64, // 228 47569, 47728, 47491, 66, 49281, 48770, 50182, 50311, 50443, 50607, // 229 64, 50308, 50693, 51078, 66, 49492, 49648, 49411, 50308, 50693, // 230 51078, 66, 51302, 51453, 51578, 51834, 50941, 51972, 49001, 52200, // 231 52733, 48873, 48780, 64, 48816, 64, 52861, 52349, 52868, 52997, // 232 49129, 52327, 50921, 53501, 53245, 53508, 52457, 52329, 53757, 53225, // 233 54401, 2, 54539, 54703, 64, 47572, 45306, 54906, 48, 64, // 234 55307, 66, 55546, 55615, 55306, 12, 64, 56175, 56288, 56457, // 235 64, 56641, 56826, 56928, 57098, 64, 57338, 57440, 57610, 64, // 236 57850, 96, 58057, 58251, 58479, 58618, 58721, 58977, 59142, 64, // 237 59276, 64, 59621, 59782, 64, 58251, 64, 60005, 60143, 60257, // 238 59142, 66, 0, 8833, 0, 0, 0, 0, 0, 0, // 239 0, 0, 0, 0, 0, 0, 0, 40847, 41104, 39569, // 240 39058, 41363, 5524, 10261, 5526, 10391, 0, 0, 5786, 6299, // 241 0, 10525, 10782, 2079, 928, 0, 3362, 0, 1444, 0, // 242 294, 0, 6440, 10921, 3498, 0, 0, 0, 0, 0, // 243 0, 11185, 0, 11315, 0, 0, 6838, 2615, 5560, 11449, // 244 5562, 59 // 245 // 246 !!END OF GENERATED SECTION // 247 // 248 {%CONST}%OWNBYTEINTEGERARRAY PERM(1:518) = %C #line 248 "regression-compile-tmp/check.imp" static unsigned char PERM[518] = { 65, 68, 68, 82, 58, 11, 98, 65, 82, 67, 67, 79, 83, 58, 7, 34, 65, 82, 67, 83, 73, 78, 58, 7, 34, 65, 82, 82, 65, 89, 58, 252, 248, 65, 82, 67, 84, 65, 78, 58, 13, 34, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 58, 1, 74, 67, 72, 65, 82, 78, 79, 58, 14, 74, 67, 76, 79, 83, 69, 83, 84, 82, 69, 65, 77, 58, 1, 6, 67, 79, 83, 58, 7, 34, 69, 88, 80, 58, 7, 34, 70, 82, 65, 67, 80, 84, 58, 7, 34, 70, 82, 79, 77, 83, 84, 82, 73, 78, 71, 58, 15, 130, 73, 77, 79, 68, 58, 1, 98, 73, 78, 84, 58, 7, 98, 73, 78, 84, 80, 84, 58, 7, 98, 73, 78, 84, 69, 71, 69, 82, 58, 1, 106, 76, 69, 78, 71, 84, 72, 58, 10, 74, 76, 79, 71, 58, 7, 34, 76, 79, 78, 71, 82, 69, 65, 76, 58, 1, 26, 77, 79, 68, 58, 7, 34, 78, 69, 87, 76, 73, 78, 69, 58, 0, 6, 78, 69, 87, 76, 73, 78, 69, 83, 58, 1, 6, 78, 69, 87, 80, 65, 71, 69, 58, 0, 6, 78, 69, 88, 84, 73, 84, 69, 77, 58, 0, 130, 78, 69, 88, 84, 67, 72, 58, 0, 98, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 58, 0, 98, 78, 76, 58, 0, 98, 80, 73, 58, 0, 34, 80, 82, 73, 78, 84, 58, 12, 6, 80, 82, 73, 78, 84, 67, 72, 58, 1, 6, 80, 82, 73, 78, 84, 70, 76, 58, 8, 6, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 58, 9, 6, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 58, 1, 6, 82, 65, 68, 73, 85, 83, 58, 13, 34, 82, 69, 65, 68, 58, 11, 6, 82, 69, 65, 68, 67, 72, 58, 11, 6, 82, 69, 65, 68, 73, 84, 69, 77, 58, 10, 6, 82, 69, 65, 68, 83, 84, 82, 73, 78, 71, 58, 10, 6, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 58, 11, 6, 82, 69, 65, 76, 58, 1, 26, 82, 69, 67, 79, 82, 68, 58, 1, 10, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 58, 1, 6, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 58, 1, 6, 83, 69, 84, 77, 65, 82, 71, 73, 78, 83, 58, 3, 6, 83, 72, 79, 82, 84, 73, 78, 84, 69, 71, 69, 82, 58, 1, 90, 83, 73, 78, 58, 7, 34, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 58, 0, 6, 83, 80, 65, 67, 69, 58, 0, 6, 83, 80, 65, 67, 69, 83, 58, 1, 6, 83, 81, 82, 84, 58, 7, 34, 83, 84, 82, 73, 78, 71, 58, 1, 138, 84, 65, 78, 58, 7, 34, 84, 79, 83, 84, 82, 73, 78, 71, 58, 1, 130, 87, 82, 73, 84, 69, 58, 2, 6, }; // 249 'A','D','D','R',':',X'0B',X'62', // 250 'A','R','C','C','O','S',':',X'07',X'22', // 251 'A','R','C','S','I','N',':',X'07',X'22', // 252 'A','R','R','A','Y',':',X'FC',X'F8', // 253 'A','R','C','T','A','N',':',X'0D',X'22', // 254 'B','Y','T','E','I','N','T','E','G','E','R',':',X'01',X'4A', // 255 'C','H','A','R','N','O',':',X'0E',X'4A', // 256 'C','L','O','S','E','S','T','R','E','A','M',':',X'01',X'06', // 257 'C','O','S',':',X'07',X'22', // 258 'E','X','P',':',X'07',X'22', // 259 'F','R','A','C','P','T',':',X'07',X'22', // 260 'F','R','O','M','S','T','R','I','N','G',':',X'0F',X'82', // 261 'I','M','O','D',':',X'01',X'62', // 262 'I','N','T',':',X'07',X'62', // 263 'I','N','T','P','T',':',X'07',X'62', // 264 'I','N','T','E','G','E','R',':',X'01',X'6A', // 265 'L','E','N','G','T','H',':',X'0A',X'4A', // 266 'L','O','G',':',X'07',X'22', // 267 'L','O','N','G','R','E','A','L',':',X'01',X'1A', // 268 'M','O','D',':',X'07',X'22', // 269 'N','E','W','L','I','N','E',':',X'00',X'06', // 270 'N','E','W','L','I','N','E','S',':',X'01',X'06', // 271 'N','E','W','P','A','G','E',':',X'00',X'06', // 272 'N','E','X','T','I','T','E','M',':',X'00',X'82', // 273 'N','E','X','T','C','H',':',X'00',X'62', // 274 'N','E','X','T','S','Y','M','B','O','L',':',X'00',X'62', // 275 'N','L',':',X'00',X'62', // 276 'P','I',':',X'00',X'22', // 277 'P','R','I','N','T',':',X'0C',X'06', // 278 'P','R','I','N','T','C','H',':',X'01',X'06', // 279 'P','R','I','N','T','F','L',':',X'08',X'06', // 280 'P','R','I','N','T','S','T','R','I','N','G',':',X'09',X'06', // 281 'P','R','I','N','T','S','Y','M','B','O','L',':',X'01',X'06', // 282 'R','A','D','I','U','S',':',X'0D',X'22', // 283 'R','E','A','D',':',X'0B',X'06', // 284 'R','E','A','D','C','H',':',X'0B',X'06', // 285 'R','E','A','D','I','T','E','M',':',X'0A',X'06', // 286 'R','E','A','D','S','T','R','I','N','G',':',X'0A',X'06', // 287 'R','E','A','D','S','Y','M','B','O','L',':',X'0B',X'06', // 288 'R','E','A','L',':',X'01',X'1A', // 289 'R','E','C','O','R','D',':',X'01',X'0A', // 290 'S','E','L','E','C','T','I','N','P','U','T',':',X'01',X'06', // 291 'S','E','L','E','C','T','O','U','T','P','U','T',':',X'01',X'06', // 292 'S','E','T','M','A','R','G','I','N','S',':',X'03',X'06', // 293 'S','H','O','R','T','I','N','T','E','G','E','R',':',X'01',X'5A', // 294 'S','I','N',':',X'07',X'22', // 295 'S','K','I','P','S','Y','M','B','O','L',':',X'00',X'06', // 296 'S','P','A','C','E',':',X'00',X'06', // 297 'S','P','A','C','E','S',':',X'01',X'06', // 298 'S','Q','R','T',':',X'07',X'22', // 299 'S','T','R','I','N','G',':',X'01',X'8A', // 300 'T','A','N',':',X'07',X'22', // 301 'T','O','S','T','R','I','N','G',':',X'01',X'82', // 302 'W','R','I','T','E',':',X'02',X'06' // 303 // 304 // 305 %ROUTINESPEC PRINT SS #line 305 "regression-compile-tmp/check.imp" auto void PRINTSS( void ); // 306 %ROUTINESPEC REPORT(%INTEGER N) #line 306 "regression-compile-tmp/check.imp" auto void REPORT( int N ); // 307 %ROUTINESPEC CODE ATOM #line 307 "regression-compile-tmp/check.imp" auto void CODEATOM( void ); // 308 %ROUTINESPEC POP CONTEXT #line 308 "regression-compile-tmp/check.imp" auto void POPCONTEXT( void ); // 309 %ROUTINESPEC DEFINE(%INTEGER DISP, VAL) #line 309 "regression-compile-tmp/check.imp" auto void DEFINE( int DISP, int VAL ); // 310 // 311 %ROUTINE FAULT(%INTEGER N) #line 311 "regression-compile-tmp/check.imp" void FAULT( int N ) #line 311 "regression-compile-tmp/check.imp" { // 312 FAULTNUM = N %AND FAULTPOS = FPOS1 %IF FAULTNUM < 0 #line 312 "regression-compile-tmp/check.imp" if (((FAULTNUM) >= (0))) goto L_0002; #line 312 "regression-compile-tmp/check.imp" FAULTNUM = N; #line 312 "regression-compile-tmp/check.imp" FAULTPOS = FPOS1; #line 312 "regression-compile-tmp/check.imp" L_0002:; // 313 %END #line 313 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 2 // 314 // 315 ! GRAM LAYOUT: LINK<9> CLASS<7> // 316 %SWITCH A(0:127) #line 316 "regression-compile-tmp/check.imp" static int sw1_A_idx; static const void * /*SWITCH*/ sw1_A[128] = { &&sw1_A_0, &&sw1_A_1, &&sw1_A_2, &&sw1_A_3, &&sw1_A_4, &&sw1_A_5, &&sw1_A_6, &&sw1_A_7, &&sw1_A_8, &&sw1_A_9, &&sw1_A_10, &&sw1_A_11, &&sw1_A_12, &&sw1_A_13, &&sw1_A_14, &&sw1_A_15, &&sw1_A_16, &&sw1_A_17, &&sw1_A_18, &&sw1_A_19, &&sw1_A_20, &&sw1_A_21, &&sw1_A_22, &&sw1_A_23, &&sw1_A_24, &&sw1_A_25, &&sw1_A_26, &&sw1_A_27, &&sw1_A_28, &&sw1_A_29, &&sw1_A_30, &&sw1_A_31, &&sw1_A_32, &&sw1_A_33, &&sw1_A_34, &&sw1_A_35, &&sw1_A_36, &&sw1_A_37, &&sw1_A_38, &&sw1_A_39, &&sw1_A_40, &&sw1_A_41, &&sw1_A_42, &&sw1_A_43, &&sw1_A_44, &&sw1_A_45, &&sw1_A_46, &&sw1_A_47, &&sw1_A_48, &&sw1_A_49, &&sw1_A_50, &&sw1_A_51, &&sw1_A_52, &&sw1_A_53, &&sw1_A_54, &&sw1_A_55, &&sw1_A_56, &&sw1_A_57, &&sw1_A_58, &&sw1_A_59, &&sw1_A_60, &&sw1_A_61, &&sw1_A_62, &&sw1_A_63, &&sw1_A_64, &&sw1_A_65, &&sw1_A_66, &&sw1_A_67, &&sw1_A_68, &&sw1_A_69, &&sw1_A_70, &&sw1_A_71, &&sw1_A_72, &&sw1_A_73, &&sw1_A_74, &&sw1_A_75, &&sw1_A_76, &&sw1_A_77, &&sw1_A_78, &&sw1_A_79, &&sw1_A_80, &&sw1_A_81, &&sw1_A_82, &&sw1_A_83, &&sw1_A_84, &&sw1_A_85, &&sw1_A_86, &&sw1_A_87, &&sw1_A_88, &&sw1_A_89, &&sw1_A_90, &&sw1_A_91, &&sw1_A_92, &&sw1_A_93, &&sw1_A_94, &&sw1_A_95, &&sw1_A_96, &&sw1_A_97, &&sw1_A_98, &&sw1_A_99, &&sw1_A_100, &&sw1_A_101, &&sw1_A_102, &&sw1_A_103, &&sw1_A_104, &&sw1_A_105, &&sw1_A_106, &&sw1_A_107, &&sw1_A_108, &&sw1_A_109, &&sw1_A_110, &&sw1_A_111, &&sw1_A_112, &&sw1_A_113, &&sw1_A_114, &&sw1_A_115, &&sw1_A_116, &&sw1_A_117, &&sw1_A_118, &&sw1_A_119, &&sw1_A_120, &&sw1_A_121, &&sw1_A_122, &&sw1_A_123, &&sw1_A_124, &&sw1_A_125, &&sw1_A_126, &&sw1_A_127, }; // 317 %SWITCH X(0:4) #line 317 "regression-compile-tmp/check.imp" static int sw2_X_idx; static const void * /*SWITCH*/ sw2_X[5] = { &&sw2_X_0, &&sw2_X_1, &&sw2_X_2, &&sw2_X_3, &&sw2_X_4, }; // 318 TIME1 = CPUTIME #line 318 "regression-compile-tmp/check.imp" TIME1 = _imp_CPUTIME(); // 319 %CYCLE I = 0,1,255 #line 319 "regression-compile-tmp/check.imp" I = (-1); if ((((255)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 255"); L_0003:; if (I == 255) goto L_0004; I += 1; // 320 INDEX(I) = 0 #line 320 "regression-compile-tmp/check.imp" INDEX[I] = 0; // 321 %REPEAT #line 321 "regression-compile-tmp/check.imp" goto L_0003; #line 321 "regression-compile-tmp/check.imp" L_0004:; // 322 C = 0 #line 322 "regression-compile-tmp/check.imp" C = (BLOCKINF){ 0 } /* Assign 0's to all fields of record */; // 323 IDENTS = 0 #line 323 "regression-compile-tmp/check.imp" IDENTS = 0; // 324 PRINTPOS = 0; PRECISION = 0; LEVEL = 0 #line 324 "regression-compile-tmp/check.imp" PRINTPOS = 0; #line 324 "regression-compile-tmp/check.imp" PRECISION = 0; #line 324 "regression-compile-tmp/check.imp" LEVEL = 0; // 325 NEXTLINE = 1; FAULTNUM = -1; PARMAX = 15 #line 325 "regression-compile-tmp/check.imp" NEXTLINE = 1; #line 325 "regression-compile-tmp/check.imp" FAULTNUM = (-1); #line 325 "regression-compile-tmp/check.imp" PARMAX = 15; // 326 ADGRAM0 = ADDR(GRAM(0)); LINK1 = GRAM(1)>>6&1022+ADGRAM0 #line 326 "regression-compile-tmp/check.imp" ADGRAM0 = _imp_ADDR(&GRAM[0]); #line 326 "regression-compile-tmp/check.imp" LINK1 = (((int)((((short)((((unsigned short)(GRAM[1])) >> (6)))) & (1022)))) + (ADGRAM0)); // 327 APPCONT = GRAM(GRAM(PHRASE(112))>>7&511)>>6&1022+ADGRAM0 #line 327 "regression-compile-tmp/check.imp" APPCONT = (((int)((((short)((((unsigned short)(GRAM[(((short)((((unsigned short)(GRAM[(PHRASE-109)[112]])) >> (7)))) & (511))])) >> (6)))) & (1022)))) + (ADGRAM0)); // 328 DLIM = ADDR(DICT(1)); DBOUND = ADDR(DICT(4000)) #line 328 "regression-compile-tmp/check.imp" DLIM = _imp_ADDR(&DICT[0]); #line 328 "regression-compile-tmp/check.imp" DBOUND = _imp_ADDR(&DICT[3999]); // 329 FPOS = ADDR(PERM(1))-1; FMAX = ADDR(PERM(518)) #line 329 "regression-compile-tmp/check.imp" FPOS = (((int)(_imp_ADDR(&(PERM-1)[1]))) - (1)); #line 329 "regression-compile-tmp/check.imp" FMAX = _imp_ADDR(&(PERM-1)[518]); // 330 %CYCLE I = 1,1,54 #line 330 "regression-compile-tmp/check.imp" I = 0; if ((((54)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 54"); L_0006:; if (I == 54) goto L_0007; I += 1; // 331 SYMCODE = 0 #line 331 "regression-compile-tmp/check.imp" SYMCODE = 0; // 332 CODE ATOM; %MONITOR %AND %STOP %IF ATOM # IDENT #line 332 "regression-compile-tmp/check.imp" CODEATOM(); #line 332 "regression-compile-tmp/check.imp" if (((ATOM) == (1))) goto L_0009; #line 332 "regression-compile-tmp/check.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 332 "regression-compile-tmp/check.imp" exit(0); #line 332 "regression-compile-tmp/check.imp" L_0009:; // 333 INTEGER(DLIM) = BYTEINTEGER(FPOS+1)<<8+BYTEINTEGER(FPOS+2) #line 333 "regression-compile-tmp/check.imp" *_imp_INTEGER(DLIM) = (((unsigned char)(((*_imp_BYTEINTEGER((((int)(FPOS)) + (1)))) << (8)))) + (*_imp_BYTEINTEGER((((int)(FPOS)) + (2))))); // 334 FPOS = FPOS+2 #line 334 "regression-compile-tmp/check.imp" FPOS = (((int)(FPOS)) + (2)); // 335 INTEGER(DLIM+4) = 0 #line 335 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (4))) = 0; // 336 INTEGER(DLIM+8) = HEAD; HEAD = DLIM #line 336 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD; #line 336 "regression-compile-tmp/check.imp" *HEAD = DLIM; // 337 DLIM = NEWDLIM #line 337 "regression-compile-tmp/check.imp" DLIM = NEWDLIM; // 338 %REPEAT #line 338 "regression-compile-tmp/check.imp" goto L_0006; #line 338 "regression-compile-tmp/check.imp" L_0007:; // 339 C_LOCAL = DLIM #line 339 "regression-compile-tmp/check.imp" C.LOCAL = DLIM; // 340 FPOS = FSTART-1; FMAX = FPOS+FSIZE #line 340 "regression-compile-tmp/check.imp" FPOS = (((int)(FSTART)) - (1)); #line 340 "regression-compile-tmp/check.imp" FMAX = (((int)(FPOS)) + (FSIZE)); // 341 SYMCODE = 0 #line 341 "regression-compile-tmp/check.imp" SYMCODE = 0; // 342 L1: ->ENDED %IF FPOS >= FMAX #line 342 "regression-compile-tmp/check.imp" U_1000:; #line 342 "regression-compile-tmp/check.imp" if (((FPOS) < (FMAX))) goto L_000a; #line 342 "regression-compile-tmp/check.imp" goto U_1001; #line 342 "regression-compile-tmp/check.imp" L_000a:; // 343 LINEBASE = FPOS; LINE = NEXTLINE #line 343 "regression-compile-tmp/check.imp" LINEBASE = FPOS; #line 343 "regression-compile-tmp/check.imp" LINE = NEXTLINE; // 344 L3: ATOM = JUMP; !FOR NUMERIC LABEL DETECTION #line 344 "regression-compile-tmp/check.imp" U_1002:; #line 344 "regression-compile-tmp/check.imp" ATOM = 15; // 345 SKIPMIN = SKIP1MIN; !TO IGNORE NULL STATEMENTS AND COMMENTS #line 345 "regression-compile-tmp/check.imp" SKIPMIN = 86; // 346 CODE ATOM #line 346 "regression-compile-tmp/check.imp" CODEATOM(); // 347 SKIPMIN = NLCODE #line 347 "regression-compile-tmp/check.imp" SKIPMIN = 127; // 348 STATS = STATS+1 #line 348 "regression-compile-tmp/check.imp" STATS = (((int)(STATS)) + (1)); // 349 EXTIND = 0; DECLTYPE = 0 #line 349 "regression-compile-tmp/check.imp" EXTIND = 0; #line 349 "regression-compile-tmp/check.imp" DECLTYPE = 0; // 350 CONSTCOUNT = 0; DIMCOUNT = 0 #line 350 "regression-compile-tmp/check.imp" CONSTCOUNT = 0; #line 350 "regression-compile-tmp/check.imp" DIMCOUNT = 0; // 351 NP = 51 #line 351 "regression-compile-tmp/check.imp" NP = 51; // 352 LINKMAX = 1; LINK(1) = LINK1; !FOR GRATUITOUS PHRASE EXIT #line 352 "regression-compile-tmp/check.imp" LINKMAX = 1; #line 352 "regression-compile-tmp/check.imp" LINK[0] = LINK1; // 353 I = GRAM(INITBASE+ATOM) #line 353 "regression-compile-tmp/check.imp" I = GRAM[(((int)(472)) + (ATOM))]; // 354 ->ERR %IF I = 0 #line 354 "regression-compile-tmp/check.imp" if (((I) != (0))) goto L_000b; #line 354 "regression-compile-tmp/check.imp" goto U_1003; #line 354 "regression-compile-tmp/check.imp" L_000b:; // 355 G = I>>6&1022+ADGRAM0 #line 355 "regression-compile-tmp/check.imp" G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0)); // 356 ->A(ATOM) #line 356 "regression-compile-tmp/check.imp" sw1_A_idx = ATOM; if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else { /*_imp_signal(8, 2, sw1_A_idx);*/ fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n", sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 357 A(1): !IDENT #line 357 "regression-compile-tmp/check.imp" sw1_A_1:; // 358 A(6): !OP3 #line 358 "regression-compile-tmp/check.imp" sw1_A_6:; // 359 A(9): !EQ #line 359 "regression-compile-tmp/check.imp" sw1_A_9:; // 360 A(13): !NL #line 360 "regression-compile-tmp/check.imp" sw1_A_13:; // 361 A(25): !COLON #line 361 "regression-compile-tmp/check.imp" sw1_A_25:; // 362 I = SHORTINTEGER(G); G = I>>6&1022+ADGRAM0 #line 362 "regression-compile-tmp/check.imp" I = *_imp_SHORTINTEGER(G); #line 362 "regression-compile-tmp/check.imp" G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0)); // 363 ->A(I&127) #line 363 "regression-compile-tmp/check.imp" sw1_A_idx = ((I) & (127)); if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else { /*_imp_signal(8, 2, sw1_A_idx);*/ fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n", sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 364 A(10): A(11): A(12): A(15): A(18): A(19): A(20): #line 364 "regression-compile-tmp/check.imp" sw1_A_10:; #line 364 "regression-compile-tmp/check.imp" sw1_A_11:; #line 364 "regression-compile-tmp/check.imp" sw1_A_12:; #line 364 "regression-compile-tmp/check.imp" sw1_A_15:; #line 364 "regression-compile-tmp/check.imp" sw1_A_18:; #line 364 "regression-compile-tmp/check.imp" sw1_A_19:; #line 364 "regression-compile-tmp/check.imp" sw1_A_20:; // 365 A(21): A(23): A(27): A(37): #line 365 "regression-compile-tmp/check.imp" sw1_A_21:; #line 365 "regression-compile-tmp/check.imp" sw1_A_23:; #line 365 "regression-compile-tmp/check.imp" sw1_A_27:; #line 365 "regression-compile-tmp/check.imp" sw1_A_37:; // 366 A(43): A(44): A(45): #line 366 "regression-compile-tmp/check.imp" sw1_A_43:; #line 366 "regression-compile-tmp/check.imp" sw1_A_44:; #line 366 "regression-compile-tmp/check.imp" sw1_A_45:; // 367 A(47): A(48): A(50): A(57): A(65): #line 367 "regression-compile-tmp/check.imp" sw1_A_47:; #line 367 "regression-compile-tmp/check.imp" sw1_A_48:; #line 367 "regression-compile-tmp/check.imp" sw1_A_50:; #line 367 "regression-compile-tmp/check.imp" sw1_A_57:; #line 367 "regression-compile-tmp/check.imp" sw1_A_65:; // 368 CODE: #line 368 "regression-compile-tmp/check.imp" U_1004:; // 369 CODE ATOM #line 369 "regression-compile-tmp/check.imp" CODEATOM(); // 370 ON: #line 370 "regression-compile-tmp/check.imp" U_1005:; // 371 REP:%CYCLE #line 371 "regression-compile-tmp/check.imp" U_1006:; #line 371 "regression-compile-tmp/check.imp" L_000c:; // 372 ! LOOPS = LOOPS+1 // 373 CLASS = SHORTINTEGER(G)&127 #line 373 "regression-compile-tmp/check.imp" CLASS = ((*_imp_SHORTINTEGER(G)) & (127)); // 374 %EXIT %IF CLASS >= 60 %OR CLASS = ATOM #line 374 "regression-compile-tmp/check.imp" if (((CLASS) >= (60))) goto L_000f; #line 374 "regression-compile-tmp/check.imp" if (((CLASS) != (ATOM))) goto L_0010; #line 374 "regression-compile-tmp/check.imp" L_000f:; #line 374 "regression-compile-tmp/check.imp" goto L_000d; #line 374 "regression-compile-tmp/check.imp" L_0010:; // 375 G = G+2 #line 375 "regression-compile-tmp/check.imp" G = (((int)(G)) + (2)); // 376 %REPEAT #line 376 "regression-compile-tmp/check.imp" goto L_000c; #line 376 "regression-compile-tmp/check.imp" L_000d:; // 377 G = SHORTINTEGER(G)>>6&1022+ADGRAM0 #line 377 "regression-compile-tmp/check.imp" G = (((int)((((short)(((*(unsigned short *)(_imp_SHORTINTEGER(G))) >> (6)))) & (1022)))) + (ADGRAM0)); // 378 ->A(CLASS) #line 378 "regression-compile-tmp/check.imp" sw1_A_idx = CLASS; if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else { /*_imp_signal(8, 2, sw1_A_idx);*/ fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n", sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 379 A(109): A(110): A(111): A(113): A(114): #line 379 "regression-compile-tmp/check.imp" sw1_A_109:; #line 379 "regression-compile-tmp/check.imp" sw1_A_110:; #line 379 "regression-compile-tmp/check.imp" sw1_A_111:; #line 379 "regression-compile-tmp/check.imp" sw1_A_113:; #line 379 "regression-compile-tmp/check.imp" sw1_A_114:; // 380 A(115): A(116): A(117): A(118): A(119): #line 380 "regression-compile-tmp/check.imp" sw1_A_115:; #line 380 "regression-compile-tmp/check.imp" sw1_A_116:; #line 380 "regression-compile-tmp/check.imp" sw1_A_117:; #line 380 "regression-compile-tmp/check.imp" sw1_A_118:; #line 380 "regression-compile-tmp/check.imp" sw1_A_119:; // 381 A(120): A(121): A(122): A(123): A(124): #line 381 "regression-compile-tmp/check.imp" sw1_A_120:; #line 381 "regression-compile-tmp/check.imp" sw1_A_121:; #line 381 "regression-compile-tmp/check.imp" sw1_A_122:; #line 381 "regression-compile-tmp/check.imp" sw1_A_123:; #line 381 "regression-compile-tmp/check.imp" sw1_A_124:; // 382 A(125): A(126): #line 382 "regression-compile-tmp/check.imp" sw1_A_125:; #line 382 "regression-compile-tmp/check.imp" sw1_A_126:; // 383 ENTER: #line 383 "regression-compile-tmp/check.imp" U_1007:; // 384 LINKMAX = LINKMAX+1; ->ERR %IF LINKMAX > 20 #line 384 "regression-compile-tmp/check.imp" LINKMAX = (((int)(LINKMAX)) + (1)); #line 384 "regression-compile-tmp/check.imp" if (((LINKMAX) <= (20))) goto L_0011; #line 384 "regression-compile-tmp/check.imp" goto U_1003; #line 384 "regression-compile-tmp/check.imp" L_0011:; // 385 LINK(LINKMAX) = G #line 385 "regression-compile-tmp/check.imp" LINK[(((int)(LINKMAX)) - (1))] = G; // 386 G = PHRASE(CLASS)<<1+ADGRAM0 #line 386 "regression-compile-tmp/check.imp" G = (((int)((((PHRASE-109)[CLASS]) << (1)))) + (ADGRAM0)); // 387 ->REP #line 387 "regression-compile-tmp/check.imp" goto U_1006; // 388 A(66): #line 388 "regression-compile-tmp/check.imp" sw1_A_66:; // 389 EXIT: #line 389 "regression-compile-tmp/check.imp" U_1008:; // 390 G = LINK(LINKMAX); LINKMAX = LINKMAX-1 #line 390 "regression-compile-tmp/check.imp" G = LINK[(((int)(LINKMAX)) - (1))]; #line 390 "regression-compile-tmp/check.imp" LINKMAX = (((int)(LINKMAX)) - (1)); // 391 ->REP #line 391 "regression-compile-tmp/check.imp" goto U_1006; // 392 // 393 A(67): !ALT (ALTERNATIVE PHRASE RECOGNISED) #line 393 "regression-compile-tmp/check.imp" sw1_A_67:; // 394 I = SHORTINTEGER(LINK(LINKMAX)); LINKMAX = LINKMAX-1 #line 394 "regression-compile-tmp/check.imp" I = *_imp_SHORTINTEGER(LINK[(((int)(LINKMAX)) - (1))]); #line 394 "regression-compile-tmp/check.imp" LINKMAX = (((int)(LINKMAX)) - (1)); // 395 ->ERR %IF I&127 # 0; !NO ALTERNATIVE #line 395 "regression-compile-tmp/check.imp" if (((((I) & (127))) == (0))) goto L_0012; #line 395 "regression-compile-tmp/check.imp" goto U_1003; #line 395 "regression-compile-tmp/check.imp" L_0012:; // 396 G = I>>6&1022+ADGRAM0 #line 396 "regression-compile-tmp/check.imp" G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0)); // 397 ->ON #line 397 "regression-compile-tmp/check.imp" goto U_1005; // 398 A(68): !BREAK (TERMINATOR WITHIN CONST LIST) #line 398 "regression-compile-tmp/check.imp" sw1_A_68:; // 399 REPORT(FAULTNUM) %IF FAULTNUM >= 0 #line 399 "regression-compile-tmp/check.imp" if (((FAULTNUM) < (0))) goto L_0013; #line 399 "regression-compile-tmp/check.imp" REPORT(FAULTNUM); #line 399 "regression-compile-tmp/check.imp" L_0013:; // 400 %IF ATOMTYPE = 0 %START; !NL #line 400 "regression-compile-tmp/check.imp" if (((ATOMTYPE) != (0))) goto L_0014; // 401 LINEBASE = FPOS; LINE = NEXTLINE #line 401 "regression-compile-tmp/check.imp" LINEBASE = FPOS; #line 401 "regression-compile-tmp/check.imp" LINE = NEXTLINE; // 402 %FINISH #line 402 "regression-compile-tmp/check.imp" L_0014:; // 403 ->CODE #line 403 "regression-compile-tmp/check.imp" goto U_1004; // 404 // 405 UNKNOWN: #line 405 "regression-compile-tmp/check.imp" U_1009:; // 406 %WHILE DPOS < 0 %CYCLE #line 406 "regression-compile-tmp/check.imp" L_0015:; #line 406 "regression-compile-tmp/check.imp" if (((DPOS) >= (0))) goto L_0016; // 407 ->IGNORE %IF STRING(-DPOS+4) = STRING(DLIM+12) #line 407 "regression-compile-tmp/check.imp" if ((_imp_strcmp(*_imp_STRING((((-(DPOS))) + (4))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0018; #line 407 "regression-compile-tmp/check.imp" goto U_100a; #line 407 "regression-compile-tmp/check.imp" L_0018:; // 408 DPOS = INTEGER(-DPOS) #line 408 "regression-compile-tmp/check.imp" DPOS = *_imp_INTEGER((-(DPOS))); // 409 %REPEAT #line 409 "regression-compile-tmp/check.imp" goto L_0015; #line 409 "regression-compile-tmp/check.imp" L_0016:; // 410 FAULT(2) #line 410 "regression-compile-tmp/check.imp" FAULT(2); // 411 %CYCLE #line 411 "regression-compile-tmp/check.imp" L_0019:; // 412 DBOUND = DBOUND-4; NEWDLIM = NEWDLIM-4 #line 412 "regression-compile-tmp/check.imp" DBOUND = (((int)(DBOUND)) - (4)); #line 412 "regression-compile-tmp/check.imp" NEWDLIM = (((int)(NEWDLIM)) - (4)); // 413 %EXIT %IF NEWDLIM = DLIM+8 #line 413 "regression-compile-tmp/check.imp" if (((NEWDLIM) != ((((int)(DLIM)) + (8))))) goto L_001c; #line 413 "regression-compile-tmp/check.imp" goto L_001a; #line 413 "regression-compile-tmp/check.imp" L_001c:; // 414 INTEGER(DBOUND) = INTEGER(NEWDLIM) #line 414 "regression-compile-tmp/check.imp" *_imp_INTEGER(DBOUND) = *_imp_INTEGER(NEWDLIM); // 415 %REPEAT #line 415 "regression-compile-tmp/check.imp" goto L_0019; #line 415 "regression-compile-tmp/check.imp" L_001a:; // 416 HEAD == INTEGER(HEAD+8) %WHILE HEAD > 0 #line 416 "regression-compile-tmp/check.imp" L_001d:; #line 416 "regression-compile-tmp/check.imp" if (((*HEAD) <= (0))) goto L_001e; #line 416 "regression-compile-tmp/check.imp" HEAD = _imp_INTEGER(((*(int *)(HEAD)) + (8))); #line 416 "regression-compile-tmp/check.imp" goto L_001d; #line 416 "regression-compile-tmp/check.imp" L_001e:; // 417 INTEGER(DBOUND) = HEAD; HEAD = -DBOUND #line 417 "regression-compile-tmp/check.imp" *_imp_INTEGER(DBOUND) = *HEAD; #line 417 "regression-compile-tmp/check.imp" *HEAD = (-(DBOUND)); // 418 ->IGNORE #line 418 "regression-compile-tmp/check.imp" goto U_100a; // 419 MODERR: #line 419 "regression-compile-tmp/check.imp" U_100b:; // 420 FAULT(3) #line 420 "regression-compile-tmp/check.imp" FAULT(3); // 421 ->IGNORE #line 421 "regression-compile-tmp/check.imp" goto U_100a; // 422 A(0): A(64): #line 422 "regression-compile-tmp/check.imp" sw1_A_0:; #line 422 "regression-compile-tmp/check.imp" sw1_A_64:; // 423 ERR:FAULTNUM = 0; FAULTNUM = ATOMTYPE %IF ATOM = 0 #line 423 "regression-compile-tmp/check.imp" U_1003:; #line 423 "regression-compile-tmp/check.imp" FAULTNUM = 0; #line 423 "regression-compile-tmp/check.imp" if (((ATOM) != (0))) goto L_0020; #line 423 "regression-compile-tmp/check.imp" FAULTNUM = ATOMTYPE; #line 423 "regression-compile-tmp/check.imp" L_0020:; // 424 ->DISASTER %IF FAULTNUM = 99 #line 424 "regression-compile-tmp/check.imp" if (((FAULTNUM) != (99))) goto L_0021; #line 424 "regression-compile-tmp/check.imp" goto U_100c; #line 424 "regression-compile-tmp/check.imp" L_0021:; // 425 FAULTPOS = FPOS1 #line 425 "regression-compile-tmp/check.imp" FAULTPOS = FPOS1; // 426 IGNORE: #line 426 "regression-compile-tmp/check.imp" U_100a:; // 427 I=ATOM %AND CODE ATOM %WHILE ATOM # TERMINATOR #line 427 "regression-compile-tmp/check.imp" L_0022:; #line 427 "regression-compile-tmp/check.imp" if (((ATOM) == (13))) goto L_0023; #line 427 "regression-compile-tmp/check.imp" I = ATOM; #line 427 "regression-compile-tmp/check.imp" CODEATOM(); #line 427 "regression-compile-tmp/check.imp" goto L_0022; #line 427 "regression-compile-tmp/check.imp" L_0023:; // 428 C_STACK = C_STACK<<2+3 %IF I = START #line 428 "regression-compile-tmp/check.imp" if (((I) != (53))) goto L_0025; #line 428 "regression-compile-tmp/check.imp" C.STACK = (((int)(((C.STACK) << (2)))) + (3)); #line 428 "regression-compile-tmp/check.imp" L_0025:; // 429 C_STACK = C_STACK<<2+2 %IF I = CYCLE #line 429 "regression-compile-tmp/check.imp" if (((I) != (54))) goto L_0026; #line 429 "regression-compile-tmp/check.imp" C.STACK = (((int)(((C.STACK) << (2)))) + (2)); #line 429 "regression-compile-tmp/check.imp" L_0026:; // 430 REPORT(FAULTNUM) %IF FAULTNUM >= 0 #line 430 "regression-compile-tmp/check.imp" if (((FAULTNUM) < (0))) goto L_0027; #line 430 "regression-compile-tmp/check.imp" REPORT(FAULTNUM); #line 430 "regression-compile-tmp/check.imp" L_0027:; // 431 %WHILE I = COMMA %AND ATOMTYPE = 0 %CYCLE #line 431 "regression-compile-tmp/check.imp" L_0028:; #line 431 "regression-compile-tmp/check.imp" if (((I) != (10))) goto L_0029; #line 431 "regression-compile-tmp/check.imp" if (((ATOMTYPE) != (0))) goto L_0029; // 432 I=ATOM %AND CODE ATOM %UNTIL ATOM = TERMINATOR #line 432 "regression-compile-tmp/check.imp" L_002b:; #line 432 "regression-compile-tmp/check.imp" I = ATOM; #line 432 "regression-compile-tmp/check.imp" CODEATOM(); #line 432 "regression-compile-tmp/check.imp" if (((ATOM) == (13))) goto L_002c; #line 432 "regression-compile-tmp/check.imp" goto L_002b; #line 432 "regression-compile-tmp/check.imp" L_002c:; // 433 %REPEAT #line 433 "regression-compile-tmp/check.imp" goto L_0028; #line 433 "regression-compile-tmp/check.imp" L_0029:; // 434 A(69): !FIN #line 434 "regression-compile-tmp/check.imp" sw1_A_69:; // 435 FIN:REPORT(FAULTNUM) %IF FAULTNUM >= 0 #line 435 "regression-compile-tmp/check.imp" U_100d:; #line 435 "regression-compile-tmp/check.imp" if (((FAULTNUM) < (0))) goto L_002e; #line 435 "regression-compile-tmp/check.imp" REPORT(FAULTNUM); #line 435 "regression-compile-tmp/check.imp" L_002e:; // 436 %IF C_BTYPE&1 # 0 %START; !PSEUDO BLOCK ENTRY FOR SPEC #line 436 "regression-compile-tmp/check.imp" if (((((C.BTYPE) & (1))) == (0))) goto L_002f; // 437 DLIM = C_LOCAL #line 437 "regression-compile-tmp/check.imp" DLIM = C.LOCAL; // 438 C = HOLD(LEVEL); LEVEL = LEVEL-1 #line 438 "regression-compile-tmp/check.imp" C = HOLD[(((int)(LEVEL)) - (1))]; #line 438 "regression-compile-tmp/check.imp" LEVEL = (((int)(LEVEL)) - (1)); // 439 %FINISH #line 439 "regression-compile-tmp/check.imp" L_002f:; // 440 ->L3 %IF ATOMTYPE # 0; !COLON OR SEMI-COLON #line 440 "regression-compile-tmp/check.imp" if (((ATOMTYPE) == (0))) goto L_0030; #line 440 "regression-compile-tmp/check.imp" goto U_1002; #line 440 "regression-compile-tmp/check.imp" L_0030:; // 441 ->L1; !NEWLINE #line 441 "regression-compile-tmp/check.imp" goto U_1000; // 442 DISASTER: #line 442 "regression-compile-tmp/check.imp" U_100c:; // 443 PRINT STRING("** SPACE EXHAUSTED AT LINE"); WRITE(NEXTLINE,1) #line 443 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("** SPACE EXHAUSTED AT LINE")); #line 443 "regression-compile-tmp/check.imp" _imp_WRITE(NEXTLINE, 1); // 444 NEWLINE #line 444 "regression-compile-tmp/check.imp" _imp_NEWLINE(); // 445 %RETURN #line 445 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; // 446 // 447 A(74): #line 447 "regression-compile-tmp/check.imp" sw1_A_74:; // 448 NAPP: #line 448 "regression-compile-tmp/check.imp" U_100e:; // 449 -> ON %IF TYPE&APPMASK = 0 #line 449 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) != (0))) goto L_0031; #line 449 "regression-compile-tmp/check.imp" goto U_1005; #line 449 "regression-compile-tmp/check.imp" L_0031:; // 450 ->ERR #line 450 "regression-compile-tmp/check.imp" goto U_1003; // 451 ER20: #line 451 "regression-compile-tmp/check.imp" U_100f:; // 452 FAULT(20) #line 452 "regression-compile-tmp/check.imp" FAULT(20); // 453 ->NAPP #line 453 "regression-compile-tmp/check.imp" goto U_100e; // 454 ER22: #line 454 "regression-compile-tmp/check.imp" U_1010:; // 455 FAULT(22) #line 455 "regression-compile-tmp/check.imp" FAULT(22); // 456 ->NAPP #line 456 "regression-compile-tmp/check.imp" goto U_100e; // 457 // 458 A(22): !PREC #line 458 "regression-compile-tmp/check.imp" sw1_A_22:; // 459 PRECISION = ATOMTYPE #line 459 "regression-compile-tmp/check.imp" PRECISION = ATOMTYPE; // 460 ->CODE #line 460 "regression-compile-tmp/check.imp" goto U_1004; // 461 A(38): !EXTERNAL #line 461 "regression-compile-tmp/check.imp" sw1_A_38:; // 462 A(42): !SYSTEM,DYNAMIC #line 462 "regression-compile-tmp/check.imp" sw1_A_42:; // 463 EXTIND = 1 #line 463 "regression-compile-tmp/check.imp" EXTIND = 1; // 464 ->CODE #line 464 "regression-compile-tmp/check.imp" goto U_1004; // 465 A(70): !RESET #line 465 "regression-compile-tmp/check.imp" sw1_A_70:; // 466 DECLTYPE = 0 #line 466 "regression-compile-tmp/check.imp" DECLTYPE = 0; // 467 ->ON #line 467 "regression-compile-tmp/check.imp" goto U_1005; // 468 A(36): !RECORD #line 468 "regression-compile-tmp/check.imp" sw1_A_36:; // 469 RECIDENTS = DLIM #line 469 "regression-compile-tmp/check.imp" RECIDENTS = DLIM; // 470 A(29): !REG #line 470 "regression-compile-tmp/check.imp" sw1_A_29:; // 471 A(30): !SWITCH #line 471 "regression-compile-tmp/check.imp" sw1_A_30:; // 472 A(31): !NTYPE #line 472 "regression-compile-tmp/check.imp" sw1_A_31:; // 473 A(32): !OWN #line 473 "regression-compile-tmp/check.imp" sw1_A_32:; // 474 A(33): !ARRAY #line 474 "regression-compile-tmp/check.imp" sw1_A_33:; // 475 A(34): !STRING #line 475 "regression-compile-tmp/check.imp" sw1_A_34:; // 476 A(35): !NAME #line 476 "regression-compile-tmp/check.imp" sw1_A_35:; // 477 A(39): !FM #line 477 "regression-compile-tmp/check.imp" sw1_A_39:; // 478 A(40): !ROUTINE #line 478 "regression-compile-tmp/check.imp" sw1_A_40:; // 479 A(41): !SPEC #line 479 "regression-compile-tmp/check.imp" sw1_A_41:; // 480 DECLTYPE = DECLTYPE!!ATOMTYPE #line 480 "regression-compile-tmp/check.imp" DECLTYPE = ((DECLTYPE) ^ (ATOMTYPE)); // 481 DECLTYPE = DECLTYPE!PRECISION %IF DECLTYPE&X'F0' = X'10' #line 481 "regression-compile-tmp/check.imp" if (((((DECLTYPE) & (240))) != (16))) goto L_0032; #line 481 "regression-compile-tmp/check.imp" DECLTYPE = ((DECLTYPE) | (PRECISION)); #line 481 "regression-compile-tmp/check.imp" L_0032:; // 482 IDENTS = DLIM #line 482 "regression-compile-tmp/check.imp" IDENTS = DLIM; // 483 MODES = \0; !FOR SPEC LOOKS #line 483 "regression-compile-tmp/check.imp" MODES = (~(0)); // 484 ->CODE #line 484 "regression-compile-tmp/check.imp" goto U_1004; // 485 A(75): !NOTYPE #line 485 "regression-compile-tmp/check.imp" sw1_A_75:; // 486 DECLTYPE = X'F9'; ! '?' VAR #line 486 "regression-compile-tmp/check.imp" DECLTYPE = 249; // 487 ->ON #line 487 "regression-compile-tmp/check.imp" goto U_1005; // 488 A(78): !IDENT: DC (DECLARE RECORD COMPONENT) #line 488 "regression-compile-tmp/check.imp" sw1_A_78:; // 489 HEAD == INTEGER(FIDENTPOS+4); DPOS = HEAD; !ALTER SEARCH LIST #line 489 "regression-compile-tmp/check.imp" HEAD = _imp_INTEGER((((int)(FIDENTPOS)) + (4))); #line 489 "regression-compile-tmp/check.imp" DPOS = *HEAD; // 490 A(76): !IDENT: D (DECLARE) #line 490 "regression-compile-tmp/check.imp" sw1_A_76:; // 491 D1: ->ADD %IF C_BTYPE&1 # 0; !WITHIN SPEC PARAMS #line 491 "regression-compile-tmp/check.imp" U_1011:; #line 491 "regression-compile-tmp/check.imp" if (((((C.BTYPE) & (1))) == (0))) goto L_0033; #line 491 "regression-compile-tmp/check.imp" goto U_1012; #line 491 "regression-compile-tmp/check.imp" L_0033:; // 492 D2: %CYCLE #line 492 "regression-compile-tmp/check.imp" U_1013:; #line 492 "regression-compile-tmp/check.imp" L_0034:; // 493 ->NEW %IF DPOS < C_LOCAL #line 493 "regression-compile-tmp/check.imp" if (((DPOS) >= (C.LOCAL))) goto L_0037; #line 493 "regression-compile-tmp/check.imp" goto U_1014; #line 493 "regression-compile-tmp/check.imp" L_0037:; // 494 %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12) #line 494 "regression-compile-tmp/check.imp" if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0038; #line 494 "regression-compile-tmp/check.imp" goto L_0035; #line 494 "regression-compile-tmp/check.imp" L_0038:; // 495 DPOS = INTEGER(DPOS+8) #line 495 "regression-compile-tmp/check.imp" DPOS = *_imp_INTEGER((((int)(DPOS)) + (8))); // 496 %REPEAT #line 496 "regression-compile-tmp/check.imp" goto L_0034; #line 496 "regression-compile-tmp/check.imp" L_0035:; // 497 ->D5 %IF INTEGER(DPOS)&X'FF'-1 = DECLTYPE %C #line 497 "regression-compile-tmp/check.imp" if ((((((int)(((*_imp_INTEGER(DPOS)) & (255)))) - (1))) != (DECLTYPE))) goto L_0039; #line 497 "regression-compile-tmp/check.imp" if (((((DECLTYPE) & (6))) == (0))) goto L_0039; #line 497 "regression-compile-tmp/check.imp" if (((((DECLTYPE) & (1))) != (0))) goto L_0039; #line 497 "regression-compile-tmp/check.imp" goto U_1015; #line 497 "regression-compile-tmp/check.imp" L_0039:; // 498 %AND DECLTYPE&6 # 0 %AND DECLTYPE&1 = 0 // 499 FAULT(5); !DUPLICATE #line 499 "regression-compile-tmp/check.imp" FAULT(5); // 500 NEW:INTEGER(DLIM+8) = HEAD; HEAD = DLIM #line 500 "regression-compile-tmp/check.imp" U_1014:; #line 500 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD; #line 500 "regression-compile-tmp/check.imp" *HEAD = DLIM; // 501 ADD:INTEGER(DLIM) = DECLTYPE; INTEGER(DLIM+4) = 0 #line 501 "regression-compile-tmp/check.imp" U_1012:; #line 501 "regression-compile-tmp/check.imp" *_imp_INTEGER(DLIM) = DECLTYPE; #line 501 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (4))) = 0; // 502 DLIM = NEWDLIM #line 502 "regression-compile-tmp/check.imp" DLIM = NEWDLIM; // 503 ->CODE #line 503 "regression-compile-tmp/check.imp" goto U_1004; // 504 !PROCEDURE BODY AFTER SPEC, LABEL AFTER JUMP // 505 D5: INTEGER(DPOS) = DECLTYPE %IF DECLTYPE = LAB #line 505 "regression-compile-tmp/check.imp" U_1015:; #line 505 "regression-compile-tmp/check.imp" if (((DECLTYPE) != (12))) goto L_003a; #line 505 "regression-compile-tmp/check.imp" *_imp_INTEGER(DPOS) = DECLTYPE; #line 505 "regression-compile-tmp/check.imp" L_003a:; // 506 IDENTS = DPOS #line 506 "regression-compile-tmp/check.imp" IDENTS = DPOS; // 507 ->CODE #line 507 "regression-compile-tmp/check.imp" goto U_1004; // 508 A(77): !IDENT: DF (DECLARE RECORD FORMAT) #line 508 "regression-compile-tmp/check.imp" sw1_A_77:; // 509 DECLTYPE = RECFORMAT; FIDENTPOS = DLIM #line 509 "regression-compile-tmp/check.imp" DECLTYPE = 4; #line 509 "regression-compile-tmp/check.imp" FIDENTPOS = DLIM; // 510 ->D1 #line 510 "regression-compile-tmp/check.imp" goto U_1011; // 511 A(2): !CONST #line 511 "regression-compile-tmp/check.imp" sw1_A_2:; // 512 TYPE = ATOMTYPE; VAL = ATOMVAL #line 512 "regression-compile-tmp/check.imp" TYPE = ATOMTYPE; #line 512 "regression-compile-tmp/check.imp" VAL = ATOMVAL; // 513 ->CODE #line 513 "regression-compile-tmp/check.imp" goto U_1004; // 514 A(3): !SUB (ABSORBS FOLLOWING IDENT) #line 514 "regression-compile-tmp/check.imp" sw1_A_3:; // 515 -> ERR %IF TYPE&X'FFF4' # 0 %AND TYPE # RECFORMAT; !NOT RECORD #line 515 "regression-compile-tmp/check.imp" if (((((TYPE) & (65524))) == (0))) goto L_003b; #line 515 "regression-compile-tmp/check.imp" if (((TYPE) == (4))) goto L_003b; #line 515 "regression-compile-tmp/check.imp" goto U_1003; #line 515 "regression-compile-tmp/check.imp" L_003b:; // 516 CODE ATOM; ->ERR %IF ATOM # IDENT #line 516 "regression-compile-tmp/check.imp" CODEATOM(); #line 516 "regression-compile-tmp/check.imp" if (((ATOM) == (1))) goto L_003c; #line 516 "regression-compile-tmp/check.imp" goto U_1003; #line 516 "regression-compile-tmp/check.imp" L_003c:; // 517 ->IGNORE %IF VAL = 0 #line 517 "regression-compile-tmp/check.imp" if (((VAL) != (0))) goto L_003d; #line 517 "regression-compile-tmp/check.imp" goto U_100a; #line 517 "regression-compile-tmp/check.imp" L_003d:; // 518 DPOS = VAL; HEAD == VAL #line 518 "regression-compile-tmp/check.imp" DPOS = VAL; #line 518 "regression-compile-tmp/check.imp" HEAD = &VAL; // 519 A(81): !IDENT: LOOK #line 519 "regression-compile-tmp/check.imp" sw1_A_81:; // 520 LOOK: #line 520 "regression-compile-tmp/check.imp" U_1016:; // 521 LOOKS = LOOKS+1 #line 521 "regression-compile-tmp/check.imp" LOOKS = (((int)(LOOKS)) + (1)); // 522 %CYCLE #line 522 "regression-compile-tmp/check.imp" L_003e:; // 523 TIMES = TIMES+1 #line 523 "regression-compile-tmp/check.imp" TIMES = (((int)(TIMES)) + (1)); // 524 ->UNKNOWN %IF DPOS <= 0 #line 524 "regression-compile-tmp/check.imp" if (((DPOS) > (0))) goto L_0041; #line 524 "regression-compile-tmp/check.imp" goto U_1009; #line 524 "regression-compile-tmp/check.imp" L_0041:; // 525 %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12) #line 525 "regression-compile-tmp/check.imp" if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0042; #line 525 "regression-compile-tmp/check.imp" goto L_003f; #line 525 "regression-compile-tmp/check.imp" L_0042:; // 526 DPOS = INTEGER(DPOS+8) #line 526 "regression-compile-tmp/check.imp" DPOS = *_imp_INTEGER((((int)(DPOS)) + (8))); // 527 %REPEAT #line 527 "regression-compile-tmp/check.imp" goto L_003e; #line 527 "regression-compile-tmp/check.imp" L_003f:; // 528 TYPE = INTEGER(DPOS); VAL = INTEGER(DPOS+4) #line 528 "regression-compile-tmp/check.imp" TYPE = *_imp_INTEGER(DPOS); #line 528 "regression-compile-tmp/check.imp" VAL = *_imp_INTEGER((((int)(DPOS)) + (4))); // 529 ->CODE %IF MODES<<(TYPE&15) < 0 #line 529 "regression-compile-tmp/check.imp" if (((((MODES) << (((TYPE) & (15))))) >= (0))) goto L_0043; #line 529 "regression-compile-tmp/check.imp" goto U_1004; #line 529 "regression-compile-tmp/check.imp" L_0043:; // 530 ->MODERR #line 530 "regression-compile-tmp/check.imp" goto U_100b; // 531 A(82): !IDENT: IMP1LOOK #line 531 "regression-compile-tmp/check.imp" sw1_A_82:; // 532 MODES = IMP1MODES #line 532 "regression-compile-tmp/check.imp" MODES = 1140588544; // 533 ->LOOK %IF BYTEINTEGER(FPOS) # ':' #line 533 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER(FPOS)) == (58))) goto L_0044; #line 533 "regression-compile-tmp/check.imp" goto U_1016; #line 533 "regression-compile-tmp/check.imp" L_0044:; // 534 DECLTYPE = LAB #line 534 "regression-compile-tmp/check.imp" DECLTYPE = 12; // 535 ->D2 #line 535 "regression-compile-tmp/check.imp" goto U_1013; // 536 A(83): !IDENT: IMPLOOK #line 536 "regression-compile-tmp/check.imp" sw1_A_83:; // 537 MODES = IMPMODES #line 537 "regression-compile-tmp/check.imp" MODES = 1139802112; // 538 ->LOOK #line 538 "regression-compile-tmp/check.imp" goto U_1016; // 539 A(84): !IDENT: EXPLOOK #line 539 "regression-compile-tmp/check.imp" sw1_A_84:; // 540 MODES = EXPMODES #line 540 "regression-compile-tmp/check.imp" MODES = (-252706816); // 541 ->LOOK #line 541 "regression-compile-tmp/check.imp" goto U_1016; // 542 A(85): !IDENT: FLOOK #line 542 "regression-compile-tmp/check.imp" sw1_A_85:; // 543 MODES = FMATMODES #line 543 "regression-compile-tmp/check.imp" MODES = 134217728; // 544 ->LOOK #line 544 "regression-compile-tmp/check.imp" goto U_1016; // 545 A(86): !IDENT: JLOOK #line 545 "regression-compile-tmp/check.imp" sw1_A_86:; // 546 %WHILE DPOS >= C_LOCAL %CYCLE #line 546 "regression-compile-tmp/check.imp" L_0045:; #line 546 "regression-compile-tmp/check.imp" if (((DPOS) < (C.LOCAL))) goto L_0046; // 547 ->JL1 %IF STRING(DPOS+12) = STRING(DLIM+12) #line 547 "regression-compile-tmp/check.imp" if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0048; #line 547 "regression-compile-tmp/check.imp" goto U_1017; #line 547 "regression-compile-tmp/check.imp" L_0048:; // 548 DPOS = INTEGER(DPOS+8) #line 548 "regression-compile-tmp/check.imp" DPOS = *_imp_INTEGER((((int)(DPOS)) + (8))); // 549 %REPEAT #line 549 "regression-compile-tmp/check.imp" goto L_0045; #line 549 "regression-compile-tmp/check.imp" L_0046:; // 550 INTEGER(DLIM+8) = HEAD; HEAD = DLIM #line 550 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD; #line 550 "regression-compile-tmp/check.imp" *HEAD = DLIM; // 551 INTEGER(DLIM) = JUMPLAB; INTEGER(DLIM+4) = 0 #line 551 "regression-compile-tmp/check.imp" *_imp_INTEGER(DLIM) = 13; #line 551 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(DLIM)) + (4))) = 0; // 552 DPOS = DLIM; DLIM = NEWDLIM #line 552 "regression-compile-tmp/check.imp" DPOS = DLIM; #line 552 "regression-compile-tmp/check.imp" DLIM = NEWDLIM; // 553 JL1:TYPE = INTEGER(DPOS) #line 553 "regression-compile-tmp/check.imp" U_1017:; #line 553 "regression-compile-tmp/check.imp" TYPE = *_imp_INTEGER(DPOS); // 554 ->CODE %IF TYPE&14 = LAB #line 554 "regression-compile-tmp/check.imp" if (((((TYPE) & (14))) != (12))) goto L_0049; #line 554 "regression-compile-tmp/check.imp" goto U_1004; #line 554 "regression-compile-tmp/check.imp" L_0049:; // 555 ->MODERR #line 555 "regression-compile-tmp/check.imp" goto U_100b; // 556 A(79): !RECSPEC #line 556 "regression-compile-tmp/check.imp" sw1_A_79:; // 557 ->MODERR %IF TYPE&X'F4' # 0 %OR VAL # 0 %OR DPOS < C_LOCAL #line 557 "regression-compile-tmp/check.imp" if (((((TYPE) & (244))) != (0))) goto L_0047; #line 557 "regression-compile-tmp/check.imp" if (((VAL) != (0))) goto L_0047; #line 557 "regression-compile-tmp/check.imp" if (((DPOS) >= (C.LOCAL))) goto L_004a; #line 557 "regression-compile-tmp/check.imp" L_0047:; #line 557 "regression-compile-tmp/check.imp" goto U_100b; #line 557 "regression-compile-tmp/check.imp" L_004a:; // 558 RECIDENTS = -DPOS #line 558 "regression-compile-tmp/check.imp" RECIDENTS = (-(DPOS)); // 559 ->ON #line 559 "regression-compile-tmp/check.imp" goto U_1005; // 560 A(88): !FSET #line 560 "regression-compile-tmp/check.imp" sw1_A_88:; // 561 IDENTS = RECIDENTS #line 561 "regression-compile-tmp/check.imp" IDENTS = RECIDENTS; // 562 %IF IDENTS >= 0 %THEN DEFINE(4,INTEGER(DPOS+4)) %C #line 562 "regression-compile-tmp/check.imp" if (((IDENTS) < (0))) goto L_004b; #line 562 "regression-compile-tmp/check.imp" DEFINE(4, *_imp_INTEGER((((int)(DPOS)) + (4)))); #line 562 "regression-compile-tmp/check.imp" goto L_004c; #line 562 "regression-compile-tmp/check.imp" L_004b:; #line 562 "regression-compile-tmp/check.imp" *_imp_INTEGER((((-(IDENTS))) + (4))) = *_imp_INTEGER((((int)(DPOS)) + (4))); #line 562 "regression-compile-tmp/check.imp" L_004c:; // 563 %ELSE INTEGER(-IDENTS+4) = INTEGER(DPOS+4) // 564 ->ON #line 564 "regression-compile-tmp/check.imp" goto U_1005; // 565 A(80): !PROCSPEC #line 565 "regression-compile-tmp/check.imp" sw1_A_80:; // 566 ->MODERR %IF TYPE&X'FF03' # FN %OR DPOS < C_LOCAL #line 566 "regression-compile-tmp/check.imp" if (((((TYPE) & (65283))) != (2))) goto L_004d; #line 566 "regression-compile-tmp/check.imp" if (((DPOS) >= (C.LOCAL))) goto L_004e; #line 566 "regression-compile-tmp/check.imp" L_004d:; #line 566 "regression-compile-tmp/check.imp" goto U_100b; #line 566 "regression-compile-tmp/check.imp" L_004e:; // 567 IDENTS = DPOS #line 567 "regression-compile-tmp/check.imp" IDENTS = DPOS; // 568 ->ON #line 568 "regression-compile-tmp/check.imp" goto U_1005; // 569 A(72): !BEG #line 569 "regression-compile-tmp/check.imp" sw1_A_72:; // 570 PIDENTPOS = IDENTS #line 570 "regression-compile-tmp/check.imp" PIDENTPOS = IDENTS; // 571 LEVEL = LEVEL+1; ->DISASTER %IF LEVEL > 12 #line 571 "regression-compile-tmp/check.imp" LEVEL = (((int)(LEVEL)) + (1)); #line 571 "regression-compile-tmp/check.imp" if (((LEVEL) <= (12))) goto L_004f; #line 571 "regression-compile-tmp/check.imp" goto U_100c; #line 571 "regression-compile-tmp/check.imp" L_004f:; // 572 HOLD(LEVEL) = C #line 572 "regression-compile-tmp/check.imp" HOLD[(((int)(LEVEL)) - (1))] = C; // 573 C_BTYPE = DECLTYPE #line 573 "regression-compile-tmp/check.imp" C.BTYPE = DECLTYPE; // 574 C_STACK = 0 #line 574 "regression-compile-tmp/check.imp" C.STACK = 0; // 575 C_LOCAL = DLIM #line 575 "regression-compile-tmp/check.imp" C.LOCAL = DLIM; // 576 ->ON #line 576 "regression-compile-tmp/check.imp" goto U_1005; // 577 A(89): !NL: PARSET #line 577 "regression-compile-tmp/check.imp" sw1_A_89:; // 578 IDENTS = C_LOCAL; NP = 51 #line 578 "regression-compile-tmp/check.imp" IDENTS = C.LOCAL; #line 578 "regression-compile-tmp/check.imp" NP = 51; // 579 %WHILE IDENTS # DLIM %CYCLE #line 579 "regression-compile-tmp/check.imp" L_0050:; #line 579 "regression-compile-tmp/check.imp" if (((IDENTS) == (DLIM))) goto L_0051; // 580 NP = NP-1; NTYPE(NP) = INTEGER(IDENTS) #line 580 "regression-compile-tmp/check.imp" NP = (((int)(NP)) - (1)); #line 580 "regression-compile-tmp/check.imp" NTYPE[(((int)(NP)) - (1))] = *_imp_INTEGER(IDENTS); // 581 IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16 #line 581 "regression-compile-tmp/check.imp" IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16)); // 582 %REPEAT #line 582 "regression-compile-tmp/check.imp" goto L_0050; #line 582 "regression-compile-tmp/check.imp" L_0051:; // 583 I = 0 #line 583 "regression-compile-tmp/check.imp" I = 0; // 584 %WHILE NP # 51 %CYCLE #line 584 "regression-compile-tmp/check.imp" L_0053:; #line 584 "regression-compile-tmp/check.imp" if (((NP) == (51))) goto L_0054; // 585 J = I<<24+NTYPE(NP); NP = NP+1 #line 585 "regression-compile-tmp/check.imp" J = (((int)(((I) << (24)))) + (NTYPE[(((int)(NP)) - (1))])); #line 585 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 586 I = I+1 %UNTIL I > PARMAX %OR PARTYPE(I) = J #line 586 "regression-compile-tmp/check.imp" L_0056:; #line 586 "regression-compile-tmp/check.imp" I = (((int)(I)) + (1)); #line 586 "regression-compile-tmp/check.imp" if (((I) > (PARMAX))) goto L_0057; #line 586 "regression-compile-tmp/check.imp" if (((PARTYPE[I]) == (J))) goto L_0057; #line 586 "regression-compile-tmp/check.imp" goto L_0056; #line 586 "regression-compile-tmp/check.imp" L_0057:; // 587 %IF I > PARMAX %START #line 587 "regression-compile-tmp/check.imp" if (((I) <= (PARMAX))) goto L_0059; // 588 ->DISASTER %IF I = 252 #line 588 "regression-compile-tmp/check.imp" if (((I) != (252))) goto L_005a; #line 588 "regression-compile-tmp/check.imp" goto U_100c; #line 588 "regression-compile-tmp/check.imp" L_005a:; // 589 PARMAX = I #line 589 "regression-compile-tmp/check.imp" PARMAX = I; // 590 PARTYPE(I) = J #line 590 "regression-compile-tmp/check.imp" PARTYPE[I] = J; // 591 %FINISH #line 591 "regression-compile-tmp/check.imp" L_0059:; // 592 %REPEAT #line 592 "regression-compile-tmp/check.imp" goto L_0053; #line 592 "regression-compile-tmp/check.imp" L_0054:; // 593 %IF C_BTYPE&1 = 0 %AND INTEGER(PIDENTPOS)&1 # 0 %START #line 593 "regression-compile-tmp/check.imp" if (((((C.BTYPE) & (1))) != (0))) goto L_005b; #line 593 "regression-compile-tmp/check.imp" if (((((*_imp_INTEGER(PIDENTPOS)) & (1))) == (0))) goto L_005b; // 594 FAULT(18) %IF BYTEINTEGER(PIDENTPOS+2) # I #line 594 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER((((int)(PIDENTPOS)) + (2)))) == (I))) goto L_005c; #line 594 "regression-compile-tmp/check.imp" FAULT(18); #line 594 "regression-compile-tmp/check.imp" L_005c:; // 595 INTEGER(PIDENTPOS) = C_BTYPE #line 595 "regression-compile-tmp/check.imp" *_imp_INTEGER(PIDENTPOS) = C.BTYPE; // 596 %FINISH #line 596 "regression-compile-tmp/check.imp" L_005b:; // 597 BYTEINTEGER(PIDENTPOS+2) = I #line 597 "regression-compile-tmp/check.imp" *_imp_BYTEINTEGER((((int)(PIDENTPOS)) + (2))) = I; // 598 INTEGER(PIDENTPOS) = INTEGER(PIDENTPOS)&(\EXTIND) #line 598 "regression-compile-tmp/check.imp" *_imp_INTEGER(PIDENTPOS) = ((*_imp_INTEGER(PIDENTPOS)) & ((~(EXTIND)))); // 599 ->FIN #line 599 "regression-compile-tmp/check.imp" goto U_100d; // 600 A(90): !INIT #line 600 "regression-compile-tmp/check.imp" sw1_A_90:; // 601 CONSTCOUNT = CONSTCOUNT-1 #line 601 "regression-compile-tmp/check.imp" CONSTCOUNT = (((int)(CONSTCOUNT)) - (1)); // 602 ->ER20 %IF TYPE&15 # 0 #line 602 "regression-compile-tmp/check.imp" if (((((TYPE) & (15))) == (0))) goto L_005d; #line 602 "regression-compile-tmp/check.imp" goto U_100f; #line 602 "regression-compile-tmp/check.imp" L_005d:; // 603 ->ER22 %IF TYPE&DECLTYPE = 0 #line 603 "regression-compile-tmp/check.imp" if (((((TYPE) & (DECLTYPE))) != (0))) goto L_005e; #line 603 "regression-compile-tmp/check.imp" goto U_1010; #line 603 "regression-compile-tmp/check.imp" L_005e:; // 604 !RANGE CHECK // 605 DEFINE(4,VAL) %IF DECLTYPE&15 = 0 #line 605 "regression-compile-tmp/check.imp" if (((((DECLTYPE) & (15))) != (0))) goto L_005f; #line 605 "regression-compile-tmp/check.imp" DEFINE(4, VAL); #line 605 "regression-compile-tmp/check.imp" L_005f:; // 606 ->ON #line 606 "regression-compile-tmp/check.imp" goto U_1005; // 607 A(91): !NL: INITFIN #line 607 "regression-compile-tmp/check.imp" sw1_A_91:; // 608 FAULT(21) %IF CONSTCOUNT # 0 %AND CONSTCOUNT < 1000000 #line 608 "regression-compile-tmp/check.imp" if (((CONSTCOUNT) == (0))) goto L_0060; #line 608 "regression-compile-tmp/check.imp" if (((CONSTCOUNT) >= (1000000))) goto L_0060; #line 608 "regression-compile-tmp/check.imp" FAULT(21); #line 608 "regression-compile-tmp/check.imp" L_0060:; // 609 ->FIN #line 609 "regression-compile-tmp/check.imp" goto U_100d; // 610 A(92): !DIMSET #line 610 "regression-compile-tmp/check.imp" sw1_A_92:; // 611 DEFINE(0,DIMCOUNT) #line 611 "regression-compile-tmp/check.imp" DEFINE(0, DIMCOUNT); // 612 DIMCOUNT = 0 #line 612 "regression-compile-tmp/check.imp" DIMCOUNT = 0; // 613 ->ON #line 613 "regression-compile-tmp/check.imp" goto U_1005; // 614 A(93): !COLON: COUNT #line 614 "regression-compile-tmp/check.imp" sw1_A_93:; // 615 %IF DIMCOUNT = 6 %THEN FAULT(23) %ELSE DIMCOUNT = DIMCOUNT+1 #line 615 "regression-compile-tmp/check.imp" if (((DIMCOUNT) != (6))) goto L_0061; #line 615 "regression-compile-tmp/check.imp" FAULT(23); #line 615 "regression-compile-tmp/check.imp" goto L_0062; #line 615 "regression-compile-tmp/check.imp" L_0061:; #line 615 "regression-compile-tmp/check.imp" DIMCOUNT = (((int)(DIMCOUNT)) + (1)); #line 615 "regression-compile-tmp/check.imp" L_0062:; // 616 ->CODE #line 616 "regression-compile-tmp/check.imp" goto U_1004; // 617 A(94): !REP #line 617 "regression-compile-tmp/check.imp" sw1_A_94:; // 618 CONSTCOUNT = CONSTCOUNT-VAL+1 #line 618 "regression-compile-tmp/check.imp" CONSTCOUNT = (((int)((((int)(CONSTCOUNT)) - (VAL)))) + (1)); // 619 ->ON #line 619 "regression-compile-tmp/check.imp" goto U_1005; // 620 A(95): !LITINT #line 620 "regression-compile-tmp/check.imp" sw1_A_95:; // 621 ->ER20 %IF TYPE&15 # 0 #line 621 "regression-compile-tmp/check.imp" if (((((TYPE) & (15))) == (0))) goto L_0063; #line 621 "regression-compile-tmp/check.imp" goto U_100f; #line 621 "regression-compile-tmp/check.imp" L_0063:; // 622 A(96): !INT #line 622 "regression-compile-tmp/check.imp" sw1_A_96:; // 623 ->ER22 %IF TYPE&INTBIT = 0 #line 623 "regression-compile-tmp/check.imp" if (((((TYPE) & (64))) != (0))) goto L_0064; #line 623 "regression-compile-tmp/check.imp" goto U_1010; #line 623 "regression-compile-tmp/check.imp" L_0064:; // 624 ->NAPP #line 624 "regression-compile-tmp/check.imp" goto U_100e; // 625 A(97): !STR #line 625 "regression-compile-tmp/check.imp" sw1_A_97:; // 626 ->ER22 %IF TYPE&STRINGBIT = 0 #line 626 "regression-compile-tmp/check.imp" if (((((TYPE) & (128))) != (0))) goto L_0065; #line 626 "regression-compile-tmp/check.imp" goto U_1010; #line 626 "regression-compile-tmp/check.imp" L_0065:; // 627 ->NAPP #line 627 "regression-compile-tmp/check.imp" goto U_100e; // 628 A(98): !SIZESET #line 628 "regression-compile-tmp/check.imp" sw1_A_98:; // 629 STRINGSIZE = VAL #line 629 "regression-compile-tmp/check.imp" STRINGSIZE = VAL; // 630 ->ON %IF 0 < VAL <= 255 #line 630 "regression-compile-tmp/check.imp" if ((((0) >= (VAL))) || (((VAL) > (255)))) goto L_0066; #line 630 "regression-compile-tmp/check.imp" goto U_1005; #line 630 "regression-compile-tmp/check.imp" L_0066:; // 631 FAULT(19); STRINGSIZE = 255 #line 631 "regression-compile-tmp/check.imp" FAULT(19); #line 631 "regression-compile-tmp/check.imp" STRINGSIZE = 255; // 632 ->ON #line 632 "regression-compile-tmp/check.imp" goto U_1005; // 633 A(99): !CBSET #line 633 "regression-compile-tmp/check.imp" sw1_A_99:; // 634 LASTVAL = NVAL(NP); NP = NP+1 #line 634 "regression-compile-tmp/check.imp" LASTVAL = NVAL[(((int)(NP)) - (1))]; #line 634 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 635 ->CBERR %UNLESS -32768 <= LASTVAL <= 32767 #line 635 "regression-compile-tmp/check.imp" if (((((-32768)) > (LASTVAL))) || (((LASTVAL) <= (32767)))) goto L_0067; #line 635 "regression-compile-tmp/check.imp" L_0055:; #line 635 "regression-compile-tmp/check.imp" goto U_1018; #line 635 "regression-compile-tmp/check.imp" L_0067:; // 636 CONSTCOUNT = VAL-LASTVAL+1 #line 636 "regression-compile-tmp/check.imp" CONSTCOUNT = (((int)((((int)(VAL)) - (LASTVAL)))) + (1)); // 637 ->CBERR %UNLESS 0 < CONSTCOUNT <= 32767 #line 637 "regression-compile-tmp/check.imp" if ((((0) >= (CONSTCOUNT))) || (((CONSTCOUNT) <= (32767)))) goto L_0069; #line 637 "regression-compile-tmp/check.imp" L_0068:; #line 637 "regression-compile-tmp/check.imp" goto U_1018; #line 637 "regression-compile-tmp/check.imp" L_0069:; // 638 %IF DECLTYPE = SWITCH %START #line 638 "regression-compile-tmp/check.imp" if (((DECLTYPE) != (268))) goto L_006a; // 639 {%UNTIL IDENTS = DLIM} %CYCLE #line 639 "regression-compile-tmp/check.imp" L_006b:; // 640 J = DBOUND #line 640 "regression-compile-tmp/check.imp" J = DBOUND; // 641 DBOUND = J-(CONSTCOUNT+63)>>5<<2 #line 641 "regression-compile-tmp/check.imp" DBOUND = ((J) - ((int)((((((((((int)(CONSTCOUNT)) + (63)))) >> (5)))) << (2))))); // 642 ->DISASTER %IF DBOUND <= DLIM #line 642 "regression-compile-tmp/check.imp" if (((DBOUND) > (DLIM))) goto L_006e; #line 642 "regression-compile-tmp/check.imp" goto U_100c; #line 642 "regression-compile-tmp/check.imp" L_006e:; // 643 INTEGER(IDENTS+4) = DBOUND #line 643 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(IDENTS)) + (4))) = DBOUND; // 644 INTEGER(DBOUND) = LASTVAL<<16+CONSTCOUNT #line 644 "regression-compile-tmp/check.imp" *_imp_INTEGER(DBOUND) = (((int)(((LASTVAL) << (16)))) + (CONSTCOUNT)); // 645 %CYCLE #line 645 "regression-compile-tmp/check.imp" L_006f:; // 646 J = J-4 #line 646 "regression-compile-tmp/check.imp" J = (((int)(J)) - (4)); // 647 %EXIT %IF J = DBOUND #line 647 "regression-compile-tmp/check.imp" if (((J) != (DBOUND))) goto L_0072; #line 647 "regression-compile-tmp/check.imp" goto L_0070; #line 647 "regression-compile-tmp/check.imp" L_0072:; // 648 INTEGER(J) = 0 #line 648 "regression-compile-tmp/check.imp" *_imp_INTEGER(J) = 0; // 649 %REPEAT #line 649 "regression-compile-tmp/check.imp" goto L_006f; #line 649 "regression-compile-tmp/check.imp" L_0070:; // 650 IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16 #line 650 "regression-compile-tmp/check.imp" IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16)); // 651 %REPEAT %UNTIL IDENTS = DLIM #line 651 "regression-compile-tmp/check.imp" if (((IDENTS) == (DLIM))) goto L_006c; #line 651 "regression-compile-tmp/check.imp" goto L_006b; #line 651 "regression-compile-tmp/check.imp" L_006c:; // 652 %FINISH #line 652 "regression-compile-tmp/check.imp" L_006a:; // 653 CB1:IDENTS = DLIM #line 653 "regression-compile-tmp/check.imp" U_1019:; #line 653 "regression-compile-tmp/check.imp" IDENTS = DLIM; // 654 ->ON #line 654 "regression-compile-tmp/check.imp" goto U_1005; // 655 CBERR: #line 655 "regression-compile-tmp/check.imp" U_1018:; // 656 FAULT(23); CONSTCOUNT = 2000000 #line 656 "regression-compile-tmp/check.imp" FAULT(23); #line 656 "regression-compile-tmp/check.imp" CONSTCOUNT = 2000000; // 657 ->CB1 #line 657 "regression-compile-tmp/check.imp" goto U_1019; // 658 A(100): !COLON: LAB #line 658 "regression-compile-tmp/check.imp" sw1_A_100:; // 659 ->FIN %IF DECLTYPE # 0; !SIMPLE LABEL #line 659 "regression-compile-tmp/check.imp" if (((DECLTYPE) == (0))) goto L_0073; #line 659 "regression-compile-tmp/check.imp" goto U_100d; #line 659 "regression-compile-tmp/check.imp" L_0073:; // 660 ->ERR %IF TYPE # JUMPLAB; !IE SWITCH + APP #line 660 "regression-compile-tmp/check.imp" if (((TYPE) == (13))) goto L_0074; #line 660 "regression-compile-tmp/check.imp" goto U_1003; #line 660 "regression-compile-tmp/check.imp" L_0074:; // 661 FAULT(20) %AND ->FIN %IF LASTTYPE&15 # 0 #line 661 "regression-compile-tmp/check.imp" if (((((LASTTYPE) & (15))) == (0))) goto L_0075; #line 661 "regression-compile-tmp/check.imp" FAULT(20); #line 661 "regression-compile-tmp/check.imp" goto U_100d; #line 661 "regression-compile-tmp/check.imp" L_0075:; // 662 ->FIN %IF VAL = 0 #line 662 "regression-compile-tmp/check.imp" if (((VAL) != (0))) goto L_0076; #line 662 "regression-compile-tmp/check.imp" goto U_100d; #line 662 "regression-compile-tmp/check.imp" L_0076:; // 663 J = LASTVAL-SHORTINTEGER(VAL) #line 663 "regression-compile-tmp/check.imp" J = ((LASTVAL) - (*(int *)(_imp_SHORTINTEGER(VAL)))); // 664 FAULT(19) %AND ->FIN %UNLESS 0 <= J < SHORTINTEGER(VAL+2) #line 664 "regression-compile-tmp/check.imp" if (({int tmp1 = 0, tmp2 = J, tmp3 = *_imp_SHORTINTEGER((((int)(VAL)) + (2))); (tmp1 > tmp2) || (tmp2 < tmp3);})) goto L_0078; #line 664 "regression-compile-tmp/check.imp" L_0077:; #line 664 "regression-compile-tmp/check.imp" FAULT(19); #line 664 "regression-compile-tmp/check.imp" goto U_100d; #line 664 "regression-compile-tmp/check.imp" L_0078:; // 665 I = VAL+J>>5<<2; J = X'80000000'>>(J&31) #line 665 "regression-compile-tmp/check.imp" I = ((VAL) + ((int)((((int)((((unsigned int)(J)) >> (5)))) << (2))))); #line 665 "regression-compile-tmp/check.imp" J = (int)((((unsigned int)((-2147483648))) >> (((J) & (31))))); // 666 FAULT(16) %IF INTEGER(I+4)&J # 0 #line 666 "regression-compile-tmp/check.imp" if (((((*_imp_INTEGER((((int)(I)) + (4)))) & (J))) == (0))) goto L_0079; #line 666 "regression-compile-tmp/check.imp" FAULT(16); #line 666 "regression-compile-tmp/check.imp" L_0079:; // 667 INTEGER(I+4) = INTEGER(I+4)!J #line 667 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(I)) + (4))) = ((*_imp_INTEGER((((int)(I)) + (4)))) | (J)); // 668 ->FIN #line 668 "regression-compile-tmp/check.imp" goto U_100d; // 669 A(101): !OP3: DOT #line 669 "regression-compile-tmp/check.imp" sw1_A_101:; // 670 ->ERR %IF ATOMTYPE # STRINGBIT; !IE OP3 # '.' #line 670 "regression-compile-tmp/check.imp" if (((ATOMTYPE) == (128))) goto L_007a; #line 670 "regression-compile-tmp/check.imp" goto U_1003; #line 670 "regression-compile-tmp/check.imp" L_007a:; // 671 A(60): !FOR #line 671 "regression-compile-tmp/check.imp" sw1_A_60:; // 672 MODES = DESTMODES #line 672 "regression-compile-tmp/check.imp" MODES = 15728640; // 673 ->CODE #line 673 "regression-compile-tmp/check.imp" goto U_1004; // 674 A(73): !RESOL #line 674 "regression-compile-tmp/check.imp" sw1_A_73:; // 675 ->ER22 %IF TYPE&STRINGBIT = 0 #line 675 "regression-compile-tmp/check.imp" if (((((TYPE) & (128))) != (0))) goto L_007b; #line 675 "regression-compile-tmp/check.imp" goto U_1010; #line 675 "regression-compile-tmp/check.imp" L_007b:; // 676 MODES = DESTMODES #line 676 "regression-compile-tmp/check.imp" MODES = 15728640; // 677 ->ON #line 677 "regression-compile-tmp/check.imp" goto U_1005; // 678 A(102): !OP3: SIGN #line 678 "regression-compile-tmp/check.imp" sw1_A_102:; // 679 ->ERR %IF ATOMTYPE&3 = 0; !IE OP3 # '+', '-', '!' #line 679 "regression-compile-tmp/check.imp" if (((((ATOMTYPE) & (3))) != (0))) goto L_007c; #line 679 "regression-compile-tmp/check.imp" goto U_1003; #line 679 "regression-compile-tmp/check.imp" L_007c:; // 680 TYPE = ATOMTYPE; VAL = 0 #line 680 "regression-compile-tmp/check.imp" TYPE = ATOMTYPE; #line 680 "regression-compile-tmp/check.imp" VAL = 0; // 681 ->OP1 #line 681 "regression-compile-tmp/check.imp" goto U_101a; // 682 A(7): !UOP #line 682 "regression-compile-tmp/check.imp" sw1_A_7:; // 683 TYPE = ATOMTYPE; VAL = -1 #line 683 "regression-compile-tmp/check.imp" TYPE = ATOMTYPE; #line 683 "regression-compile-tmp/check.imp" VAL = (-1); // 684 ->OP1 #line 684 "regression-compile-tmp/check.imp" goto U_101a; // 685 A(8): !COP #line 685 "regression-compile-tmp/check.imp" sw1_A_8:; // 686 A(4): !OP1 #line 686 "regression-compile-tmp/check.imp" sw1_A_4:; // 687 A(5): !OP2 #line 687 "regression-compile-tmp/check.imp" sw1_A_5:; // 688 A(104):!OP3 OR EQ: OP #line 688 "regression-compile-tmp/check.imp" sw1_A_104:; // 689 ->ERR %IF TYPE&APPMASK # 0 #line 689 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) == (0))) goto L_007d; #line 689 "regression-compile-tmp/check.imp" goto U_1003; #line 689 "regression-compile-tmp/check.imp" L_007d:; // 690 %IF TYPE&X'FF4F' = INTBIT %THEN TYPE=TYPE!15 %ELSE TYPE=TYPE&(\15) #line 690 "regression-compile-tmp/check.imp" if (((((TYPE) & (65359))) != (64))) goto L_007e; #line 690 "regression-compile-tmp/check.imp" TYPE = ((TYPE) | (15)); #line 690 "regression-compile-tmp/check.imp" goto L_007f; #line 690 "regression-compile-tmp/check.imp" L_007e:; #line 690 "regression-compile-tmp/check.imp" TYPE = ((TYPE) & ((~(15)))); #line 690 "regression-compile-tmp/check.imp" L_007f:; // 691 TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0 #line 691 "regression-compile-tmp/check.imp" if (((((TYPE) & (112))) == (0))) goto L_0080; #line 691 "regression-compile-tmp/check.imp" TYPE = ((TYPE) | (48)); #line 691 "regression-compile-tmp/check.imp" L_0080:; // 692 OP1:NP = NP-1; NTYPE(NP) = TYPE&ATOMTYPE; NVAL(NP) = VAL #line 692 "regression-compile-tmp/check.imp" U_101a:; #line 692 "regression-compile-tmp/check.imp" NP = (((int)(NP)) - (1)); #line 692 "regression-compile-tmp/check.imp" NTYPE[(((int)(NP)) - (1))] = ((TYPE) & (ATOMTYPE)); #line 692 "regression-compile-tmp/check.imp" NVAL[(((int)(NP)) - (1))] = VAL; // 693 ->CODE #line 693 "regression-compile-tmp/check.imp" goto U_1004; // 694 A(105): !EVAL #line 694 "regression-compile-tmp/check.imp" sw1_A_105:; // 695 ->ERR %IF TYPE&APPMASK # 0 #line 695 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) == (0))) goto L_0081; #line 695 "regression-compile-tmp/check.imp" goto U_1003; #line 695 "regression-compile-tmp/check.imp" L_0081:; // 696 TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0 #line 696 "regression-compile-tmp/check.imp" if (((((TYPE) & (112))) == (0))) goto L_0082; #line 696 "regression-compile-tmp/check.imp" TYPE = ((TYPE) | (48)); #line 696 "regression-compile-tmp/check.imp" L_0082:; // 697 I = NTYPE(NP); NP = NP+1 #line 697 "regression-compile-tmp/check.imp" I = NTYPE[(((int)(NP)) - (1))]; #line 697 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 698 J = I&TYPE&X'F0' #line 698 "regression-compile-tmp/check.imp" J = ((((I) & (TYPE))) & (240)); // 699 ->ER22 %IF J = 0 #line 699 "regression-compile-tmp/check.imp" if (((J) != (0))) goto L_0083; #line 699 "regression-compile-tmp/check.imp" goto U_1010; #line 699 "regression-compile-tmp/check.imp" L_0083:; // 700 ->X(I&15) %IF TYPE&X'FF4F' = INTBIT #line 700 "regression-compile-tmp/check.imp" if (((((TYPE) & (65359))) != (64))) goto L_0084; #line 700 "regression-compile-tmp/check.imp" sw2_X_idx = ((I) & (15)); if ((0 <= sw2_X_idx) && (sw2_X_idx <= 4)) goto *sw2_X[sw2_X_idx]; else { /*_imp_signal(8, 2, sw2_X_idx);*/ fprintf(stderr, "%%SWITCH index X(%d) not in range 0:4 at %s:%d\n", sw2_X_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 700 "regression-compile-tmp/check.imp" L_0084:; // 701 X(0): #line 701 "regression-compile-tmp/check.imp" sw2_X_0:; // 702 TYPE = J+EXP #line 702 "regression-compile-tmp/check.imp" TYPE = (((int)(J)) + (1)); // 703 ->ON #line 703 "regression-compile-tmp/check.imp" goto U_1005; // 704 X(1): VAL = NVAL(NP-1)+VAL #line 704 "regression-compile-tmp/check.imp" sw2_X_1:; #line 704 "regression-compile-tmp/check.imp" VAL = (((int)(NVAL[(((int)((((int)(NP)) - (1)))) - (1))])) + (VAL)); // 705 X1: TYPE = NUMBITS #line 705 "regression-compile-tmp/check.imp" U_101b:; #line 705 "regression-compile-tmp/check.imp" TYPE = 112; // 706 ->ON #line 706 "regression-compile-tmp/check.imp" goto U_1005; // 707 X(2): VAL = NVAL(NP-1)-VAL #line 707 "regression-compile-tmp/check.imp" sw2_X_2:; #line 707 "regression-compile-tmp/check.imp" VAL = (((int)(NVAL[(((int)((((int)(NP)) - (1)))) - (1))])) - (VAL)); // 708 ->X1 #line 708 "regression-compile-tmp/check.imp" goto U_101b; // 709 X(3): VAL = NVAL(NP-1)!VAL #line 709 "regression-compile-tmp/check.imp" sw2_X_3:; #line 709 "regression-compile-tmp/check.imp" VAL = ((NVAL[(((int)((((int)(NP)) - (1)))) - (1))]) | (VAL)); // 710 ->X1 #line 710 "regression-compile-tmp/check.imp" goto U_101b; // 711 X(4): VAL = NVAL(NP-1)!!VAL #line 711 "regression-compile-tmp/check.imp" sw2_X_4:; #line 711 "regression-compile-tmp/check.imp" VAL = ((NVAL[(((int)((((int)(NP)) - (1)))) - (1))]) ^ (VAL)); // 712 ->X1 #line 712 "regression-compile-tmp/check.imp" goto U_101b; // 713 A(103): !BAR (FIDDLE FOR MOD-SIGN) #line 713 "regression-compile-tmp/check.imp" sw1_A_103:; // 714 ->ON %UNLESS NTYPE(NP) = X'43' #line 714 "regression-compile-tmp/check.imp" if (((NTYPE[(((int)(NP)) - (1))]) == (67))) goto L_0085; #line 714 "regression-compile-tmp/check.imp" goto U_1005; #line 714 "regression-compile-tmp/check.imp" L_0085:; // 715 ->ERR %UNLESS ATOM = OP3 %AND ATOMTYPE = X'43' #line 715 "regression-compile-tmp/check.imp" if (((ATOM) != (6))) goto L_0086; #line 715 "regression-compile-tmp/check.imp" if (((ATOMTYPE) == (67))) goto L_0087; #line 715 "regression-compile-tmp/check.imp" L_0086:; #line 715 "regression-compile-tmp/check.imp" goto U_1003; #line 715 "regression-compile-tmp/check.imp" L_0087:; // 716 NP = NP+1; CODE ATOM #line 716 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); #line 716 "regression-compile-tmp/check.imp" CODEATOM(); // 717 ->EXIT #line 717 "regression-compile-tmp/check.imp" goto U_1008; // 718 A(106): !EQ: ASSOP #line 718 "regression-compile-tmp/check.imp" sw1_A_106:; // 719 ->ERR %IF TYPE&X'FF0C' # 8 #line 719 "regression-compile-tmp/check.imp" if (((((TYPE) & (65292))) == (8))) goto L_0088; #line 719 "regression-compile-tmp/check.imp" goto U_1003; #line 719 "regression-compile-tmp/check.imp" L_0088:; // 720 SAVE: #line 720 "regression-compile-tmp/check.imp" U_101c:; // 721 NP = NP-1; NTYPE(NP) = TYPE; NVAL(NP) = VAL #line 721 "regression-compile-tmp/check.imp" NP = (((int)(NP)) - (1)); #line 721 "regression-compile-tmp/check.imp" NTYPE[(((int)(NP)) - (1))] = TYPE; #line 721 "regression-compile-tmp/check.imp" NVAL[(((int)(NP)) - (1))] = VAL; // 722 ->CODE #line 722 "regression-compile-tmp/check.imp" goto U_1004; // 723 A(14): !EQEQ #line 723 "regression-compile-tmp/check.imp" sw1_A_14:; // 724 MODES = ADRMODES #line 724 "regression-compile-tmp/check.imp" MODES = 1089470464; // 725 ->SAVE %IF TYPE&15 = REF #line 725 "regression-compile-tmp/check.imp" if (((((TYPE) & (15))) != (8))) goto L_0089; #line 725 "regression-compile-tmp/check.imp" goto U_101c; #line 725 "regression-compile-tmp/check.imp" L_0089:; // 726 ->ERR #line 726 "regression-compile-tmp/check.imp" goto U_1003; // 727 A(107): !ASS #line 727 "regression-compile-tmp/check.imp" sw1_A_107:; // 728 I = NTYPE(NP); NP = NP+1 #line 728 "regression-compile-tmp/check.imp" I = NTYPE[(((int)(NP)) - (1))]; #line 728 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 729 AS1:%IF I&TYPE&X'C0' = 0 %START #line 729 "regression-compile-tmp/check.imp" U_101d:; #line 729 "regression-compile-tmp/check.imp" if (((((((I) & (TYPE))) & (192))) != (0))) goto L_008a; // 730 I = I&X'F0' #line 730 "regression-compile-tmp/check.imp" I = ((I) & (240)); // 731 %IF I = 0 %START; !RECORD #line 731 "regression-compile-tmp/check.imp" if (((I) != (0))) goto L_008b; // 732 ->ER22 %UNLESS TYPE&X'F0' = 0 %OR %C #line 732 "regression-compile-tmp/check.imp" if (((((TYPE) & (240))) == (0))) goto L_008c; #line 732 "regression-compile-tmp/check.imp" if (((((TYPE) & (65359))) != (64))) goto L_0071; #line 732 "regression-compile-tmp/check.imp" if (((VAL) == (0))) goto L_008c; #line 732 "regression-compile-tmp/check.imp" L_0071:; #line 732 "regression-compile-tmp/check.imp" goto U_1010; #line 732 "regression-compile-tmp/check.imp" L_008c:; // 733 (TYPE&X'FF4F'=INTBIT %AND VAL=0) // 734 %FINISH %ELSE %START #line 734 "regression-compile-tmp/check.imp" goto L_008d; #line 734 "regression-compile-tmp/check.imp" L_008b:; // 735 ->ER22 %UNLESS I <= X'30' %AND TYPE&NUMBITS # 0 #line 735 "regression-compile-tmp/check.imp" if (((I) > (48))) goto L_008e; #line 735 "regression-compile-tmp/check.imp" if (((((TYPE) & (112))) != (0))) goto L_008f; #line 735 "regression-compile-tmp/check.imp" L_008e:; #line 735 "regression-compile-tmp/check.imp" goto U_1010; #line 735 "regression-compile-tmp/check.imp" L_008f:; // 736 %FINISH #line 736 "regression-compile-tmp/check.imp" L_008d:; // 737 %FINISH #line 737 "regression-compile-tmp/check.imp" L_008a:; // 738 ->NAPP #line 738 "regression-compile-tmp/check.imp" goto U_100e; // 739 A(108): !REFASS #line 739 "regression-compile-tmp/check.imp" sw1_A_108:; // 740 I = NTYPE(NP); NP = NP+1 #line 740 "regression-compile-tmp/check.imp" I = NTYPE[(((int)(NP)) - (1))]; #line 740 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 741 RA1:FAULT(22) %IF (I!!TYPE)&X'F0' # 0 %C #line 741 "regression-compile-tmp/check.imp" U_101e:; #line 741 "regression-compile-tmp/check.imp" if (((((((I) ^ (TYPE))) & (240))) == (0))) goto L_0090; #line 741 "regression-compile-tmp/check.imp" if (((((I) & (240))) == (240))) goto L_0090; #line 741 "regression-compile-tmp/check.imp" if (((((TYPE) & (240))) == (240))) goto L_0090; #line 741 "regression-compile-tmp/check.imp" FAULT(22); #line 741 "regression-compile-tmp/check.imp" L_0090:; // 742 %AND I&X'F0' # X'F0' %AND TYPE&X'F0' # X'F0' // 743 ->NAPP %IF I&APPMASK = 0; !SCALAR #line 743 "regression-compile-tmp/check.imp" if (((((I) & (65280))) != (0))) goto L_0091; #line 743 "regression-compile-tmp/check.imp" goto U_100e; #line 743 "regression-compile-tmp/check.imp" L_0091:; // 744 FAULT(22) %IF TYPE&APPMASK = 0 %OR TYPE&14 = MAP #line 744 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) == (0))) goto L_0092; #line 744 "regression-compile-tmp/check.imp" if (((((TYPE) & (14))) != (10))) goto L_0093; #line 744 "regression-compile-tmp/check.imp" L_0092:; #line 744 "regression-compile-tmp/check.imp" FAULT(22); #line 744 "regression-compile-tmp/check.imp" L_0093:; // 745 ->ON #line 745 "regression-compile-tmp/check.imp" goto U_1005; // 746 A(17): !RESULT #line 746 "regression-compile-tmp/check.imp" sw1_A_17:; // 747 FAULT(25) %IF C_BTYPE&7 # FN #line 747 "regression-compile-tmp/check.imp" if (((((C.BTYPE) & (7))) == (2))) goto L_0094; #line 747 "regression-compile-tmp/check.imp" FAULT(25); #line 747 "regression-compile-tmp/check.imp" L_0094:; // 748 TYPE = C_BTYPE&X'F8'; TYPE = TYPE+VAR %IF TYPE&8 = 0 #line 748 "regression-compile-tmp/check.imp" TYPE = ((C.BTYPE) & (248)); #line 748 "regression-compile-tmp/check.imp" if (((((TYPE) & (8))) != (0))) goto L_0095; #line 748 "regression-compile-tmp/check.imp" TYPE = (((int)(TYPE)) + (9)); #line 748 "regression-compile-tmp/check.imp" L_0095:; // 749 VAL = 0 #line 749 "regression-compile-tmp/check.imp" VAL = 0; // 750 ->CODE #line 750 "regression-compile-tmp/check.imp" goto U_1004; // 751 A(71): !RCALL #line 751 "regression-compile-tmp/check.imp" sw1_A_71:; // 752 ->ON %IF TYPE&X'FFFC' = 4 #line 752 "regression-compile-tmp/check.imp" if (((((TYPE) & (65532))) != (4))) goto L_0096; #line 752 "regression-compile-tmp/check.imp" goto U_1005; #line 752 "regression-compile-tmp/check.imp" L_0096:; // 753 ->ERR #line 753 "regression-compile-tmp/check.imp" goto U_1003; // 754 A(112): !APP #line 754 "regression-compile-tmp/check.imp" sw1_A_112:; // 755 ->ON %IF ATOM # LB #line 755 "regression-compile-tmp/check.imp" if (((ATOM) == (11))) goto L_0097; #line 755 "regression-compile-tmp/check.imp" goto U_1005; #line 755 "regression-compile-tmp/check.imp" L_0097:; // 756 LINKMAX = LINKMAX+1; ->ERR %IF LINKMAX > 20 #line 756 "regression-compile-tmp/check.imp" LINKMAX = (((int)(LINKMAX)) + (1)); #line 756 "regression-compile-tmp/check.imp" if (((LINKMAX) <= (20))) goto L_0098; #line 756 "regression-compile-tmp/check.imp" goto U_1003; #line 756 "regression-compile-tmp/check.imp" L_0098:; // 757 LINK(LINKMAX) = G #line 757 "regression-compile-tmp/check.imp" LINK[(((int)(LINKMAX)) - (1))] = G; // 758 NP = NP-1; NVAL(NP) = VAL #line 758 "regression-compile-tmp/check.imp" NP = (((int)(NP)) - (1)); #line 758 "regression-compile-tmp/check.imp" NVAL[(((int)(NP)) - (1))] = VAL; // 759 AP: ->ERR %IF TYPE&APPMASK = 0 #line 759 "regression-compile-tmp/check.imp" U_101f:; #line 759 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) != (0))) goto L_0099; #line 759 "regression-compile-tmp/check.imp" goto U_1003; #line 759 "regression-compile-tmp/check.imp" L_0099:; // 760 NTYPE(NP) = TYPE #line 760 "regression-compile-tmp/check.imp" NTYPE[(((int)(NP)) - (1))] = TYPE; // 761 G = APPCONT #line 761 "regression-compile-tmp/check.imp" G = APPCONT; // 762 CODE ATOM #line 762 "regression-compile-tmp/check.imp" CODEATOM(); // 763 J = PARTYPE(TYPE>>8)&15 #line 763 "regression-compile-tmp/check.imp" J = ((PARTYPE[(int)((((unsigned int)(TYPE)) >> (8)))]) & (15)); // 764 CLASS = 122; !EXP #line 764 "regression-compile-tmp/check.imp" CLASS = 122; // 765 ->ENTER %IF J = VAR #line 765 "regression-compile-tmp/check.imp" if (((J) != (9))) goto L_009a; #line 765 "regression-compile-tmp/check.imp" goto U_1007; #line 765 "regression-compile-tmp/check.imp" L_009a:; // 766 CLASS = 111; MODES = ADRMODES #line 766 "regression-compile-tmp/check.imp" CLASS = 111; #line 766 "regression-compile-tmp/check.imp" MODES = 1089470464; // 767 ->ENTER %IF J = REF #line 767 "regression-compile-tmp/check.imp" if (((J) != (8))) goto L_009b; #line 767 "regression-compile-tmp/check.imp" goto U_1007; #line 767 "regression-compile-tmp/check.imp" L_009b:; // 768 MODES = X'C0000000'>>J #line 768 "regression-compile-tmp/check.imp" MODES = (int)((((unsigned int)((-1073741824))) >> (J))); // 769 ->ENTER #line 769 "regression-compile-tmp/check.imp" goto U_1007; // 770 A(63): !AP #line 770 "regression-compile-tmp/check.imp" sw1_A_63:; // 771 J = NTYPE(NP); I = PARTYPE(J>>8) #line 771 "regression-compile-tmp/check.imp" J = NTYPE[(((int)(NP)) - (1))]; #line 771 "regression-compile-tmp/check.imp" I = PARTYPE[(int)((((unsigned int)(J)) >> (8)))]; // 772 LASTTYPE = TYPE; LASTVAL = VAL #line 772 "regression-compile-tmp/check.imp" LASTTYPE = TYPE; #line 772 "regression-compile-tmp/check.imp" LASTVAL = VAL; // 773 TYPE = I>>16+J&X'FF' #line 773 "regression-compile-tmp/check.imp" TYPE = ((((int)((((unsigned int)(I)) >> (16))))) + (((J) & (255)))); // 774 ->AP %IF ATOM = COMMA #line 774 "regression-compile-tmp/check.imp" if (((ATOM) != (10))) goto L_009c; #line 774 "regression-compile-tmp/check.imp" goto U_101f; #line 774 "regression-compile-tmp/check.imp" L_009c:; // 775 ->ERR %IF ATOM # RB #line 775 "regression-compile-tmp/check.imp" if (((ATOM) == (12))) goto L_009d; #line 775 "regression-compile-tmp/check.imp" goto U_1003; #line 775 "regression-compile-tmp/check.imp" L_009d:; // 776 VAL = NVAL(NP); NP = NP+1 #line 776 "regression-compile-tmp/check.imp" VAL = NVAL[(((int)(NP)) - (1))]; #line 776 "regression-compile-tmp/check.imp" NP = (((int)(NP)) + (1)); // 777 %IF TYPE&APPMASK # 0 %START #line 777 "regression-compile-tmp/check.imp" if (((((TYPE) & (65280))) == (0))) goto L_009e; // 778 TYPE = TYPE!!APPMASK #line 778 "regression-compile-tmp/check.imp" TYPE = ((TYPE) ^ (65280)); // 779 ->ERR %IF TYPE&X'FE00' # 0 #line 779 "regression-compile-tmp/check.imp" if (((((TYPE) & (65024))) == (0))) goto L_009f; #line 779 "regression-compile-tmp/check.imp" goto U_1003; #line 779 "regression-compile-tmp/check.imp" L_009f:; // 780 %FINISH #line 780 "regression-compile-tmp/check.imp" L_009e:; // 781 TYPE = TYPE&X'FFFC'!1 #line 781 "regression-compile-tmp/check.imp" TYPE = ((((TYPE) & (65532))) | (1)); // 782 CODE ATOM #line 782 "regression-compile-tmp/check.imp" CODEATOM(); // 783 ->EXIT #line 783 "regression-compile-tmp/check.imp" goto U_1008; // 784 A(16): !SIMP: STOP(0), RETURN(1), EXIT(2) #line 784 "regression-compile-tmp/check.imp" sw1_A_16:; // 785 FAULT(25) %IF (ATOMTYPE = 1 %AND C_BTYPE&15 # ROUTINE) %C #line 785 "regression-compile-tmp/check.imp" if (((ATOMTYPE) != (1))) goto L_00a0; #line 785 "regression-compile-tmp/check.imp" if (((((C.BTYPE) & (15))) != (6))) goto L_00a1; #line 785 "regression-compile-tmp/check.imp" L_00a0:; #line 785 "regression-compile-tmp/check.imp" if (((ATOMTYPE) != (2))) goto L_00a2; #line 785 "regression-compile-tmp/check.imp" if (((((((((C.STACK) ^ (1431655765))) << (1))) & (C.STACK))) != (0))) goto L_00a2; #line 785 "regression-compile-tmp/check.imp" L_00a1:; #line 785 "regression-compile-tmp/check.imp" FAULT(25); #line 785 "regression-compile-tmp/check.imp" L_00a2:; // 786 %OR (ATOMTYPE = 2 %AND (C_STACK!!X'55555555')<<1&C_STACK = 0) // 787 ->CODE #line 787 "regression-compile-tmp/check.imp" goto U_1004; // 788 A(54): !CYCLE #line 788 "regression-compile-tmp/check.imp" sw1_A_54:; // 789 CONDIND = 2 #line 789 "regression-compile-tmp/check.imp" CONDIND = 2; // 790 A(53): !START #line 790 "regression-compile-tmp/check.imp" sw1_A_53:; // 791 C_STACK = C_STACK<<2+CONDIND #line 791 "regression-compile-tmp/check.imp" C.STACK = (((int)(((C.STACK) << (2)))) + (CONDIND)); // 792 ->CODE #line 792 "regression-compile-tmp/check.imp" goto U_1004; // 793 A(55): !FINISH(1) #line 793 "regression-compile-tmp/check.imp" sw1_A_55:; // 794 A(56): !REPEAT(0) #line 794 "regression-compile-tmp/check.imp" sw1_A_56:; // 795 CONDIND = C_STACK&3 #line 795 "regression-compile-tmp/check.imp" CONDIND = ((C.STACK) & (3)); // 796 %IF CONDIND = 0 %OR (CONDIND!!ATOMTYPE)&1 # 0 %C #line 796 "regression-compile-tmp/check.imp" if (((CONDIND) == (0))) goto L_00a3; #line 796 "regression-compile-tmp/check.imp" if (((((((CONDIND) ^ (ATOMTYPE))) & (1))) == (0))) goto L_00a4; #line 796 "regression-compile-tmp/check.imp" L_00a3:; #line 796 "regression-compile-tmp/check.imp" FAULT((((int)(12)) + (ATOMTYPE))); #line 796 "regression-compile-tmp/check.imp" goto L_00a5; #line 796 "regression-compile-tmp/check.imp" L_00a4:; #line 796 "regression-compile-tmp/check.imp" C.STACK = (int)((((unsigned int)(C.STACK)) >> (2))); #line 796 "regression-compile-tmp/check.imp" L_00a5:; // 797 %THEN FAULT(12+ATOMTYPE) %C // 798 %ELSE C_STACK = C_STACK>>2 // 799 ->CODE #line 799 "regression-compile-tmp/check.imp" goto U_1004; // 800 A(52): !ELSE(1) #line 800 "regression-compile-tmp/check.imp" sw1_A_52:; // 801 FAULT(25) %IF CONDIND = 1 #line 801 "regression-compile-tmp/check.imp" if (((CONDIND) != (1))) goto L_00a6; #line 801 "regression-compile-tmp/check.imp" FAULT(25); #line 801 "regression-compile-tmp/check.imp" L_00a6:; // 802 A(26): !CWORD(3) #line 802 "regression-compile-tmp/check.imp" sw1_A_26:; // 803 A(51): !ON(1) #line 803 "regression-compile-tmp/check.imp" sw1_A_51:; // 804 CONDIND = ATOMTYPE #line 804 "regression-compile-tmp/check.imp" CONDIND = ATOMTYPE; // 805 ->CODE #line 805 "regression-compile-tmp/check.imp" goto U_1004; // 806 A(58): !END #line 806 "regression-compile-tmp/check.imp" sw1_A_58:; // 807 %IF LEVEL = 0 %OR (LEVEL=1 %AND C_BTYPE=0) %THEN FAULT(11) %C #line 807 "regression-compile-tmp/check.imp" if (((LEVEL) == (0))) goto L_00a7; #line 807 "regression-compile-tmp/check.imp" if (((LEVEL) != (1))) goto L_00a8; #line 807 "regression-compile-tmp/check.imp" if (((C.BTYPE) != (0))) goto L_00a8; #line 807 "regression-compile-tmp/check.imp" L_00a7:; #line 807 "regression-compile-tmp/check.imp" FAULT(11); #line 807 "regression-compile-tmp/check.imp" goto L_00a9; #line 807 "regression-compile-tmp/check.imp" L_00a8:; #line 807 "regression-compile-tmp/check.imp" POPCONTEXT(); #line 807 "regression-compile-tmp/check.imp" L_00a9:; // 808 %ELSE POP CONTEXT // 809 ->CODE #line 809 "regression-compile-tmp/check.imp" goto U_1004; // 810 A(59): !ENDPROG #line 810 "regression-compile-tmp/check.imp" sw1_A_59:; // 811 FPOS1 = FPOS #line 811 "regression-compile-tmp/check.imp" FPOS1 = FPOS; // 812 REPORT(8) %IF LEVEL > ATOMTYPE #line 812 "regression-compile-tmp/check.imp" if (((LEVEL) <= (ATOMTYPE))) goto L_00aa; #line 812 "regression-compile-tmp/check.imp" REPORT(8); #line 812 "regression-compile-tmp/check.imp" L_00aa:; // 813 REPORT(11) %IF LEVEL < ATOMTYPE #line 813 "regression-compile-tmp/check.imp" if (((LEVEL) >= (ATOMTYPE))) goto L_00ab; #line 813 "regression-compile-tmp/check.imp" REPORT(11); #line 813 "regression-compile-tmp/check.imp" L_00ab:; // 814 POP CONTEXT %WHILE LEVEL > 0 #line 814 "regression-compile-tmp/check.imp" L_00ac:; #line 814 "regression-compile-tmp/check.imp" if (((LEVEL) <= (0))) goto L_00ad; #line 814 "regression-compile-tmp/check.imp" POPCONTEXT(); #line 814 "regression-compile-tmp/check.imp" goto L_00ac; #line 814 "regression-compile-tmp/check.imp" L_00ad:; // 815 TIME2 = CPUTIME #line 815 "regression-compile-tmp/check.imp" TIME2 = _imp_CPUTIME(); // 816 ->ENDOK #line 816 "regression-compile-tmp/check.imp" goto U_1020; // 817 ENDED: #line 817 "regression-compile-tmp/check.imp" U_1001:; // 818 TIME2 = CPUTIME #line 818 "regression-compile-tmp/check.imp" TIME2 = _imp_CPUTIME(); // 819 PRINT STRING("** END OF FILE AT LINE"); WRITE(NEXTLINE,1) #line 819 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("** END OF FILE AT LINE")); #line 819 "regression-compile-tmp/check.imp" _imp_WRITE(NEXTLINE, 1); // 820 NEWLINE #line 820 "regression-compile-tmp/check.imp" _imp_NEWLINE(); // 821 ENDOK: #line 821 "regression-compile-tmp/check.imp" U_1020:; // 822 %IF PARM&4 # 0 %START #line 822 "regression-compile-tmp/check.imp" if (((((*PARM) & (4))) == (0))) goto L_00af; // 823 WRITE(LINE,4); PRINTSYMBOL('L') #line 823 "regression-compile-tmp/check.imp" _imp_WRITE(LINE, 4); #line 823 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(76); // 824 WRITE(STATS,4); PRINT SYMBOL('S') #line 824 "regression-compile-tmp/check.imp" _imp_WRITE(STATS, 4); #line 824 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(83); // 825 STATS = 1 %IF STATS = 0 #line 825 "regression-compile-tmp/check.imp" if (((STATS) != (0))) goto L_00b0; #line 825 "regression-compile-tmp/check.imp" STATS = 1; #line 825 "regression-compile-tmp/check.imp" L_00b0:; // 826 PRINT(ATOMS/STATS,2,1); PRINT SYMBOL('A') #line 826 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)((float)(ATOMS)) / (double)((float)(STATS)))), 2, 1); #line 826 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(65); // 827 PRINT(NUMBERS/STATS,2,1); PRINT SYMBOL('N') #line 827 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)((float)(NUMBERS)) / (double)((float)(STATS)))), 2, 1); #line 827 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(78); // 828 PRINT(IDENTIFIERS/STATS,2,1); PRINT SYMBOL('I') #line 828 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)((float)(IDENTIFIERS)) / (double)((float)(STATS)))), 2, 1); #line 828 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(73); // 829 PRINT(LOOPS/STATS,2,1); PRINT SYMBOL('C') #line 829 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)((float)(LOOPS)) / (double)((float)(STATS)))), 2, 1); #line 829 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(67); // 830 PRINT(TIMES/LOOKS,2,1); PRINT SYMBOL('H') #line 830 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)((float)(TIMES)) / (double)((float)(LOOKS)))), 2, 1); #line 830 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(72); /*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(TIME2)) - (TIME1)) - 0 bytes) detected at ast.c line 108 */ // 831 PRINT((TIME2-TIME1)*1000/STATS,3,3); PRINT SYMBOL('M') #line 831 "regression-compile-tmp/check.imp" _imp_PRINT(((double)((double)(((((((double)(TIME2)) - (TIME1))) * ((1000))))) / (double)((float)(STATS)))), 3, 3); #line 831 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(77); // 832 NEWLINE #line 832 "regression-compile-tmp/check.imp" _imp_NEWLINE(); // 833 %FINISH #line 833 "regression-compile-tmp/check.imp" L_00af:; // 834 %IF PARM&8 # 0 %START #line 834 "regression-compile-tmp/check.imp" if (((((*PARM) & (8))) == (0))) goto L_00b1; // 835 %CYCLE I = 0,1,255 #line 835 "regression-compile-tmp/check.imp" I = (-1); if ((((255)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 255"); L_00b2:; if (I == 255) goto L_00b3; I += 1; // 836 J = INDEX(I) #line 836 "regression-compile-tmp/check.imp" J = INDEX[I]; // 837 %IF J > 0 %START #line 837 "regression-compile-tmp/check.imp" if (((J) <= (0))) goto L_00b5; // 838 WRITE(I,3); PRINT SYMBOL(':') #line 838 "regression-compile-tmp/check.imp" _imp_WRITE(I, 3); #line 838 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(58); // 839 %WHILE J > 0 %CYCLE #line 839 "regression-compile-tmp/check.imp" L_00b6:; #line 839 "regression-compile-tmp/check.imp" if (((J) <= (0))) goto L_00b7; // 840 SPACE; PRINT STRING(STRING(J+12)) #line 840 "regression-compile-tmp/check.imp" _imp_SPACE(); #line 840 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(*_imp_STRING((((int)(J)) + (12)))); // 841 J = INTEGER(J+8) #line 841 "regression-compile-tmp/check.imp" J = *_imp_INTEGER((((int)(J)) + (8))); // 842 %REPEAT #line 842 "regression-compile-tmp/check.imp" goto L_00b6; #line 842 "regression-compile-tmp/check.imp" L_00b7:; // 843 NEWLINE #line 843 "regression-compile-tmp/check.imp" _imp_NEWLINE(); // 844 %FINISH #line 844 "regression-compile-tmp/check.imp" L_00b5:; // 845 %REPEAT #line 845 "regression-compile-tmp/check.imp" goto L_00b2; #line 845 "regression-compile-tmp/check.imp" L_00b3:; // 846 %FINISH #line 846 "regression-compile-tmp/check.imp" L_00b1:; // 847 %RETURN #line 847 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; // 848 // 849 ! // 850 // 851 %ROUTINE PRINT SS #line 851 "regression-compile-tmp/check.imp" void PRINTSS( void ) #line 851 "regression-compile-tmp/check.imp" { // 852 {%SHORTROUTINE} // 853 %INTEGER K #line 853 "regression-compile-tmp/check.imp" int K; // 854 %ROUTINE WRITE(%INTEGER V,P) #line 854 "regression-compile-tmp/check.imp" void WRITE( int V, int P ) #line 854 "regression-compile-tmp/check.imp" { // 855 %IF V >= 10 %START #line 855 "regression-compile-tmp/check.imp" if (((V) < (10))) goto L_00b9; // 856 WRITE(V//10,P-1); V = V-10*(V//10) #line 856 "regression-compile-tmp/check.imp" WRITE(((long)((long)((int)(V)) / (long)((int)(10)))), (((int)(P)) - (1))); #line 856 "regression-compile-tmp/check.imp" V = ((V) - ((int)(((10) * (((long)((long)((int)(V)) / (long)((int)(10))))))))); // 857 %FINISH %ELSE SPACES(P-1) #line 857 "regression-compile-tmp/check.imp" goto L_00ba; #line 857 "regression-compile-tmp/check.imp" L_00b9:; #line 857 "regression-compile-tmp/check.imp" _imp_SPACES((((int)(P)) - (1))); #line 857 "regression-compile-tmp/check.imp" L_00ba:; // 858 PRINT SYMBOL(V+'0') #line 858 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL((((int)(V)) + (48))); // 859 %END #line 859 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block WRITE at level 3 // 860 WRITE(LINE,4); SPACE #line 860 "regression-compile-tmp/check.imp" WRITE(LINE, 4); #line 860 "regression-compile-tmp/check.imp" _imp_SPACE(); // 861 PRINTPOS = LINEBASE #line 861 "regression-compile-tmp/check.imp" PRINTPOS = LINEBASE; // 862 {%UNTIL PRINTPOS = FPOS1} %CYCLE #line 862 "regression-compile-tmp/check.imp" L_00bb:; // 863 PRINTPOS = PRINTPOS+1 #line 863 "regression-compile-tmp/check.imp" PRINTPOS = (((int)(PRINTPOS)) + (1)); // 864 PRINT SYMBOL(MARKER) %IF PRINTPOS = FAULTPOS #line 864 "regression-compile-tmp/check.imp" if (((PRINTPOS) != (FAULTPOS))) goto L_00be; #line 864 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(124); #line 864 "regression-compile-tmp/check.imp" L_00be:; // 865 K = BYTEINTEGER(PRINTPOS) #line 865 "regression-compile-tmp/check.imp" K = *_imp_BYTEINTEGER(PRINTPOS); // 866 %IF K = NL %OR 32 <= K <= 126 %THEN PRINT SYMBOL(K) %C #line 866 "regression-compile-tmp/check.imp" if (((K) == (10))) goto L_00b4; #line 866 "regression-compile-tmp/check.imp" if ((((32) > (K))) || (((K) > (126)))) goto L_00bf; #line 866 "regression-compile-tmp/check.imp" L_00b4:; #line 866 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(K); #line 866 "regression-compile-tmp/check.imp" goto L_00c0; #line 866 "regression-compile-tmp/check.imp" L_00bf:; #line 866 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(91); #line 866 "regression-compile-tmp/check.imp" WRITE(K, 0); #line 866 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(93); #line 866 "regression-compile-tmp/check.imp" L_00c0:; // 867 %ELSE PRINT SYMBOL('[') %AND WRITE(K,0) %AND PRINT SYMBOL(']') // 868 %REPEAT %UNTIL PRINTPOS = FPOS1 #line 868 "regression-compile-tmp/check.imp" if (((PRINTPOS) == (FPOS1))) goto L_00bc; #line 868 "regression-compile-tmp/check.imp" goto L_00bb; #line 868 "regression-compile-tmp/check.imp" L_00bc:; // 869 NEWLINE %IF K # NL #line 869 "regression-compile-tmp/check.imp" if (((K) == (10))) goto L_00c1; #line 869 "regression-compile-tmp/check.imp" _imp_NEWLINE(); #line 869 "regression-compile-tmp/check.imp" L_00c1:; // 870 %END #line 870 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTSS at level 2 // 871 // 872 %ROUTINE REPORT(%INTEGER N) #line 872 "regression-compile-tmp/check.imp" void REPORT( int N ) #line 872 "regression-compile-tmp/check.imp" { // 873 {%SHORTROUTINE} // 874 %SWITCH S(0:25) #line 874 "regression-compile-tmp/check.imp" static int sw3_S_idx; static const void * /*SWITCH*/ sw3_S[26] = { &&sw3_S_0, &&sw3_S_1, &&sw3_S_2, &&sw3_S_3, &&sw3_S_4, &&sw3_S_5, &&sw3_S_6, &&sw3_S_7, &&sw3_S_8, &&sw3_S_9, &&sw3_S_10, &&sw3_S_11, &&sw3_S_12, &&sw3_S_13, &&sw3_S_14, &&sw3_S_15, &&sw3_S_16, &&sw3_S_17, &&sw3_S_18, &&sw3_S_19, &&sw3_S_20, &&sw3_S_21, &&sw3_S_22, &&sw3_S_23, &&sw3_S_24, &&sw3_S_25, }; // 875 FAULTPOS = 0 %IF N > 7 #line 875 "regression-compile-tmp/check.imp" if (((N) <= (7))) goto L_00c2; #line 875 "regression-compile-tmp/check.imp" FAULTPOS = 0; #line 875 "regression-compile-tmp/check.imp" L_00c2:; // 876 PRINT SS %IF PRINTPOS # FPOS1 #line 876 "regression-compile-tmp/check.imp" if (((PRINTPOS) == (FPOS1))) goto L_00c3; #line 876 "regression-compile-tmp/check.imp" PRINTSS(); #line 876 "regression-compile-tmp/check.imp" L_00c3:; // 877 PRINT SYMBOL('*') #line 877 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(42); // 878 ->S(N) #line 878 "regression-compile-tmp/check.imp" sw3_S_idx = N; if ((0 <= sw3_S_idx) && (sw3_S_idx <= 25)) goto *sw3_S[sw3_S_idx]; else { /*_imp_signal(8, 2, sw3_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 0:25 at %s:%d\n", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 879 S(0): PRINT STRING("FORM?"); ->F #line 879 "regression-compile-tmp/check.imp" sw3_S_0:; #line 879 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("FORM?")); #line 879 "regression-compile-tmp/check.imp" goto U_1021; // 880 S(1): PRINT STRING("ATOM?"); ->F #line 880 "regression-compile-tmp/check.imp" sw3_S_1:; #line 880 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("ATOM?")); #line 880 "regression-compile-tmp/check.imp" goto U_1021; // 881 S(2): PRINT STRING("NAME?"); ->F #line 881 "regression-compile-tmp/check.imp" sw3_S_2:; #line 881 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("NAME?")); #line 881 "regression-compile-tmp/check.imp" goto U_1021; // 882 S(3): PRINT STRING("MODE?"); ->F #line 882 "regression-compile-tmp/check.imp" sw3_S_3:; #line 882 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("MODE?")); #line 882 "regression-compile-tmp/check.imp" goto U_1021; // 883 S(4): PRINT STRING("SIZE?"); ->F #line 883 "regression-compile-tmp/check.imp" sw3_S_4:; #line 883 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("SIZE?")); #line 883 "regression-compile-tmp/check.imp" goto U_1021; // 884 S(11):PRINT STRING("%BEGIN"); ->M #line 884 "regression-compile-tmp/check.imp" sw3_S_11:; #line 884 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%BEGIN")); #line 884 "regression-compile-tmp/check.imp" goto U_1022; // 885 S(12):PRINT STRING("%CYCLE"); ->M #line 885 "regression-compile-tmp/check.imp" sw3_S_12:; #line 885 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%CYCLE")); #line 885 "regression-compile-tmp/check.imp" goto U_1022; // 886 S(13):PRINT STRING("%START"); ->M #line 886 "regression-compile-tmp/check.imp" sw3_S_13:; #line 886 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%START")); #line 886 "regression-compile-tmp/check.imp" goto U_1022; // 887 S(8): PRINT STRING("%END"); ->M #line 887 "regression-compile-tmp/check.imp" sw3_S_8:; #line 887 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%END")); #line 887 "regression-compile-tmp/check.imp" goto U_1022; // 888 S(9): PRINT STRING("%REPEAT"); ->M #line 888 "regression-compile-tmp/check.imp" sw3_S_9:; #line 888 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%REPEAT")); #line 888 "regression-compile-tmp/check.imp" goto U_1022; // 889 S(10):PRINT STRING("%FINISH"); ->M #line 889 "regression-compile-tmp/check.imp" sw3_S_10:; #line 889 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("%FINISH")); #line 889 "regression-compile-tmp/check.imp" goto U_1022; // 890 S(15): PRINT SYMBOL('''') #line 890 "regression-compile-tmp/check.imp" sw3_S_15:; #line 890 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(39); // 891 PRINT STRING(STRING(DPOS+12)) #line 891 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(*_imp_STRING((((int)(DPOS)) + (12)))); // 892 PRINT SYMBOL('''') #line 892 "regression-compile-tmp/check.imp" _imp_PRINTSYMBOL(39); // 893 M: PRINT STRING(" MISSING"); ->F #line 893 "regression-compile-tmp/check.imp" U_1022:; #line 893 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal(" MISSING")); #line 893 "regression-compile-tmp/check.imp" goto U_1021; // 894 S(23):PRINT STRING("BOUNDS?"); ->F #line 894 "regression-compile-tmp/check.imp" sw3_S_23:; #line 894 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("BOUNDS?")); #line 894 "regression-compile-tmp/check.imp" goto U_1021; // 895 S(25):PRINT STRING("CONTEXT?"); ->F #line 895 "regression-compile-tmp/check.imp" sw3_S_25:; #line 895 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("CONTEXT?")); #line 895 "regression-compile-tmp/check.imp" goto U_1021; // 896 S(5): #line 896 "regression-compile-tmp/check.imp" sw3_S_5:; // 897 S(16):PRINT STRING("DUPLICATE"); ->F #line 897 "regression-compile-tmp/check.imp" sw3_S_16:; #line 897 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("DUPLICATE")); #line 897 "regression-compile-tmp/check.imp" goto U_1021; // 898 S(17):PRINT STRING("ORDER?"); ->F #line 898 "regression-compile-tmp/check.imp" sw3_S_17:; #line 898 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("ORDER?")); #line 898 "regression-compile-tmp/check.imp" goto U_1021; // 899 S(18):PRINT STRING("MATCH?"); ->F #line 899 "regression-compile-tmp/check.imp" sw3_S_18:; #line 899 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("MATCH?")); #line 899 "regression-compile-tmp/check.imp" goto U_1021; // 900 S(19):PRINT STRING("RANGE?"); ->F #line 900 "regression-compile-tmp/check.imp" sw3_S_19:; #line 900 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("RANGE?")); #line 900 "regression-compile-tmp/check.imp" goto U_1021; // 901 S(20):PRINT STRING("LITERAL?"); ->F #line 901 "regression-compile-tmp/check.imp" sw3_S_20:; #line 901 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("LITERAL?")); #line 901 "regression-compile-tmp/check.imp" goto U_1021; // 902 S(21): %IF CONSTCOUNT < 0 %START #line 902 "regression-compile-tmp/check.imp" sw3_S_21:; #line 902 "regression-compile-tmp/check.imp" if (((CONSTCOUNT) >= (0))) goto L_00c4; // 903 WRITE(-CONSTCOUNT,1); PRINT STRING(" EXTRA") #line 903 "regression-compile-tmp/check.imp" _imp_WRITE((-(CONSTCOUNT)), 1); #line 903 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal(" EXTRA")); // 904 %FINISH %ELSE %START #line 904 "regression-compile-tmp/check.imp" goto L_00c5; #line 904 "regression-compile-tmp/check.imp" L_00c4:; // 905 WRITE(CONSTCOUNT,1); PRINT STRING(" MISSING") #line 905 "regression-compile-tmp/check.imp" _imp_WRITE(CONSTCOUNT, 1); #line 905 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal(" MISSING")); // 906 %FINISH #line 906 "regression-compile-tmp/check.imp" L_00c5:; // 907 PRINT STRING(" VALUE(S)"); ->F #line 907 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal(" VALUE(S)")); #line 907 "regression-compile-tmp/check.imp" goto U_1021; // 908 S(22):PRINT STRING("TYPE?"); ->F #line 908 "regression-compile-tmp/check.imp" sw3_S_22:; #line 908 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal("TYPE?")); #line 908 "regression-compile-tmp/check.imp" goto U_1021; // 909 F: NEWLINE #line 909 "regression-compile-tmp/check.imp" U_1021:; #line 909 "regression-compile-tmp/check.imp" _imp_NEWLINE(); // 910 FAULTNUM = -1; PARM = PARM!X'80000000' #line 910 "regression-compile-tmp/check.imp" FAULTNUM = (-1); #line 910 "regression-compile-tmp/check.imp" *PARM = ((*PARM) | ((-2147483648))); // 911 %END #line 911 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; sw3_S_6:; sw3_S_7:; sw3_S_14:; sw3_S_24:; /*_imp_signal(6,3,sw3_S_idx,"SWITCH LABEL NOT SET - sw3_S");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_S(%d): at line %s:%d", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block REPORT at level 2 // 912 // 913 %ROUTINE CODE ATOM #line 913 "regression-compile-tmp/check.imp" void CODEATOM( void ) #line 913 "regression-compile-tmp/check.imp" { // 914 {%SHORTROUTINE} // 915 {%REGISTER} %INTEGER FP{(5)}; !FILE POS #line 915 "regression-compile-tmp/check.imp" int FP; // 916 {%REGISTER} %INTEGER SC{(6)}; !SYMCODE OR SYM #line 916 "regression-compile-tmp/check.imp" int SC; // 917 %INTEGER I,J,K,L #line 917 "regression-compile-tmp/check.imp" int I; #line 917 "regression-compile-tmp/check.imp" int J; #line 917 "regression-compile-tmp/check.imp" int K; #line 917 "regression-compile-tmp/check.imp" int L; // 918 %INTEGER HASH #line 918 "regression-compile-tmp/check.imp" int HASH; // 919 // 920 ATOMS = ATOMS+1 #line 920 "regression-compile-tmp/check.imp" ATOMS = (((int)(ATOMS)) + (1)); // 921 FP = FPOS; SC = SYMCODE #line 921 "regression-compile-tmp/check.imp" FP = FPOS; #line 921 "regression-compile-tmp/check.imp" SC = SYMCODE; // 922 ->C2 %IF SC # 0 #line 922 "regression-compile-tmp/check.imp" if (((SC) == (0))) goto L_00c6; #line 922 "regression-compile-tmp/check.imp" goto U_1023; #line 922 "regression-compile-tmp/check.imp" L_00c6:; // 923 C1: {%UNTIL SC # ' '} %CYCLE #line 923 "regression-compile-tmp/check.imp" U_1024:; #line 923 "regression-compile-tmp/check.imp" L_00c7:; // 924 FP = FP+1; SC = BYTEINTEGER(FP) #line 924 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 924 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 925 %REPEAT %UNTIL SC # ' ' #line 925 "regression-compile-tmp/check.imp" if (((SC) != (32))) goto L_00c8; #line 925 "regression-compile-tmp/check.imp" goto L_00c7; #line 925 "regression-compile-tmp/check.imp" L_00c8:; // 926 SC = SYMINIT(SC) #line 926 "regression-compile-tmp/check.imp" SC = SYMINIT[SC]; // 927 C2: FPOS1 = FP #line 927 "regression-compile-tmp/check.imp" U_1023:; #line 927 "regression-compile-tmp/check.imp" FPOS1 = FP; // 928 ->NAMENUM %IF SC < 127 #line 928 "regression-compile-tmp/check.imp" if (((SC) >= (127))) goto L_00ca; #line 928 "regression-compile-tmp/check.imp" goto U_1025; #line 928 "regression-compile-tmp/check.imp" L_00ca:; // 929 SC = SC-128 #line 929 "regression-compile-tmp/check.imp" SC = (((int)(SC)) - (128)); // 930 ->KEYWORD %IF SC > 0 #line 930 "regression-compile-tmp/check.imp" if (((SC) <= (0))) goto L_00cb; #line 930 "regression-compile-tmp/check.imp" goto U_1026; #line 930 "regression-compile-tmp/check.imp" L_00cb:; // 931 ->QUOTEMARK %IF SC # 0 #line 931 "regression-compile-tmp/check.imp" if (((SC) == (0))) goto L_00cc; #line 931 "regression-compile-tmp/check.imp" goto U_1027; #line 931 "regression-compile-tmp/check.imp" L_00cc:; // 932 !PERCENT // 933 FP = FP+1; SC = SYMINIT(BYTEINTEGER(FP)!128) #line 933 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 933 "regression-compile-tmp/check.imp" SC = SYMINIT[((*_imp_BYTEINTEGER(FP)) | (128))]; // 934 ->C2 %IF SC # 0 #line 934 "regression-compile-tmp/check.imp" if (((SC) == (0))) goto L_00cd; #line 934 "regression-compile-tmp/check.imp" goto U_1023; #line 934 "regression-compile-tmp/check.imp" L_00cd:; // 935 ->C1 #line 935 "regression-compile-tmp/check.imp" goto U_1024; // 936 // 937 !LOCATE ATOM IN FIXED DICT // 938 !KEYDICT := MORE<5> : LINK<9> : SYM-32<6> // 939 ! OR CLASS<7> : 0<6> // 940 ! THEN SUBCLASS<16> // 941 KEYWORD: #line 941 "regression-compile-tmp/check.imp" U_1026:; // 942 ->NLQ %IF SC >= SKIPMIN; !NL OR EQUIVALENT #line 942 "regression-compile-tmp/check.imp" if (((SC) < (SKIPMIN))) goto L_00ce; #line 942 "regression-compile-tmp/check.imp" goto U_1028; #line 942 "regression-compile-tmp/check.imp" L_00ce:; // 943 I = SC; L = 0; L = 128 %IF SC < PUNCTMIN #line 943 "regression-compile-tmp/check.imp" I = SC; #line 943 "regression-compile-tmp/check.imp" L = 0; #line 943 "regression-compile-tmp/check.imp" if (((SC) >= (43))) goto L_00cf; #line 943 "regression-compile-tmp/check.imp" L = 128; #line 943 "regression-compile-tmp/check.imp" L_00cf:; // 944 %CYCLE #line 944 "regression-compile-tmp/check.imp" L_00d0:; // 945 %CYCLE #line 945 "regression-compile-tmp/check.imp" L_00d3:; // 946 FP = FP+1; K = BYTEINTEGER(FP) #line 946 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 946 "regression-compile-tmp/check.imp" K = *_imp_BYTEINTEGER(FP); // 947 SC = SYMINIT(K!L) #line 947 "regression-compile-tmp/check.imp" SC = SYMINIT[((K) | (L))]; // 948 %EXIT %IF SC&127 # 0 #line 948 "regression-compile-tmp/check.imp" if (((((SC) & (127))) == (0))) goto L_00d6; #line 948 "regression-compile-tmp/check.imp" goto L_00d4; #line 948 "regression-compile-tmp/check.imp" L_00d6:; // 949 L = SC #line 949 "regression-compile-tmp/check.imp" L = SC; // 950 %REPEAT #line 950 "regression-compile-tmp/check.imp" goto L_00d3; #line 950 "regression-compile-tmp/check.imp" L_00d4:; // 951 K = K-32 %IF SC&128 # 0 #line 951 "regression-compile-tmp/check.imp" if (((((SC) & (128))) == (0))) goto L_00d7; #line 951 "regression-compile-tmp/check.imp" K = (((int)(K)) - (32)); #line 951 "regression-compile-tmp/check.imp" L_00d7:; // 952 %CYCLE #line 952 "regression-compile-tmp/check.imp" L_00d8:; // 953 J = KEYDICT(I) #line 953 "regression-compile-tmp/check.imp" J = KEYDICT[I]; // 954 %EXIT %IF J >= 0 %OR J&63 = K #line 954 "regression-compile-tmp/check.imp" if (((J) >= (0))) goto L_00db; #line 954 "regression-compile-tmp/check.imp" if (((((J) & (63))) != (K))) goto L_00dc; #line 954 "regression-compile-tmp/check.imp" L_00db:; #line 954 "regression-compile-tmp/check.imp" goto L_00d9; #line 954 "regression-compile-tmp/check.imp" L_00dc:; // 955 I = I+1 #line 955 "regression-compile-tmp/check.imp" I = (((int)(I)) + (1)); // 956 %REPEAT #line 956 "regression-compile-tmp/check.imp" goto L_00d8; #line 956 "regression-compile-tmp/check.imp" L_00d9:; // 957 %EXIT %IF J&63 # K #line 957 "regression-compile-tmp/check.imp" if (((((J) & (63))) == (K))) goto L_00dd; #line 957 "regression-compile-tmp/check.imp" goto L_00d1; #line 957 "regression-compile-tmp/check.imp" L_00dd:; // 958 I = J>>6&511 #line 958 "regression-compile-tmp/check.imp" I = (((int)((((unsigned int)(J)) >> (6)))) & (511)); // 959 %REPEAT #line 959 "regression-compile-tmp/check.imp" goto L_00d0; #line 959 "regression-compile-tmp/check.imp" L_00d1:; // 960 ->ERR %IF J&63 # 0 #line 960 "regression-compile-tmp/check.imp" if (((((J) & (63))) == (0))) goto L_00de; #line 960 "regression-compile-tmp/check.imp" goto U_1029; #line 960 "regression-compile-tmp/check.imp" L_00de:; // 961 ATOMTYPE = KEYDICT(I+1)&X'FFFF' #line 961 "regression-compile-tmp/check.imp" ATOMTYPE = ((KEYDICT[(((int)(I)) + (1))]) & (65535)); // 962 ATOM = J>>6 #line 962 "regression-compile-tmp/check.imp" ATOM = (int)((((unsigned int)(J)) >> (6))); // 963 ->KEY5 %IF ATOM = 0 #line 963 "regression-compile-tmp/check.imp" if (((ATOM) != (0))) goto L_00df; #line 963 "regression-compile-tmp/check.imp" goto U_102a; #line 963 "regression-compile-tmp/check.imp" L_00df:; // 964 FIN:FPOS = FP; SYMCODE = SC #line 964 "regression-compile-tmp/check.imp" U_102b:; #line 964 "regression-compile-tmp/check.imp" FPOS = FP; #line 964 "regression-compile-tmp/check.imp" SYMCODE = SC; // 965 %RETURN #line 965 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; // 966 KEY5: #line 966 "regression-compile-tmp/check.imp" U_102a:; // 967 %IF ATOMTYPE # 0 %START; !%COMMENT #line 967 "regression-compile-tmp/check.imp" if (((ATOMTYPE) == (0))) goto L_00e0; // 968 ->FIN %IF SKIPMIN # SKIP1MIN #line 968 "regression-compile-tmp/check.imp" if (((SKIPMIN) == (86))) goto L_00e1; #line 968 "regression-compile-tmp/check.imp" goto U_102b; #line 968 "regression-compile-tmp/check.imp" L_00e1:; // 969 ->SKP #line 969 "regression-compile-tmp/check.imp" goto U_102c; // 970 %FINISH #line 970 "regression-compile-tmp/check.imp" L_00e0:; // 971 ->ERR %UNLESS BYTEINTEGER(FP) = NL #line 971 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER(FP)) == (10))) goto L_00e2; #line 971 "regression-compile-tmp/check.imp" goto U_1029; #line 971 "regression-compile-tmp/check.imp" L_00e2:; // 972 NEXTLINE = NEXTLINE+1 #line 972 "regression-compile-tmp/check.imp" NEXTLINE = (((int)(NEXTLINE)) + (1)); // 973 ->TERM %IF FP >= FMAX #line 973 "regression-compile-tmp/check.imp" if (((FP) < (FMAX))) goto L_00e3; #line 973 "regression-compile-tmp/check.imp" goto U_102d; #line 973 "regression-compile-tmp/check.imp" L_00e3:; // 974 ->C1 #line 974 "regression-compile-tmp/check.imp" goto U_1024; // 975 // 976 NLQ: #line 976 "regression-compile-tmp/check.imp" U_1028:; // 977 ->TERM %IF SKIPMIN # SKIP1MIN; !NOT LEADING ATOM #line 977 "regression-compile-tmp/check.imp" if (((SKIPMIN) == (86))) goto L_00e4; #line 977 "regression-compile-tmp/check.imp" goto U_102d; #line 977 "regression-compile-tmp/check.imp" L_00e4:; // 978 SKP: #line 978 "regression-compile-tmp/check.imp" U_102c:; // 979 FP = FP-1 #line 979 "regression-compile-tmp/check.imp" FP = (((int)(FP)) - (1)); // 980 {%UNTIL SC = NL %OR SC = ';'} %CYCLE #line 980 "regression-compile-tmp/check.imp" L_00e5:; // 981 FP = FP+1; SC = BYTEINTEGER(FP) #line 981 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 981 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 982 %REPEAT %UNTIL SC = NL %OR SC = ';' #line 982 "regression-compile-tmp/check.imp" if (((SC) == (10))) goto L_00e6; #line 982 "regression-compile-tmp/check.imp" if (((SC) == (59))) goto L_00e6; #line 982 "regression-compile-tmp/check.imp" goto L_00e5; #line 982 "regression-compile-tmp/check.imp" L_00e6:; // 983 %IF SC = NL %START #line 983 "regression-compile-tmp/check.imp" if (((SC) != (10))) goto L_00e8; // 984 ->TERM %IF FP >= FMAX #line 984 "regression-compile-tmp/check.imp" if (((FP) < (FMAX))) goto L_00e9; #line 984 "regression-compile-tmp/check.imp" goto U_102d; #line 984 "regression-compile-tmp/check.imp" L_00e9:; // 985 LINEBASE = FP; NEXTLINE = NEXTLINE+1; LINE = NEXTLINE #line 985 "regression-compile-tmp/check.imp" LINEBASE = FP; #line 985 "regression-compile-tmp/check.imp" NEXTLINE = (((int)(NEXTLINE)) + (1)); #line 985 "regression-compile-tmp/check.imp" LINE = NEXTLINE; // 986 %FINISH #line 986 "regression-compile-tmp/check.imp" L_00e8:; // 987 ->C1 #line 987 "regression-compile-tmp/check.imp" goto U_1024; // 988 // 989 TERM: #line 989 "regression-compile-tmp/check.imp" U_102d:; // 990 ATOM = TERMINATOR; ATOMTYPE = 0 #line 990 "regression-compile-tmp/check.imp" ATOM = 13; #line 990 "regression-compile-tmp/check.imp" ATOMTYPE = 0; // 991 NEXTLINE = NEXTLINE+1; SC = 0 #line 991 "regression-compile-tmp/check.imp" NEXTLINE = (((int)(NEXTLINE)) + (1)); #line 991 "regression-compile-tmp/check.imp" SC = 0; // 992 SC = 255 %IF FP >= FMAX #line 992 "regression-compile-tmp/check.imp" if (((FP) < (FMAX))) goto L_00ea; #line 992 "regression-compile-tmp/check.imp" SC = 255; #line 992 "regression-compile-tmp/check.imp" L_00ea:; // 993 ->FIN #line 993 "regression-compile-tmp/check.imp" goto U_102b; // 994 // 995 DISASTER: #line 995 "regression-compile-tmp/check.imp" U_102e:; // 996 ATOMTYPE = 99 #line 996 "regression-compile-tmp/check.imp" ATOMTYPE = 99; // 997 ->ER1 #line 997 "regression-compile-tmp/check.imp" goto U_102f; // 998 STRINGERR: #line 998 "regression-compile-tmp/check.imp" U_1030:; // 999 ATOMTYPE = 4; NEXTLINE = L #line 999 "regression-compile-tmp/check.imp" ATOMTYPE = 4; #line 999 "regression-compile-tmp/check.imp" NEXTLINE = L; // 1000 ER1:FP = FPOS1; SC = 0 #line 1000 "regression-compile-tmp/check.imp" U_102f:; #line 1000 "regression-compile-tmp/check.imp" FP = FPOS1; #line 1000 "regression-compile-tmp/check.imp" SC = 0; // 1001 ->ER2 #line 1001 "regression-compile-tmp/check.imp" goto U_1031; // 1002 ERR:ATOMTYPE = 1 #line 1002 "regression-compile-tmp/check.imp" U_1029:; #line 1002 "regression-compile-tmp/check.imp" ATOMTYPE = 1; // 1003 ER2:ATOM = 0 #line 1003 "regression-compile-tmp/check.imp" U_1031:; #line 1003 "regression-compile-tmp/check.imp" ATOM = 0; // 1004 ->FIN #line 1004 "regression-compile-tmp/check.imp" goto U_102b; // 1005 // 1006 NAMENUM: #line 1006 "regression-compile-tmp/check.imp" U_1025:; // 1007 ->NUMBER %IF SC <= '9' %AND ATOM # JUMP #line 1007 "regression-compile-tmp/check.imp" if (((SC) > (57))) goto L_00eb; #line 1007 "regression-compile-tmp/check.imp" if (((ATOM) == (15))) goto L_00eb; #line 1007 "regression-compile-tmp/check.imp" goto U_1032; #line 1007 "regression-compile-tmp/check.imp" L_00eb:; // 1008 %IF BYTEINTEGER(FP+1) = '''' %START #line 1008 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER((((int)(FP)) + (1)))) != (39))) goto L_00ec; // 1009 ->HEX %IF SC = 'X' #line 1009 "regression-compile-tmp/check.imp" if (((SC) != (88))) goto L_00ed; #line 1009 "regression-compile-tmp/check.imp" goto U_1033; #line 1009 "regression-compile-tmp/check.imp" L_00ed:; // 1010 ->OCT %IF SC = 'K' #line 1010 "regression-compile-tmp/check.imp" if (((SC) != (75))) goto L_00ee; #line 1010 "regression-compile-tmp/check.imp" goto U_1034; #line 1010 "regression-compile-tmp/check.imp" L_00ee:; // 1011 ->BIN %IF SC = 'B' #line 1011 "regression-compile-tmp/check.imp" if (((SC) != (66))) goto L_00ef; #line 1011 "regression-compile-tmp/check.imp" goto U_1035; #line 1011 "regression-compile-tmp/check.imp" L_00ef:; // 1012 ->MULTI %IF SC = 'M' #line 1012 "regression-compile-tmp/check.imp" if (((SC) != (77))) goto L_00f0; #line 1012 "regression-compile-tmp/check.imp" goto U_1036; #line 1012 "regression-compile-tmp/check.imp" L_00f0:; // 1013 %FINISH #line 1013 "regression-compile-tmp/check.imp" L_00ec:; // 1014 J = DLIM; ->DISASTER %IF J+84 >= DBOUND #line 1014 "regression-compile-tmp/check.imp" J = DLIM; #line 1014 "regression-compile-tmp/check.imp" if ((((((int)(J)) + (84))) < (DBOUND))) goto L_00f1; #line 1014 "regression-compile-tmp/check.imp" goto U_102e; #line 1014 "regression-compile-tmp/check.imp" L_00f1:; // 1015 HASH = 0 #line 1015 "regression-compile-tmp/check.imp" HASH = 0; // 1016 {%UNTIL SC > 'Z'} %CYCLE #line 1016 "regression-compile-tmp/check.imp" L_00f2:; // 1017 %IF SC # 0 %START #line 1017 "regression-compile-tmp/check.imp" if (((SC) == (0))) goto L_00f5; // 1018 J = J+1; BYTEINTEGER(J+12) = SC #line 1018 "regression-compile-tmp/check.imp" J = (((int)(J)) + (1)); #line 1018 "regression-compile-tmp/check.imp" *_imp_BYTEINTEGER((((int)(J)) + (12))) = SC; // 1019 HASH = HASH<<1!!SC #line 1019 "regression-compile-tmp/check.imp" HASH = ((((HASH) << (1))) ^ (SC)); // 1020 %FINISH #line 1020 "regression-compile-tmp/check.imp" L_00f5:; // 1021 FP = FP+1; SC = SYMINIT(BYTEINTEGER(FP)) #line 1021 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1021 "regression-compile-tmp/check.imp" SC = SYMINIT[*_imp_BYTEINTEGER(FP)]; // 1022 %REPEAT %UNTIL SC > 'Z' #line 1022 "regression-compile-tmp/check.imp" if (((SC) > (90))) goto L_00f3; #line 1022 "regression-compile-tmp/check.imp" goto L_00f2; #line 1022 "regression-compile-tmp/check.imp" L_00f3:; // 1023 BYTEINTEGER(DLIM+12) = J-DLIM #line 1023 "regression-compile-tmp/check.imp" *_imp_BYTEINTEGER((((int)(DLIM)) + (12))) = (((int)(J)) - (DLIM)); // 1024 NEWDLIM = J&(\3)+16 #line 1024 "regression-compile-tmp/check.imp" NEWDLIM = (((int)(((J) & ((~(3)))))) + (16)); // 1025 HEAD == INDEX(HASH&255); DPOS = HEAD; #line 1025 "regression-compile-tmp/check.imp" HEAD = &INDEX[((HASH) & (255))]; #line 1025 "regression-compile-tmp/check.imp" DPOS = *HEAD; // 1026 ATOM = IDENT; #line 1026 "regression-compile-tmp/check.imp" ATOM = 1; // 1027 IDENTIFIERS = IDENTIFIERS+1 #line 1027 "regression-compile-tmp/check.imp" IDENTIFIERS = (((int)(IDENTIFIERS)) + (1)); // 1028 ->FIN #line 1028 "regression-compile-tmp/check.imp" goto U_102b; // 1029 // 1030 NUMBER: #line 1030 "regression-compile-tmp/check.imp" U_1032:; // 1031 ATOMTYPE = NUMBITS #line 1031 "regression-compile-tmp/check.imp" ATOMTYPE = 112; // 1032 ATOMVAL = SC-'0' #line 1032 "regression-compile-tmp/check.imp" ATOMVAL = (((int)(SC)) - (48)); // 1033 %CYCLE #line 1033 "regression-compile-tmp/check.imp" L_00f6:; // 1034 FP = FP+1; SC = SYMINIT(BYTEINTEGER(FP)) #line 1034 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1034 "regression-compile-tmp/check.imp" SC = SYMINIT[*_imp_BYTEINTEGER(FP)]; // 1035 %EXIT %IF SC > '9' #line 1035 "regression-compile-tmp/check.imp" if (((SC) <= (57))) goto L_00f9; #line 1035 "regression-compile-tmp/check.imp" goto L_00f7; #line 1035 "regression-compile-tmp/check.imp" L_00f9:; // 1036 ATOMVAL = (ATOMVAL<<2+ATOMVAL)<<1+SC-'0' %C #line 1036 "regression-compile-tmp/check.imp" if (((SC) == (0))) goto L_00fa; #line 1036 "regression-compile-tmp/check.imp" if (((ATOMVAL) >= (1000000))) goto L_00fa; #line 1036 "regression-compile-tmp/check.imp" ATOMVAL = (((int)((((int)((((((int)(((ATOMVAL) << (2)))) + (ATOMVAL))) << (1)))) + (SC)))) - (48)); #line 1036 "regression-compile-tmp/check.imp" L_00fa:; // 1037 %IF SC # 0 %AND ATOMVAL < 1000000 // 1038 %REPEAT #line 1038 "regression-compile-tmp/check.imp" goto L_00f6; #line 1038 "regression-compile-tmp/check.imp" L_00f7:; // 1039 %IF BYTEINTEGER(FP) = '.' %START #line 1039 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER(FP)) != (46))) goto L_00fb; // 1040 {%UNTIL SC > '9'} %CYCLE #line 1040 "regression-compile-tmp/check.imp" L_00fc:; // 1041 FP = FP+1; SC = SYMINIT(BYTEINTEGER(FP)) #line 1041 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1041 "regression-compile-tmp/check.imp" SC = SYMINIT[*_imp_BYTEINTEGER(FP)]; // 1042 %REPEAT %UNTIL SC > '9' #line 1042 "regression-compile-tmp/check.imp" if (((SC) > (57))) goto L_00fd; #line 1042 "regression-compile-tmp/check.imp" goto L_00fc; #line 1042 "regression-compile-tmp/check.imp" L_00fd:; // 1043 ATOMTYPE = REALBITS #line 1043 "regression-compile-tmp/check.imp" ATOMTYPE = 48; // 1044 %FINISH #line 1044 "regression-compile-tmp/check.imp" L_00fb:; // 1045 %IF BYTEINTEGER(FP) = '@' %START #line 1045 "regression-compile-tmp/check.imp" if (((*_imp_BYTEINTEGER(FP)) != (64))) goto L_00ff; // 1046 {%UNTIL SC # ' '} %CYCLE #line 1046 "regression-compile-tmp/check.imp" L_0100:; // 1047 FP = FP+1; SC = BYTEINTEGER(FP) #line 1047 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1047 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 1048 %REPEAT %UNTIL SC # ' ' #line 1048 "regression-compile-tmp/check.imp" if (((SC) != (32))) goto L_0101; #line 1048 "regression-compile-tmp/check.imp" goto L_0100; #line 1048 "regression-compile-tmp/check.imp" L_0101:; // 1049 %IF SC = '-' %START #line 1049 "regression-compile-tmp/check.imp" if (((SC) != (45))) goto L_0103; // 1050 {%UNTIL SC # ' '} %CYCLE #line 1050 "regression-compile-tmp/check.imp" L_0104:; // 1051 FP = FP+1; SC = BYTEINTEGER(FP) #line 1051 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1051 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 1052 %REPEAT %UNTIL SC # ' ' #line 1052 "regression-compile-tmp/check.imp" if (((SC) != (32))) goto L_0105; #line 1052 "regression-compile-tmp/check.imp" goto L_0104; #line 1052 "regression-compile-tmp/check.imp" L_0105:; // 1053 %FINISH #line 1053 "regression-compile-tmp/check.imp" L_0103:; // 1054 SC = SYMINIT(SC) #line 1054 "regression-compile-tmp/check.imp" SC = SYMINIT[SC]; // 1055 ->ERR %UNLESS SC <= '9' #line 1055 "regression-compile-tmp/check.imp" if (((SC) <= (57))) goto L_0107; #line 1055 "regression-compile-tmp/check.imp" goto U_1029; #line 1055 "regression-compile-tmp/check.imp" L_0107:; // 1056 {%UNTIL SC > '9'} %CYCLE #line 1056 "regression-compile-tmp/check.imp" L_0108:; // 1057 FP = FP+1; SC = SYMINIT(BYTEINTEGER(FP)) #line 1057 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1057 "regression-compile-tmp/check.imp" SC = SYMINIT[*_imp_BYTEINTEGER(FP)]; // 1058 %REPEAT %UNTIL SC > '9' #line 1058 "regression-compile-tmp/check.imp" if (((SC) > (57))) goto L_0109; #line 1058 "regression-compile-tmp/check.imp" goto L_0108; #line 1058 "regression-compile-tmp/check.imp" L_0109:; // 1059 ATOMTYPE = REALBITS #line 1059 "regression-compile-tmp/check.imp" ATOMTYPE = 48; // 1060 %FINISH #line 1060 "regression-compile-tmp/check.imp" L_00ff:; // 1061 NN: ATOM = CONST #line 1061 "regression-compile-tmp/check.imp" U_1037:; #line 1061 "regression-compile-tmp/check.imp" ATOM = 2; // 1062 NUMBERS = NUMBERS+1 #line 1062 "regression-compile-tmp/check.imp" NUMBERS = (((int)(NUMBERS)) + (1)); // 1063 ->FIN #line 1063 "regression-compile-tmp/check.imp" goto U_102b; // 1064 // 1065 MULTI: #line 1065 "regression-compile-tmp/check.imp" U_1036:; // 1066 FP = FP+1 #line 1066 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); // 1067 ATOMTYPE = NUMBITS #line 1067 "regression-compile-tmp/check.imp" ATOMTYPE = 112; // 1068 ->Q1 #line 1068 "regression-compile-tmp/check.imp" goto U_1038; // 1069 QUOTEMARK: #line 1069 "regression-compile-tmp/check.imp" U_1027:; // 1070 ATOMTYPE = STRINGBIT #line 1070 "regression-compile-tmp/check.imp" ATOMTYPE = 128; // 1071 Q1: K = BYTEINTEGER(FP); J = -1; L = NEXTLINE #line 1071 "regression-compile-tmp/check.imp" U_1038:; #line 1071 "regression-compile-tmp/check.imp" K = *_imp_BYTEINTEGER(FP); #line 1071 "regression-compile-tmp/check.imp" J = (-1); #line 1071 "regression-compile-tmp/check.imp" L = NEXTLINE; // 1072 ATOMVAL = 0 #line 1072 "regression-compile-tmp/check.imp" ATOMVAL = 0; // 1073 %CYCLE #line 1073 "regression-compile-tmp/check.imp" L_010b:; // 1074 FP = FP+1; SC = BYTEINTEGER(FP) #line 1074 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1074 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 1075 %IF SC = NL %START #line 1075 "regression-compile-tmp/check.imp" if (((SC) != (10))) goto L_010e; // 1076 NEXTLINE = NEXTLINE+1 #line 1076 "regression-compile-tmp/check.imp" NEXTLINE = (((int)(NEXTLINE)) + (1)); // 1077 ->TERM %IF FP >= FMAX #line 1077 "regression-compile-tmp/check.imp" if (((FP) < (FMAX))) goto L_010f; #line 1077 "regression-compile-tmp/check.imp" goto U_102d; #line 1077 "regression-compile-tmp/check.imp" L_010f:; // 1078 %FINISH #line 1078 "regression-compile-tmp/check.imp" L_010e:; // 1079 %IF SC = K %START #line 1079 "regression-compile-tmp/check.imp" if (((SC) != (K))) goto L_0110; // 1080 %EXIT %IF SC # BYTEINTEGER(FP+1) #line 1080 "regression-compile-tmp/check.imp" if (((SC) == (*_imp_BYTEINTEGER((((int)(FP)) + (1)))))) goto L_0111; #line 1080 "regression-compile-tmp/check.imp" goto L_010c; #line 1080 "regression-compile-tmp/check.imp" L_0111:; // 1081 FP = FP+1 #line 1081 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); // 1082 %FINISH #line 1082 "regression-compile-tmp/check.imp" L_0110:; // 1083 ATOMVAL = ATOMVAL<<8+SC #line 1083 "regression-compile-tmp/check.imp" ATOMVAL = (((int)(((ATOMVAL) << (8)))) + (SC)); // 1084 J = J+1; ->STRINGERR %IF J = 255 #line 1084 "regression-compile-tmp/check.imp" J = (((int)(J)) + (1)); #line 1084 "regression-compile-tmp/check.imp" if (((J) != (255))) goto L_0112; #line 1084 "regression-compile-tmp/check.imp" goto U_1030; #line 1084 "regression-compile-tmp/check.imp" L_0112:; // 1085 %REPEAT #line 1085 "regression-compile-tmp/check.imp" goto L_010b; #line 1085 "regression-compile-tmp/check.imp" L_010c:; // 1086 %IF ATOMTYPE = STRINGBIT %START; !IE NOT MULTI #line 1086 "regression-compile-tmp/check.imp" if (((ATOMTYPE) != (128))) goto L_0113; // 1087 ATOMVAL = J<<8+ATOMVAL&255 #line 1087 "regression-compile-tmp/check.imp" ATOMVAL = (((((J) << (8)))) + (((ATOMVAL) & (255)))); // 1088 ATOMTYPE = STRINGBIT+NUMBITS %IF J = 0 #line 1088 "regression-compile-tmp/check.imp" if (((J) != (0))) goto L_0114; #line 1088 "regression-compile-tmp/check.imp" ATOMTYPE = 240; #line 1088 "regression-compile-tmp/check.imp" L_0114:; // 1089 %FINISH #line 1089 "regression-compile-tmp/check.imp" L_0113:; // 1090 SC = 0 #line 1090 "regression-compile-tmp/check.imp" SC = 0; // 1091 ->NN #line 1091 "regression-compile-tmp/check.imp" goto U_1037; // 1092 // 1093 HEX:J = 4; ->RAD #line 1093 "regression-compile-tmp/check.imp" U_1033:; #line 1093 "regression-compile-tmp/check.imp" J = 4; #line 1093 "regression-compile-tmp/check.imp" goto U_1039; // 1094 OCT:J = 3; ->RAD #line 1094 "regression-compile-tmp/check.imp" U_1034:; #line 1094 "regression-compile-tmp/check.imp" J = 3; #line 1094 "regression-compile-tmp/check.imp" goto U_1039; // 1095 BIN:J = 1 #line 1095 "regression-compile-tmp/check.imp" U_1035:; #line 1095 "regression-compile-tmp/check.imp" J = 1; // 1096 RAD:FP = FP+1 #line 1096 "regression-compile-tmp/check.imp" U_1039:; #line 1096 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); // 1097 ATOMTYPE = NUMBITS; ATOMVAL = 0 #line 1097 "regression-compile-tmp/check.imp" ATOMTYPE = 112; #line 1097 "regression-compile-tmp/check.imp" ATOMVAL = 0; // 1098 %CYCLE #line 1098 "regression-compile-tmp/check.imp" L_0115:; // 1099 FP = FP+1; SC = BYTEINTEGER(FP) #line 1099 "regression-compile-tmp/check.imp" FP = (((int)(FP)) + (1)); #line 1099 "regression-compile-tmp/check.imp" SC = *_imp_BYTEINTEGER(FP); // 1100 %EXIT %IF SC = '''' #line 1100 "regression-compile-tmp/check.imp" if (((SC) != (39))) goto L_0118; #line 1100 "regression-compile-tmp/check.imp" goto L_0116; #line 1100 "regression-compile-tmp/check.imp" L_0118:; // 1101 K = SC-'0' #line 1101 "regression-compile-tmp/check.imp" K = (((int)(SC)) - (48)); // 1102 K = K+('0'-'A'+10) %IF K >= 'A'-'0' #line 1102 "regression-compile-tmp/check.imp" if (((K) < (17))) goto L_0119; #line 1102 "regression-compile-tmp/check.imp" K = ((K) + ((int)((-7)))); #line 1102 "regression-compile-tmp/check.imp" L_0119:; // 1103 ->ERR %IF K>>J # 0 #line 1103 "regression-compile-tmp/check.imp" if ((((int)((((unsigned int)(K)) >> (J)))) == (0))) goto L_011a; #line 1103 "regression-compile-tmp/check.imp" goto U_1029; #line 1103 "regression-compile-tmp/check.imp" L_011a:; // 1104 ATOMVAL = ATOMVAL<NN #line 1107 "regression-compile-tmp/check.imp" goto U_1037; // 1108 // 1109 %END; !CODE ATOM #line 1109 "regression-compile-tmp/check.imp" return; } // End of block CODEATOM at level 2 // 1110 // 1111 %ROUTINE POP CONTEXT #line 1111 "regression-compile-tmp/check.imp" void POPCONTEXT( void ) #line 1111 "regression-compile-tmp/check.imp" { // 1112 {%SHORTROUTINE} // 1113 %INTEGER I #line 1113 "regression-compile-tmp/check.imp" int I; // 1114 DPOS = C_LOCAL; FPOS1 = FPOS #line 1114 "regression-compile-tmp/check.imp" DPOS = C.LOCAL; #line 1114 "regression-compile-tmp/check.imp" FPOS1 = FPOS; // 1115 %WHILE DPOS # DLIM %CYCLE #line 1115 "regression-compile-tmp/check.imp" L_011b:; #line 1115 "regression-compile-tmp/check.imp" if (((DPOS) == (DLIM))) goto L_011c; // 1116 I = INTEGER(DPOS) #line 1116 "regression-compile-tmp/check.imp" I = *_imp_INTEGER(DPOS); // 1117 %IF I # RECFORMAT %START #line 1117 "regression-compile-tmp/check.imp" if (((I) == (4))) goto L_011e; // 1118 REPORT(15) %IF I&1 # 0 %AND I&6 # 0 #line 1118 "regression-compile-tmp/check.imp" if (((((I) & (1))) == (0))) goto L_011f; #line 1118 "regression-compile-tmp/check.imp" if (((((I) & (6))) == (0))) goto L_011f; #line 1118 "regression-compile-tmp/check.imp" REPORT(15); #line 1118 "regression-compile-tmp/check.imp" L_011f:; // 1119 %FINISH %ELSE %START #line 1119 "regression-compile-tmp/check.imp" goto L_0120; #line 1119 "regression-compile-tmp/check.imp" L_011e:; // 1120 DPOS = INTEGER(DPOS+4) %IF INTEGER(DPOS+4) # 0 #line 1120 "regression-compile-tmp/check.imp" if (((*_imp_INTEGER((((int)(DPOS)) + (4)))) == (0))) goto L_0121; #line 1120 "regression-compile-tmp/check.imp" DPOS = *_imp_INTEGER((((int)(DPOS)) + (4))); #line 1120 "regression-compile-tmp/check.imp" L_0121:; // 1121 %FINISH #line 1121 "regression-compile-tmp/check.imp" L_0120:; // 1122 DPOS = BYTEINTEGER(DPOS+12)&(\3)+DPOS+16 #line 1122 "regression-compile-tmp/check.imp" DPOS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(DPOS)) + (12)))) & ((~(3)))))) + (DPOS)))) + (16)); // 1123 %REPEAT #line 1123 "regression-compile-tmp/check.imp" goto L_011b; #line 1123 "regression-compile-tmp/check.imp" L_011c:; // 1124 REPORT(C_STACK&1+9) %AND C_STACK=C_STACK>>2 %WHILE C_STACK # 0 #line 1124 "regression-compile-tmp/check.imp" L_0122:; #line 1124 "regression-compile-tmp/check.imp" if (((C.STACK) == (0))) goto L_0123; #line 1124 "regression-compile-tmp/check.imp" REPORT((((int)(((C.STACK) & (1)))) + (9))); #line 1124 "regression-compile-tmp/check.imp" C.STACK = (int)((((unsigned int)(C.STACK)) >> (2))); #line 1124 "regression-compile-tmp/check.imp" goto L_0122; #line 1124 "regression-compile-tmp/check.imp" L_0123:; // 1125 DLIM = C_LOCAL #line 1125 "regression-compile-tmp/check.imp" DLIM = C.LOCAL; // 1126 C = HOLD(LEVEL); LEVEL = LEVEL-1 #line 1126 "regression-compile-tmp/check.imp" C = HOLD[(((int)(LEVEL)) - (1))]; #line 1126 "regression-compile-tmp/check.imp" LEVEL = (((int)(LEVEL)) - (1)); // 1127 %CYCLE I = ADDR(INDEX(0)),4,ADDR(INDEX(255)) #line 1127 "regression-compile-tmp/check.imp" {static int _initial, _increment, _final, _control; _initial = _imp_ADDR(&INDEX[0]); _increment = 4; _final = _imp_ADDR(&INDEX[255]); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = _imp_ADDR(&INDEX[0]), 4, _imp_ADDR(&INDEX[255])"); I -= _increment; _control -= _increment; L_0125:; if (I == _final) goto L_0126; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1128 INTEGER(I) = INTEGER(INTEGER(I)+8) %WHILE INTEGER(I) >= DLIM #line 1128 "regression-compile-tmp/check.imp" L_0128:; #line 1128 "regression-compile-tmp/check.imp" if (((*_imp_INTEGER(I)) < (DLIM))) goto L_0129; #line 1128 "regression-compile-tmp/check.imp" *_imp_INTEGER(I) = *_imp_INTEGER(((*(int *)(_imp_INTEGER(I))) + (8))); #line 1128 "regression-compile-tmp/check.imp" goto L_0128; #line 1128 "regression-compile-tmp/check.imp" L_0129:; // 1129 %REPEAT #line 1129 "regression-compile-tmp/check.imp" goto L_0125; #line 1129 "regression-compile-tmp/check.imp" L_0126:; // 1130 %END #line 1130 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POPCONTEXT at level 2 // 1131 // 1132 %ROUTINE DEFINE(%INTEGER DISP,VAL) #line 1132 "regression-compile-tmp/check.imp" void DEFINE( int DISP, int VAL ) #line 1132 "regression-compile-tmp/check.imp" { // 1133 {%SHORTROUTINE} // 1134 %WHILE IDENTS # DLIM %CYCLE #line 1134 "regression-compile-tmp/check.imp" L_012b:; #line 1134 "regression-compile-tmp/check.imp" if (((IDENTS) == (DLIM))) goto L_012c; // 1135 %IF DISP # 0 %THEN INTEGER(IDENTS+4) = VAL %C #line 1135 "regression-compile-tmp/check.imp" if (((DISP) == (0))) goto L_012e; #line 1135 "regression-compile-tmp/check.imp" *_imp_INTEGER((((int)(IDENTS)) + (4))) = VAL; #line 1135 "regression-compile-tmp/check.imp" goto L_012f; #line 1135 "regression-compile-tmp/check.imp" L_012e:; #line 1135 "regression-compile-tmp/check.imp" *_imp_BYTEINTEGER((((int)(IDENTS)) + (2))) = VAL; #line 1135 "regression-compile-tmp/check.imp" L_012f:; // 1136 %ELSE BYTEINTEGER(IDENTS+2) = VAL // 1137 IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16 #line 1137 "regression-compile-tmp/check.imp" IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16)); // 1138 %REPEAT #line 1138 "regression-compile-tmp/check.imp" goto L_012b; #line 1138 "regression-compile-tmp/check.imp" L_012c:; // 1139 %END #line 1139 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFINE at level 2 // 1140 // 1141 // 1142 %END; !CHECKINNER #line 1142 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; sw1_A_24:; sw1_A_28:; sw1_A_46:; sw1_A_49:; sw1_A_61:; sw1_A_62:; sw1_A_87:; sw1_A_127:; /*_imp_signal(6,3,sw1_A_idx,"SWITCH LABEL NOT SET - sw1_A");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw1_A(%d): at line %s:%d", sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block CHECKINNER at level 1 // 1143 // 1144 %EXTERNALROUTINE CHECK(%STRING(63) PARAM) #line 1144 "regression-compile-tmp/check.imp" void CHECK( _imp_string /*%string(63)*/ PARAM ) #line 1144 "regression-compile-tmp/check.imp" { // 1145 %RECORDFORMAT FINF(%INTEGER CONAD,FILESIZE, %BYTEINTEGER RUP, %C #line 1145 "regression-compile-tmp/check.imp" typedef struct FINF FINF; struct FINF { int CONAD; int FILESIZE; unsigned char RUP; unsigned char EEP; unsigned char MODE; unsigned char CONS; unsigned char ARCH; _imp_string /*%string(6)*/ TRAN; short FILETYPE; short NUMIPERMS; int DATASTART; int DATAEND; int PLISTPTR; }; // 1146 EEP,MODE,CONS,ARCH, %STRING(6) TRAN, %C // 1147 %SHORTINTEGER FILETYPE,NUMIPERMS, %C // 1148 %INTEGER DATASTART,DATAEND, PLISTPTR) // 1149 {%EXTERNAL}%ROUTINE{SPEC} DEFINE(%STRING(63) S) #line 1149 "regression-compile-tmp/check.imp" void DEFINE( _imp_string /*%string(63)*/ S ) #line 1149 "regression-compile-tmp/check.imp" { // 1150 %end #line 1150 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFINE at level 2 // 1151 {%SYSTEM}%ROUTINE{SPEC} CONNECT(%STRING(15) S, %INTEGER A,M,P, %C #line 1151 "regression-compile-tmp/check.imp" void CONNECT( _imp_string /*%string(15)*/ S, int A, int M, int P, FINF /*name*/*R, int /*name*/*F ) #line 1151 "regression-compile-tmp/check.imp" { // 1152 %RECORD(FINF)%NAME R, %INTEGERNAME F) // 1153 %end #line 1153 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONNECT at level 2 // 1154 {%EXTERNAL}%STRING(255)%FN{SPEC} SSFMESSAGE #line 1154 "regression-compile-tmp/check.imp" _imp_string /*%string(255)*/ SSFMESSAGE( void ) #line 1154 "regression-compile-tmp/check.imp" { // 1155 %result="error" ;! I thought I had added this one to the perms..? #line 1155 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return _imp_str_literal("error"); // 1156 %end #line 1156 "regression-compile-tmp/check.imp" } // End of block SSFMESSAGE at level 2 // 1157 // 1158 %RECORD(FINF) R #line 1158 "regression-compile-tmp/check.imp" FINF R; // 1159 %INTEGER I,J,FLAG #line 1159 "regression-compile-tmp/check.imp" int I; #line 1159 "regression-compile-tmp/check.imp" int J; #line 1159 "regression-compile-tmp/check.imp" int FLAG; // 1160 %STRING(63) OPTIONS,OUT #line 1160 "regression-compile-tmp/check.imp" _imp_string /*%string(63)*/ OPTIONS; #line 1160 "regression-compile-tmp/check.imp" _imp_string /*%string(63)*/ OUT; // 1161 OUT = "" %UNLESS PARAM -> PARAM.("/").OUT #line 1161 "regression-compile-tmp/check.imp" if (_imp_resolve(PARAM, &PARAM, _imp_str_literal("/"), &OUT)) goto L_0130; #line 1161 "regression-compile-tmp/check.imp" OUT = _imp_str_literal(""); #line 1161 "regression-compile-tmp/check.imp" L_0130:; // 1162 OPTIONS = "" %UNLESS PARAM -> PARAM.(",").OPTIONS #line 1162 "regression-compile-tmp/check.imp" if (_imp_resolve(PARAM, &PARAM, _imp_str_literal(","), &OPTIONS)) goto L_0131; #line 1162 "regression-compile-tmp/check.imp" OPTIONS = _imp_str_literal(""); #line 1162 "regression-compile-tmp/check.imp" L_0131:; // 1163 CONNECT(PARAM,0,0,0,R,FLAG) #line 1163 "regression-compile-tmp/check.imp" CONNECT(PARAM, 0, 0, 0, &R, &FLAG); // 1164 PRINTSTRING(SSFMESSAGE) %AND %RETURN %IF FLAG # 0 #line 1164 "regression-compile-tmp/check.imp" if (((FLAG) == (0))) goto L_0132; #line 1164 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(SSFMESSAGE()); #line 1164 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; #line 1164 "regression-compile-tmp/check.imp" L_0132:; // 1165 %IF OUT # "" %START #line 1165 "regression-compile-tmp/check.imp" if ((_imp_strcmp(OUT, _imp_str_literal("")) == 0)) goto L_0133; // 1166 DEFINE("ST19,".OUT) #line 1166 "regression-compile-tmp/check.imp" DEFINE(_imp_join((_imp_string)_imp_str_literal("ST19,"),(_imp_string)OUT)); // 1167 SELECT OUTPUT(19) #line 1167 "regression-compile-tmp/check.imp" _imp_SELECTOUTPUT(19); // 1168 %FINISH #line 1168 "regression-compile-tmp/check.imp" L_0133:; // 1169 I = 0 #line 1169 "regression-compile-tmp/check.imp" I = 0; // 1170 %WHILE I < LENGTH(OPTIONS) %CYCLE #line 1170 "regression-compile-tmp/check.imp" L_0134:; #line 1170 "regression-compile-tmp/check.imp" if (((I) >= (*_imp_LENGTH(&OPTIONS)))) goto L_0135; // 1171 I = I+1; J = CHARNO(OPTIONS,I) #line 1171 "regression-compile-tmp/check.imp" I = (((int)(I)) + (1)); #line 1171 "regression-compile-tmp/check.imp" J = *_imp_CHARNO(&OPTIONS, I); // 1172 FLAG = FLAG!8 %IF J = 'D' #line 1172 "regression-compile-tmp/check.imp" if (((J) != (68))) goto L_0137; #line 1172 "regression-compile-tmp/check.imp" FLAG = ((FLAG) | (8)); #line 1172 "regression-compile-tmp/check.imp" L_0137:; // 1173 FLAG = FLAG!4 %IF J = 'S' #line 1173 "regression-compile-tmp/check.imp" if (((J) != (83))) goto L_0138; #line 1173 "regression-compile-tmp/check.imp" FLAG = ((FLAG) | (4)); #line 1173 "regression-compile-tmp/check.imp" L_0138:; // 1174 %REPEAT #line 1174 "regression-compile-tmp/check.imp" goto L_0134; #line 1174 "regression-compile-tmp/check.imp" L_0135:; // 1175 CHECKINNER(R_CONAD+R_DATASTART,R_DATAEND-R_DATASTART,FLAG) #line 1175 "regression-compile-tmp/check.imp" CHECKINNER((((int)(R.CONAD)) + (R.DATASTART)), (((int)(R.DATAEND)) - (R.DATASTART)), &FLAG); // 1176 PRINT STRING(" OK") %AND NEWLINE %IF FLAG >= 0 #line 1176 "regression-compile-tmp/check.imp" if (((FLAG) < (0))) goto L_0139; #line 1176 "regression-compile-tmp/check.imp" _imp_PRINTSTRING(_imp_str_literal(" OK")); #line 1176 "regression-compile-tmp/check.imp" _imp_NEWLINE(); #line 1176 "regression-compile-tmp/check.imp" L_0139:; // 1177 %END; !CHECK #line 1177 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CHECK at level 1 // 1178 // 1179 %begin #line 1179 "regression-compile-tmp/check.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 1180 %end #line 1180 "regression-compile-tmp/check.imp" /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 // 1181 // 1182 %ENDOFFILE #line 1182 "regression-compile-tmp/check.imp" // End of file