#include // 1 %control 0 // 2 %externalroutine printstring(%string(255) text) #line 2 "regression-bugs-tmp/vax-lib.imp" void PRINTSTRING( _imp_string /*%string(255)*/ TEXT ) #line 2 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 3 %integer p, l _imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 3 "regression-bugs-tmp/vax-lib.imp" int P; #line 3 "regression-bugs-tmp/vax-lib.imp" int L; // 4 p = 0; l = length(text) _imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 4 "regression-bugs-tmp/vax-lib.imp" P = 0; _imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 4 "regression-bugs-tmp/vax-lib.imp" L = *_imp_LENGTH(&TEXT); // 5 %while p # l %cycle _imp_current_line = 5; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 5 "regression-bugs-tmp/vax-lib.imp" L_0002:; #line 5 "regression-bugs-tmp/vax-lib.imp" if (((P) == (L))) goto L_0003; // 6 p = p+1; printsymbol(charno(text, p)) _imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 6 "regression-bugs-tmp/vax-lib.imp" P = (((int)(P)) + (1)); _imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 6 "regression-bugs-tmp/vax-lib.imp" _imp_PRINTSYMBOL(*_imp_CHARNO(&TEXT, P)); // 7 %repeat _imp_current_line = 7; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 7 "regression-bugs-tmp/vax-lib.imp" goto L_0002; #line 7 "regression-bugs-tmp/vax-lib.imp" L_0003:; // 8 %end _imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 8 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block PRINTSTRING at level 1 // 9 %externalroutine read string(%string(255)%name s) #line 9 "regression-bugs-tmp/vax-lib.imp" void READSTRING( _imp_string /*%string(255)*/ /*name*/*S ) #line 9 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 10 %integer sym, qu _imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 10 "regression-bugs-tmp/vax-lib.imp" int SYM; #line 10 "regression-bugs-tmp/vax-lib.imp" int QU; // 11 s = "" _imp_current_line = 11; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 11 "regression-bugs-tmp/vax-lib.imp" *S = _imp_str_literal(""); // 12 %cycle _imp_current_line = 12; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 12 "regression-bugs-tmp/vax-lib.imp" L_0005:; // 13 readsymbol(sym) _imp_current_line = 13; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 13 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&SYM); // 14 %repeat %until sym # nl %and sym # ' ' _imp_current_line = 14; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 14 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (10))) goto L_0007; #line 14 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (32))) goto L_0006; #line 14 "regression-bugs-tmp/vax-lib.imp" L_0007:; #line 14 "regression-bugs-tmp/vax-lib.imp" goto L_0005; #line 14 "regression-bugs-tmp/vax-lib.imp" L_0006:; // 15 %signal 3,2,sym %unless sym='"' %or sym = '''' _imp_current_line = 15; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 15 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (34))) goto L_0008; #line 15 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (39))) goto L_0008; #line 15 "regression-bugs-tmp/vax-lib.imp" _imp_signal(3, 2, SYM, ""); #line 15 "regression-bugs-tmp/vax-lib.imp" L_0008:; // 16 qu = sym _imp_current_line = 16; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 16 "regression-bugs-tmp/vax-lib.imp" QU = SYM; // 17 %cycle _imp_current_line = 17; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 17 "regression-bugs-tmp/vax-lib.imp" L_0009:; // 18 readsymbol(sym) _imp_current_line = 18; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 18 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&SYM); // 19 %if sym = qu %start _imp_current_line = 19; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 19 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (QU))) goto L_000c; // 20 %exit %if nextsymbol # qu _imp_current_line = 20; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 20 "regression-bugs-tmp/vax-lib.imp" if (((_imp_NEXTSYMBOL()) == (QU))) goto L_000d; #line 20 "regression-bugs-tmp/vax-lib.imp" goto L_000a; #line 20 "regression-bugs-tmp/vax-lib.imp" L_000d:; // 21 readsymbol(sym) _imp_current_line = 21; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 21 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&SYM); // 22 %finish _imp_current_line = 22; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 22 "regression-bugs-tmp/vax-lib.imp" L_000c:; // 23 s=s.tostring(sym) _imp_current_line = 23; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 23 "regression-bugs-tmp/vax-lib.imp" *S = _imp_join((_imp_string)*S,(_imp_string)_imp_TOSTRING(SYM)); // 24 %repeat _imp_current_line = 24; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 24 "regression-bugs-tmp/vax-lib.imp" goto L_0009; #line 24 "regression-bugs-tmp/vax-lib.imp" L_000a:; // 25 %end _imp_current_line = 25; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 25 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block READSTRING at level 1 // 26 // 27 %externalstring(1)%fn nextitem #line 27 "regression-bugs-tmp/vax-lib.imp" _imp_string /*%string(1)*/ NEXTITEM( void ) #line 27 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 28 %result=tostring(nextsymbol) _imp_current_line = 28; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 28 "regression-bugs-tmp/vax-lib.imp" return _imp_TOSTRING(_imp_NEXTSYMBOL()); // 29 %end _imp_current_line = 29; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 29 "regression-bugs-tmp/vax-lib.imp" _imp_endofblock: ; } // End of block NEXTITEM at level 1 // 30 // 31 %externalroutine skipitem #line 31 "regression-bugs-tmp/vax-lib.imp" void SKIPITEM( void ) #line 31 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 32 %integer s _imp_current_line = 32; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 32 "regression-bugs-tmp/vax-lib.imp" int S; // 33 readsymbol(s) _imp_current_line = 33; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 33 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&S); // 34 %end _imp_current_line = 34; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 34 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block SKIPITEM at level 1 // 35 // 36 %externalroutine readitem(%string(1)%name s) #line 36 "regression-bugs-tmp/vax-lib.imp" void READITEM( _imp_string /*%string(1)*/ /*name*/*S ) #line 36 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 37 %integer k _imp_current_line = 37; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 37 "regression-bugs-tmp/vax-lib.imp" int K; // 38 readsymbol(K); s=tostring(k) _imp_current_line = 38; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 38 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&K); _imp_current_line = 38; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 38 "regression-bugs-tmp/vax-lib.imp" *S = _imp_TOSTRING(K); // 39 %end _imp_current_line = 39; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 39 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block READITEM at level 1 // 40 // 41 %externalstring(63)%fn itos(%integer n, p) #line 41 "regression-bugs-tmp/vax-lib.imp" _imp_string /*%string(63)*/ ITOS( int N, int P ) #line 41 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 42 %string(255) answer _imp_current_line = 42; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 42 "regression-bugs-tmp/vax-lib.imp" _imp_string /*%string(255)*/ ANSWER; // 43 %byteintegerarray a(0:64) _imp_current_line = 43; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 43 "regression-bugs-tmp/vax-lib.imp" unsigned char A[65]; // 44 %integer sign, sym, pt, val _imp_current_line = 44; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 44 "regression-bugs-tmp/vax-lib.imp" int SIGN; #line 44 "regression-bugs-tmp/vax-lib.imp" int SYM; #line 44 "regression-bugs-tmp/vax-lib.imp" int PT; #line 44 "regression-bugs-tmp/vax-lib.imp" int VAL; // 45 val = p _imp_current_line = 45; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 45 "regression-bugs-tmp/vax-lib.imp" VAL = P; // 46 %if p > 0 %then p = p+1 %else p = -p _imp_current_line = 46; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 46 "regression-bugs-tmp/vax-lib.imp" if (((P) <= (0))) goto L_000e; #line 46 "regression-bugs-tmp/vax-lib.imp" P = (((int)(P)) + (1)); #line 46 "regression-bugs-tmp/vax-lib.imp" goto L_000f; #line 46 "regression-bugs-tmp/vax-lib.imp" L_000e:; #line 46 "regression-bugs-tmp/vax-lib.imp" P = (-(P)); #line 46 "regression-bugs-tmp/vax-lib.imp" L_000f:; // 47 p = 63 %if p > 63 _imp_current_line = 47; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 47 "regression-bugs-tmp/vax-lib.imp" if (((P) <= (63))) goto L_0010; #line 47 "regression-bugs-tmp/vax-lib.imp" P = 63; #line 47 "regression-bugs-tmp/vax-lib.imp" L_0010:; // 48 sign = ' ' _imp_current_line = 48; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 48 "regression-bugs-tmp/vax-lib.imp" SIGN = 32; // 49 sign = 0 %if val <= 0 _imp_current_line = 49; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 49 "regression-bugs-tmp/vax-lib.imp" if (((VAL) > (0))) goto L_0011; #line 49 "regression-bugs-tmp/vax-lib.imp" SIGN = 0; #line 49 "regression-bugs-tmp/vax-lib.imp" L_0011:; // 50 pt = 0 _imp_current_line = 50; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 50 "regression-bugs-tmp/vax-lib.imp" PT = 0; // 51 %if n < 0 %start _imp_current_line = 51; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 51 "regression-bugs-tmp/vax-lib.imp" if (((N) >= (0))) goto L_0012; // 52 sign = '-' _imp_current_line = 52; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 52 "regression-bugs-tmp/vax-lib.imp" SIGN = 45; // 53 %if n = 16_80000000 %start _imp_current_line = 53; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 53 "regression-bugs-tmp/vax-lib.imp" if (((N) != ((-2147483648)))) goto L_0013; // 54 string(addr(a(pt))) = "8463847412" _imp_current_line = 54; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 54 "regression-bugs-tmp/vax-lib.imp" *_imp_STRING(_imp_ADDR(&A[PT])) = _imp_str_literal("8463847412"); // 55 pt = pt + 10 _imp_current_line = 55; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 55 "regression-bugs-tmp/vax-lib.imp" PT = (((int)(PT)) + (10)); // 56 -> set _imp_current_line = 56; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 56 "regression-bugs-tmp/vax-lib.imp" goto U_1000; // 57 %finish _imp_current_line = 57; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 57 "regression-bugs-tmp/vax-lib.imp" L_0013:; // 58 n = -n _imp_current_line = 58; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 58 "regression-bugs-tmp/vax-lib.imp" N = (-(N)); // 59 %finish _imp_current_line = 59; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 59 "regression-bugs-tmp/vax-lib.imp" L_0012:; // 60 %cycle _imp_current_line = 60; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 60 "regression-bugs-tmp/vax-lib.imp" L_0014:; // 61 sym = n-n//10*10 _imp_current_line = 61; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 61 "regression-bugs-tmp/vax-lib.imp" SYM = ((N) - (((((long)((long)((int)(N)) / (long)((int)(10))))) * (10)))); // 62 pt = pt+1 _imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 62 "regression-bugs-tmp/vax-lib.imp" PT = (((int)(PT)) + (1)); // 63 a(pt) = sym+'0' _imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 63 "regression-bugs-tmp/vax-lib.imp" A[PT] = (((int)(SYM)) + (48)); // 64 n = n//10 _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 64 "regression-bugs-tmp/vax-lib.imp" N = (long)((long)((int)(N)) / (long)((int)(10))); // 65 %repeat %until n = 0 _imp_current_line = 65; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 65 "regression-bugs-tmp/vax-lib.imp" if (((N) == (0))) goto L_0015; #line 65 "regression-bugs-tmp/vax-lib.imp" goto L_0014; #line 65 "regression-bugs-tmp/vax-lib.imp" L_0015:; // 66 set: _imp_current_line = 66; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 66 "regression-bugs-tmp/vax-lib.imp" U_1000:; // 67 %if sign # 0 %start _imp_current_line = 67; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 67 "regression-bugs-tmp/vax-lib.imp" if (((SIGN) == (0))) goto L_0017; // 68 pt = pt+1; a(pt) = sign _imp_current_line = 68; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 68 "regression-bugs-tmp/vax-lib.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 68; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 68 "regression-bugs-tmp/vax-lib.imp" A[PT] = SIGN; // 69 %finish _imp_current_line = 69; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 69 "regression-bugs-tmp/vax-lib.imp" L_0017:; // 70 %while pt < p %cycle _imp_current_line = 70; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 70 "regression-bugs-tmp/vax-lib.imp" L_0018:; #line 70 "regression-bugs-tmp/vax-lib.imp" if (((PT) >= (P))) goto L_0019; // 71 pt = pt+1; a(pt) = ' ' _imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 71 "regression-bugs-tmp/vax-lib.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 71 "regression-bugs-tmp/vax-lib.imp" A[PT] = 32; // 72 %repeat _imp_current_line = 72; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 72 "regression-bugs-tmp/vax-lib.imp" goto L_0018; #line 72 "regression-bugs-tmp/vax-lib.imp" L_0019:; // 73 answer = "" _imp_current_line = 73; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 73 "regression-bugs-tmp/vax-lib.imp" ANSWER = _imp_str_literal(""); // 74 %cycle _imp_current_line = 74; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 74 "regression-bugs-tmp/vax-lib.imp" L_001b:; // 75 answer = answer.tostring(a(pt)) _imp_current_line = 75; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 75 "regression-bugs-tmp/vax-lib.imp" ANSWER = _imp_join((_imp_string)ANSWER,(_imp_string)_imp_TOSTRING(A[PT])); // 76 pt = pt-1 _imp_current_line = 76; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 76 "regression-bugs-tmp/vax-lib.imp" PT = (((int)(PT)) - (1)); // 77 %repeat %until pt = 0 _imp_current_line = 77; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 77 "regression-bugs-tmp/vax-lib.imp" if (((PT) == (0))) goto L_001c; #line 77 "regression-bugs-tmp/vax-lib.imp" goto L_001b; #line 77 "regression-bugs-tmp/vax-lib.imp" L_001c:; // 78 %result = answer _imp_current_line = 78; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 78 "regression-bugs-tmp/vax-lib.imp" return ANSWER; // 79 %end _imp_current_line = 79; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 79 "regression-bugs-tmp/vax-lib.imp" _imp_endofblock: ; } // End of block ITOS at level 1 // 80 %externalroutine write(%integer n, p) #line 80 "regression-bugs-tmp/vax-lib.imp" void WRITE( int N, int P ) #line 80 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 81 space %and p = p-1 %while p > 62 _imp_current_line = 81; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 81 "regression-bugs-tmp/vax-lib.imp" L_001e:; #line 81 "regression-bugs-tmp/vax-lib.imp" if (((P) <= (62))) goto L_001f; #line 81 "regression-bugs-tmp/vax-lib.imp" _imp_SPACE(); #line 81 "regression-bugs-tmp/vax-lib.imp" P = (((int)(P)) - (1)); #line 81 "regression-bugs-tmp/vax-lib.imp" goto L_001e; #line 81 "regression-bugs-tmp/vax-lib.imp" L_001f:; // 82 printstring(itos(n, p)) _imp_current_line = 82; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 82 "regression-bugs-tmp/vax-lib.imp" PRINTSTRING(ITOS(N, P)); // 83 %end _imp_current_line = 83; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 83 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block WRITE at level 1 // 84 %externalroutine poctal(%integer n) #line 84 "regression-bugs-tmp/vax-lib.imp" void POCTAL( int N ) #line 84 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 85 %integer j _imp_current_line = 85; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 85 "regression-bugs-tmp/vax-lib.imp" int J; // 86 %for j = 30, -3, 0 %cycle _imp_current_line = 86; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 86 "regression-bugs-tmp/vax-lib.imp" J = 33; if ((((0)-(30)) % ((-3))) != 0) _imp_signal(5,1,0,"Illegal cycle J = 30, (-3), 0"); L_0021:; if (J == 0) goto L_0022; J += (-3); // 87 printsymbol(n>>j&7+'0') _imp_current_line = 87; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 87 "regression-bugs-tmp/vax-lib.imp" _imp_PRINTSYMBOL((((int)((((int)((((unsigned int)(N)) >> (J)))) & (7)))) + (48))); // 88 %repeat _imp_current_line = 88; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 88 "regression-bugs-tmp/vax-lib.imp" goto L_0021; #line 88 "regression-bugs-tmp/vax-lib.imp" L_0022:; // 89 %end _imp_current_line = 89; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 89 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block POCTAL at level 1 // 90 // 91 %externalroutine read(%integer address, parm) #line 91 "regression-bugs-tmp/vax-lib.imp" void READ( int ADDRESS, int PARM ) #line 91 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 92 %integer type, sign, sym, limit, digit _imp_current_line = 92; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 92 "regression-bugs-tmp/vax-lib.imp" int TYPE; #line 92 "regression-bugs-tmp/vax-lib.imp" int SIGN; #line 92 "regression-bugs-tmp/vax-lib.imp" int SYM; #line 92 "regression-bugs-tmp/vax-lib.imp" int LIMIT; #line 92 "regression-bugs-tmp/vax-lib.imp" int DIGIT; // 93 %longreal value, exp, base _imp_current_line = 93; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 93 "regression-bugs-tmp/vax-lib.imp" double VALUE; #line 93 "regression-bugs-tmp/vax-lib.imp" double EXP; #line 93 "regression-bugs-tmp/vax-lib.imp" double BASE; // 94 %string(255) s _imp_current_line = 94; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 94 "regression-bugs-tmp/vax-lib.imp" _imp_string /*%string(255)*/ S; // 95 base = 10.0 _imp_current_line = 95; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 95 "regression-bugs-tmp/vax-lib.imp" BASE = 10.0; // 96 type = parm>>24 _imp_current_line = 96; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 96 "regression-bugs-tmp/vax-lib.imp" TYPE = (int)((((unsigned int)(PARM)) >> (24))); // 97 %if type # 16_10 %and type#64 %and type # 16_23 %andc _imp_current_line = 97; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 97 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (16))) goto L_0024; #line 97 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (64))) goto L_0024; #line 97 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (35))) goto L_0024; #line 97 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (36))) goto L_0024; // 98 type # 16_24 %start // 99 %signal 5,5,type %unless type = 16_11 %or type = 16_12 _imp_current_line = 99; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 99 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (17))) goto L_0025; #line 99 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) == (18))) goto L_0025; #line 99 "regression-bugs-tmp/vax-lib.imp" _imp_signal(5, 5, TYPE, ""); #line 99 "regression-bugs-tmp/vax-lib.imp" L_0025:; // 100 %finish _imp_current_line = 100; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 100 "regression-bugs-tmp/vax-lib.imp" L_0024:; // 101 %if type = 64 %start; ! string _imp_current_line = 101; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 101 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) != (64))) goto L_0026; // 102 limit = parm&16_00ffffff -1; ! max length _imp_current_line = 102; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 102 "regression-bugs-tmp/vax-lib.imp" LIMIT = (((int)(((PARM) & (16777215)))) - (1)); // 103 s=""; digit = 0 _imp_current_line = 103; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 103 "regression-bugs-tmp/vax-lib.imp" S = _imp_str_literal(""); _imp_current_line = 103; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 103 "regression-bugs-tmp/vax-lib.imp" DIGIT = 0; // 104 %cycle _imp_current_line = 104; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 104 "regression-bugs-tmp/vax-lib.imp" L_0027:; // 105 readsymbol(sym) _imp_current_line = 105; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 105 "regression-bugs-tmp/vax-lib.imp" _imp_READSYMBOL(&SYM); // 106 %repeat %until sym#' ' %and sym # nl _imp_current_line = 106; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 106 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (32))) goto L_0029; #line 106 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (10))) goto L_0028; #line 106 "regression-bugs-tmp/vax-lib.imp" L_0029:; #line 106 "regression-bugs-tmp/vax-lib.imp" goto L_0027; #line 106 "regression-bugs-tmp/vax-lib.imp" L_0028:; // 107 %cycle _imp_current_line = 107; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 107 "regression-bugs-tmp/vax-lib.imp" L_002a:; // 108 s = s.tostring(sym) _imp_current_line = 108; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 108 "regression-bugs-tmp/vax-lib.imp" S = _imp_join((_imp_string)S,(_imp_string)_imp_TOSTRING(SYM)); // 109 digit=digit+1 _imp_current_line = 109; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 109 "regression-bugs-tmp/vax-lib.imp" DIGIT = (((int)(DIGIT)) + (1)); // 110 sym = nextsymbol _imp_current_line = 110; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 110 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 111 %exit %if sym = ' ' %or sym = nl _imp_current_line = 111; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 111 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (32))) goto L_002d; #line 111 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (10))) goto L_002e; #line 111 "regression-bugs-tmp/vax-lib.imp" L_002d:; #line 111 "regression-bugs-tmp/vax-lib.imp" goto L_002b; #line 111 "regression-bugs-tmp/vax-lib.imp" L_002e:; // 112 skipsymbol _imp_current_line = 112; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 112 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 113 %repeat _imp_current_line = 113; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 113 "regression-bugs-tmp/vax-lib.imp" goto L_002a; #line 113 "regression-bugs-tmp/vax-lib.imp" L_002b:; // 114 %signal 1,3 %if digit > limit _imp_current_line = 114; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 114 "regression-bugs-tmp/vax-lib.imp" if (((DIGIT) <= (LIMIT))) goto L_002f; #line 114 "regression-bugs-tmp/vax-lib.imp" _imp_signal(1, 3, 0, ""); #line 114 "regression-bugs-tmp/vax-lib.imp" L_002f:; // 115 string(address) = s _imp_current_line = 115; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 115 "regression-bugs-tmp/vax-lib.imp" *_imp_STRING(ADDRESS) = S; // 116 %return _imp_current_line = 116; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 116 "regression-bugs-tmp/vax-lib.imp" return; // 117 %finish _imp_current_line = 117; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 117 "regression-bugs-tmp/vax-lib.imp" L_0026:; // 118 // 119 sign = 1 _imp_current_line = 119; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 119 "regression-bugs-tmp/vax-lib.imp" SIGN = 1; // 120 %cycle _imp_current_line = 120; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 120 "regression-bugs-tmp/vax-lib.imp" L_0030:; // 121 sym = nextsymbol _imp_current_line = 121; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 121 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 122 %if sym = '-' %start _imp_current_line = 122; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 122 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (45))) goto L_0033; // 123 %signal 3,1,sym %if sign < 0 _imp_current_line = 123; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 123 "regression-bugs-tmp/vax-lib.imp" if (((SIGN) >= (0))) goto L_0034; #line 123 "regression-bugs-tmp/vax-lib.imp" _imp_signal(3, 1, SYM, ""); #line 123 "regression-bugs-tmp/vax-lib.imp" L_0034:; // 124 sign = -1 _imp_current_line = 124; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 124 "regression-bugs-tmp/vax-lib.imp" SIGN = (-1); // 125 skipsymbol; sym = nextsymbol _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 125 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 125 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 126 %exit _imp_current_line = 126; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 126 "regression-bugs-tmp/vax-lib.imp" goto L_0031; // 127 %finish _imp_current_line = 127; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 127 "regression-bugs-tmp/vax-lib.imp" L_0033:; // 128 %exit %if sym # ' ' %and sym # nl _imp_current_line = 128; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 128 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (32))) goto L_0035; #line 128 "regression-bugs-tmp/vax-lib.imp" if (((SYM) == (10))) goto L_0035; #line 128 "regression-bugs-tmp/vax-lib.imp" goto L_0031; #line 128 "regression-bugs-tmp/vax-lib.imp" L_0035:; // 129 skipsymbol _imp_current_line = 129; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 129 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 130 %repeat _imp_current_line = 130; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 130 "regression-bugs-tmp/vax-lib.imp" goto L_0030; #line 130 "regression-bugs-tmp/vax-lib.imp" L_0031:; // 131 more: _imp_current_line = 131; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 131 "regression-bugs-tmp/vax-lib.imp" U_1001:; // 132 value = 0 _imp_current_line = 132; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 132 "regression-bugs-tmp/vax-lib.imp" VALUE = 0; // 133 limit = int(base) _imp_current_line = 133; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 133 "regression-bugs-tmp/vax-lib.imp" LIMIT = _imp_INT(BASE); // 134 digit = -1; sym = sym - 32 %if 'a'<= sym <= 'z' _imp_current_line = 134; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 134 "regression-bugs-tmp/vax-lib.imp" DIGIT = (-1); _imp_current_line = 134; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 134 "regression-bugs-tmp/vax-lib.imp" if ((((97) > (SYM))) || (((SYM) > (122)))) goto L_0036; #line 134 "regression-bugs-tmp/vax-lib.imp" SYM = (((int)(SYM)) - (32)); #line 134 "regression-bugs-tmp/vax-lib.imp" L_0036:; // 135 digit = sym-'0' %if '0' <= sym <= '9' _imp_current_line = 135; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 135 "regression-bugs-tmp/vax-lib.imp" if ((((48) > (SYM))) || (((SYM) > (57)))) goto L_0037; #line 135 "regression-bugs-tmp/vax-lib.imp" DIGIT = (((int)(SYM)) - (48)); #line 135 "regression-bugs-tmp/vax-lib.imp" L_0037:; // 136 digit = sym -'A'+10 %if 'A'<=sym<='Z' _imp_current_line = 136; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 136 "regression-bugs-tmp/vax-lib.imp" if ((((65) > (SYM))) || (((SYM) > (90)))) goto L_0038; #line 136 "regression-bugs-tmp/vax-lib.imp" DIGIT = (((int)((((int)(SYM)) - (65)))) + (10)); #line 136 "regression-bugs-tmp/vax-lib.imp" L_0038:; // 137 %signal 3,1,sym %unless 0 <= digit < limit %or _imp_current_line = 137; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 137 "regression-bugs-tmp/vax-lib.imp" if ((((0) > (DIGIT))) || (((DIGIT) < (LIMIT)))) goto L_0039; #line 137 "regression-bugs-tmp/vax-lib.imp" L_0032:; #line 137 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (46))) goto L_003a; #line 137 "regression-bugs-tmp/vax-lib.imp" if (((((TYPE) & (32))) != (0))) goto L_0039; #line 137 "regression-bugs-tmp/vax-lib.imp" L_003a:; #line 137 "regression-bugs-tmp/vax-lib.imp" _imp_signal(3, 1, SYM, ""); #line 137 "regression-bugs-tmp/vax-lib.imp" L_0039:; // 138 (sym = '.' %and type&16_20 # 0) // 139 %while 0 <= digit < limit %cycle _imp_current_line = 139; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 139 "regression-bugs-tmp/vax-lib.imp" L_003b:; #line 139 "regression-bugs-tmp/vax-lib.imp" if ((((0) > (DIGIT))) || (((DIGIT) >= (LIMIT)))) goto L_003c; // 140 skipsymbol _imp_current_line = 140; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 140 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); /*Warning: potential loss of precision converting from integer AST_VAR (DIGIT - 4 bytes) to real AST_BINOP ((((double)(VALUE)) * (BASE)) - 0 bytes) detected at ast.c line 108 */ // 141 value = value*base+digit _imp_current_line = 141; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 141 "regression-bugs-tmp/vax-lib.imp" VALUE = (((((double)(VALUE)) * (BASE))) + ((DIGIT))); // 142 sym = nextsymbol _imp_current_line = 142; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 142 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 143 digit = -1; sym=sym-32 %if 'a'<=sym<='z' _imp_current_line = 143; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 143 "regression-bugs-tmp/vax-lib.imp" DIGIT = (-1); _imp_current_line = 143; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 143 "regression-bugs-tmp/vax-lib.imp" if ((((97) > (SYM))) || (((SYM) > (122)))) goto L_003e; #line 143 "regression-bugs-tmp/vax-lib.imp" SYM = (((int)(SYM)) - (32)); #line 143 "regression-bugs-tmp/vax-lib.imp" L_003e:; // 144 digit = sym-'0' %if '0'<=sym<='9' _imp_current_line = 144; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 144 "regression-bugs-tmp/vax-lib.imp" if ((((48) > (SYM))) || (((SYM) > (57)))) goto L_003f; #line 144 "regression-bugs-tmp/vax-lib.imp" DIGIT = (((int)(SYM)) - (48)); #line 144 "regression-bugs-tmp/vax-lib.imp" L_003f:; // 145 digit = sym-'A'+10 %if 'A'<=sym<='Z' _imp_current_line = 145; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 145 "regression-bugs-tmp/vax-lib.imp" if ((((65) > (SYM))) || (((SYM) > (90)))) goto L_0040; #line 145 "regression-bugs-tmp/vax-lib.imp" DIGIT = (((int)((((int)(SYM)) - (65)))) + (10)); #line 145 "regression-bugs-tmp/vax-lib.imp" L_0040:; // 146 %repeat _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 146 "regression-bugs-tmp/vax-lib.imp" goto L_003b; #line 146 "regression-bugs-tmp/vax-lib.imp" L_003c:; // 147 %if sym = '_' %start _imp_current_line = 147; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 147 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (95))) goto L_0041; // 148 base = value _imp_current_line = 148; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 148 "regression-bugs-tmp/vax-lib.imp" BASE = VALUE; // 149 skipsymbol _imp_current_line = 149; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 149 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 150 sym = nextsymbol _imp_current_line = 150; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 150 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 151 ->more _imp_current_line = 151; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 151 "regression-bugs-tmp/vax-lib.imp" goto U_1001; // 152 %finish _imp_current_line = 152; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 152 "regression-bugs-tmp/vax-lib.imp" L_0041:; // 153 %if sym = '.' %and limit = 10 %and type&16_20 # 0 %start _imp_current_line = 153; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 153 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (46))) goto L_0042; #line 153 "regression-bugs-tmp/vax-lib.imp" if (((LIMIT) != (10))) goto L_0042; #line 153 "regression-bugs-tmp/vax-lib.imp" if (((((TYPE) & (32))) == (0))) goto L_0042; // 154 skipsymbol _imp_current_line = 154; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 154 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 155 exp = 0.1 _imp_current_line = 155; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 155 "regression-bugs-tmp/vax-lib.imp" EXP = 0.1; // 156 %cycle _imp_current_line = 156; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 156 "regression-bugs-tmp/vax-lib.imp" L_0043:; // 157 sym = nextsymbol _imp_current_line = 157; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 157 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_NEXTSYMBOL(); // 158 %exit %unless '0' <= sym <= '9' _imp_current_line = 158; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 158 "regression-bugs-tmp/vax-lib.imp" if ((((48) > (SYM))) || (((SYM) <= (57)))) goto L_0047; #line 158 "regression-bugs-tmp/vax-lib.imp" L_0046:; #line 158 "regression-bugs-tmp/vax-lib.imp" goto L_0044; #line 158 "regression-bugs-tmp/vax-lib.imp" L_0047:; /*promote*//*promote*/ // 159 value = value+(sym-'0')*exp _imp_current_line = 159; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 159 "regression-bugs-tmp/vax-lib.imp" VALUE = ((VALUE) + ((double)((((double)((((int)(SYM)) - (48)))) * (EXP))))); // 160 exp = exp*0.1 _imp_current_line = 160; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 160 "regression-bugs-tmp/vax-lib.imp" EXP = (((double)(EXP)) * (0.1)); // 161 skipsymbol _imp_current_line = 161; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 161 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 162 %repeat _imp_current_line = 162; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 162 "regression-bugs-tmp/vax-lib.imp" goto L_0043; #line 162 "regression-bugs-tmp/vax-lib.imp" L_0044:; // 163 %finish _imp_current_line = 163; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 163 "regression-bugs-tmp/vax-lib.imp" L_0042:; // 164 %if sym = '@' %and limit = 10 %and type&16_20 # 0 %start _imp_current_line = 164; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 164 "regression-bugs-tmp/vax-lib.imp" if (((SYM) != (64))) goto L_0048; #line 164 "regression-bugs-tmp/vax-lib.imp" if (((LIMIT) != (10))) goto L_0048; #line 164 "regression-bugs-tmp/vax-lib.imp" if (((((TYPE) & (32))) == (0))) goto L_0048; // 165 skipsymbol _imp_current_line = 165; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 165 "regression-bugs-tmp/vax-lib.imp" _imp_SKIPSYMBOL(); // 166 read(addr(sym), 16_10<<24) _imp_current_line = 166; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 166 "regression-bugs-tmp/vax-lib.imp" READ(_imp_ADDR(&SYM), ((16) << (24))); // 167 value = value*10.0^sym _imp_current_line = 167; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 167 "regression-bugs-tmp/vax-lib.imp" VALUE = ((VALUE) * ((double)(_imp_REXP(10.0, SYM)))); // 168 %finish _imp_current_line = 168; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 168 "regression-bugs-tmp/vax-lib.imp" L_0048:; // 169 value = -value %if sign < 0 _imp_current_line = 169; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 169 "regression-bugs-tmp/vax-lib.imp" if (((SIGN) >= (0))) goto L_0049; #line 169 "regression-bugs-tmp/vax-lib.imp" VALUE = (-(VALUE)); #line 169 "regression-bugs-tmp/vax-lib.imp" L_0049:; // 170 %if type&16_10 # 0 %start; !integral _imp_current_line = 170; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 170 "regression-bugs-tmp/vax-lib.imp" if (((((TYPE) & (16))) == (0))) goto L_004a; // 171 sym = int(value) _imp_current_line = 171; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 171 "regression-bugs-tmp/vax-lib.imp" SYM = _imp_INT(VALUE); // 172 %if type = 16_10 %start _imp_current_line = 172; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 172 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) != (16))) goto L_004b; // 173 integer(address) = sym _imp_current_line = 173; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 173 "regression-bugs-tmp/vax-lib.imp" *_imp_INTEGER(ADDRESS) = SYM; // 174 %else %if type = 16_12 _imp_current_line = 174; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 174 "regression-bugs-tmp/vax-lib.imp" goto L_004c; #line 174 "regression-bugs-tmp/vax-lib.imp" L_004b:; #line 174 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) != (18))) goto L_004d; // 175 byteinteger(address) = sym _imp_current_line = 175; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 175 "regression-bugs-tmp/vax-lib.imp" *_imp_BYTEINTEGER(ADDRESS) = SYM; // 176 %else _imp_current_line = 176; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 176 "regression-bugs-tmp/vax-lib.imp" goto L_004c; #line 176 "regression-bugs-tmp/vax-lib.imp" L_004d:; // 177 shortinteger(address) = sym _imp_current_line = 177; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 177 "regression-bugs-tmp/vax-lib.imp" *_imp_SHORTINTEGER(ADDRESS) = SYM; // 178 %finish _imp_current_line = 178; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 178 "regression-bugs-tmp/vax-lib.imp" L_004c:; // 179 %else %if type = 16_23 _imp_current_line = 179; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 179 "regression-bugs-tmp/vax-lib.imp" goto L_004e; #line 179 "regression-bugs-tmp/vax-lib.imp" L_004a:; #line 179 "regression-bugs-tmp/vax-lib.imp" if (((TYPE) != (35))) goto L_004f; // 180 real(address) = value _imp_current_line = 180; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 180 "regression-bugs-tmp/vax-lib.imp" *_imp_REAL(ADDRESS) = VALUE; // 181 %else _imp_current_line = 181; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 181 "regression-bugs-tmp/vax-lib.imp" goto L_004e; #line 181 "regression-bugs-tmp/vax-lib.imp" L_004f:; // 182 longreal(address) = value _imp_current_line = 182; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 182 "regression-bugs-tmp/vax-lib.imp" *_imp_LONGREAL(ADDRESS) = VALUE; // 183 %finish _imp_current_line = 183; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 183 "regression-bugs-tmp/vax-lib.imp" L_004e:; // 184 %end _imp_current_line = 184; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 184 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block READ at level 1 // 185 // 186 %externalroutine phex(%integer n) #line 186 "regression-bugs-tmp/vax-lib.imp" void PHEX( int N ) #line 186 "regression-bugs-tmp/vax-lib.imp" { __label__ _imp_endofblock; // 187 %integer j,k _imp_current_line = 187; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 187 "regression-bugs-tmp/vax-lib.imp" int J; #line 187 "regression-bugs-tmp/vax-lib.imp" int K; // 188 %for j = 1, 1, 8 %cycle _imp_current_line = 188; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 188 "regression-bugs-tmp/vax-lib.imp" J = 0; if ((((8)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 8"); L_0050:; if (J == 8) goto L_0051; J += 1; // 189 k = (n>>28)&15; n = n<<4 _imp_current_line = 189; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 189 "regression-bugs-tmp/vax-lib.imp" K = (((int)((((unsigned int)(N)) >> (28)))) & (15)); _imp_current_line = 189; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 189 "regression-bugs-tmp/vax-lib.imp" N = ((N) << (4)); // 190 %if k > 9 %then k = k-10+'A' %else k = k+'0' _imp_current_line = 190; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 190 "regression-bugs-tmp/vax-lib.imp" if (((K) <= (9))) goto L_0053; #line 190 "regression-bugs-tmp/vax-lib.imp" K = (((int)((((int)(K)) - (10)))) + (65)); #line 190 "regression-bugs-tmp/vax-lib.imp" goto L_0054; #line 190 "regression-bugs-tmp/vax-lib.imp" L_0053:; #line 190 "regression-bugs-tmp/vax-lib.imp" K = (((int)(K)) + (48)); #line 190 "regression-bugs-tmp/vax-lib.imp" L_0054:; // 191 printsymbol(k) _imp_current_line = 191; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 191 "regression-bugs-tmp/vax-lib.imp" _imp_PRINTSYMBOL(K); // 192 %repeat _imp_current_line = 192; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 192 "regression-bugs-tmp/vax-lib.imp" goto L_0050; #line 192 "regression-bugs-tmp/vax-lib.imp" L_0051:; // 193 %end _imp_current_line = 193; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 193 "regression-bugs-tmp/vax-lib.imp" return; _imp_endofblock: ; } // End of block PHEX at level 1 // 194 // 195 %begin #line 195 "regression-bugs-tmp/vax-lib.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 196 %end _imp_current_line = 196; _imp_current_file = "regression-bugs-tmp/vax-lib.imp"; #line 196 "regression-bugs-tmp/vax-lib.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 // 197 // 198 %endoffile #line 198 "regression-bugs-tmp/vax-lib.imp" // End of file