![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prof.mail CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcomp|
Return to prof.mail CVS log | Up to [Research Unix] / researchv10no / cmd / lcomp |
1.1 ! root 1: From rabbit!groucho!dcb Tue Sep 4 15:59 EDT 1984 ! 2: #define unsafe 1 /* pretend killing all but C is as good as killing ! 3: * all condition codes */ ! 4: #ifdef unsafe ! 5: #define E (C|K) ! 6: #else ! 7: #define E K ! 8: #endif ! 9: #include "stdio.h" ! 10: #include "instr.c" ! 11: #include "ctype.h" ! 12: struct inst *index[128]; ! 13: ! 14: #define SBBLK 1 /* looking for the start of a basic block */ ! 15: #define SINST 2 /* thinking about generating a tally */ ! 16: #define SPRO 3 /* thinking about generating prolog code */ ! 17: #define SMAYBE 4 /* seen _, thinking about SPRO */ ! 18: ! 19: #define MAXLA 5 /* max no. of lines that can be read for lookahead */ ! 20: ! 21: FILE *outs, *fd, *outl; /* outs goes to assembler, outl is for listing */ ! 22: extern FILE *popen(); ! 23: char line[256], fname[256]; /* file names must fit in fname */ ! 24: ! 25: char labuf[5][256]; /* look ahead needed for 5.0 stab entries */ ! 26: int lastla, lookahead; ! 27: char begfcn[] = " .def .bf"; /* 5.0 stab entry */ ! 28: ! 29: int lineno, lastline; ! 30: int base=0; ! 31: ! 32: int cnt; ! 33: int state = SBBLK; ! 34: char *ptr, *curarg; ! 35: char curdir[256]; ! 36: ! 37: main(argc, argv) ! 38: char **argv; ! 39: { int i; ! 40: if(argc <= 1) { ! 41: fprintf(stderr, "no files given\n"); ! 42: exit(1); ! 43: } ! 44: for(i = 0; insts[i].iname; i++) ! 45: ; ! 46: for(; i >= 0; i--) ! 47: index[insts[i].iname[0]] = insts + i; ! 48: fd = popen("pwd", "r"); ! 49: for(i = 0; i < sizeof(curdir) && !feof(fd); i++) ! 50: curdir[i] = getc(fd); ! 51: curdir[i-2] = 0; /* thisdir\n */ ! 52: fclose(fd); ! 53: for(i = 1; i < argc; i++) { ! 54: if(setfd(argv[i])) /* fix fd, outs, outl */ ! 55: doarg(); /* do the work */ ! 56: } ! 57: exit(0); ! 58: } ! 59: ! 60: setfd(s) ! 61: char *s; ! 62: { char outnams[24], outnaml[24]; ! 63: fname[0] = 0; ! 64: cnt = 3; ! 65: if(fd != NULL) ! 66: fclose(fd); ! 67: if(outs != NULL) ! 68: fclose(outs); ! 69: if(outl != NULL) ! 70: fclose(outl); ! 71: sprintf(outnams, "X%s", s); ! 72: sprintf(outnaml, "%sL", s); ! 73: lastline = lineno = 0; ! 74: fd = fopen(s, "r"); ! 75: if(fd == NULL) { ! 76: perror(s); ! 77: return(0); ! 78: } ! 79: outs = fopen(outnams, "w"); ! 80: if(outs == NULL) { ! 81: perror(outnams); ! 82: return(0); ! 83: } ! 84: outl = fopen(outnaml, "w"); ! 85: if(outl == NULL) { ! 86: perror(outnaml); ! 87: return(0); ! 88: } ! 89: curarg = s; ! 90: return(1); ! 91: } ! 92: ! 93: doarg() ! 94: { struct inst *x, *firstword(); ! 95: ! 96: state = SBBLK; ! 97: lookahead = 0; /* empty buffer */ ! 98: lastla = 0; ! 99: for(;;) { ! 100: if (lookahead != lastla){ ! 101: strcpy(line,labuf[ (lookahead++) % MAXLA ] ); ! 102: if (lookahead == lastla) lookahead = lastla = 0; ! 103: } ! 104: else ! 105: (void) fgets(line, sizeof(line), fd); ! 106: if(feof(fd)) ! 107: break; ! 108: for(ptr = line; isspace(*ptr); *ptr++) ! 109: ; ! 110: if(*ptr == 0 || *ptr == '#') ! 111: continue; ! 112: testlabel(); ! 113: /* deal with symbol table info */ ! 114: if(*ptr == '.') { ! 115: stab(); ! 116: fprintf(outs, " %s", ptr); ! 117: continue; ! 118: } ! 119: if(*ptr == 0 || *ptr == '\n') ! 120: continue; ! 121: x = firstword(); ! 122: if(x == 0){ ! 123: printf("unknown inst: %s\n",ptr); ! 124: continue; ! 125: } ! 126: #ifdef u3b ! 127: if ((state == SMAYBE) && !strncmp(ptr,"save",4)){ ! 128: state = SPRO; ! 129: getlnum(); /* 5.0 true line # */ ! 130: } ! 131: #endif ! 132: if(state == SPRO) ! 133: prolog(x); ! 134: if(state == SINST) ! 135: tally(x); ! 136: if(state == SBBLK && (x->type & JUMP)) ! 137: state = SINST; ! 138: outinstr(); ! 139: if(x->type & BYTE) ! 140: fixinstr(x); ! 141: fprintf(outs, " %s", ptr); ! 142: } ! 143: finish(); ! 144: } ! 145: ! 146: ! 147: getlnum(){ /* get true line number from 5.0 sdb info */ ! 148: char *la; ! 149: int l; ! 150: ! 151: /* get true line number by looking ahead */ ! 152: /* this is necessary for 5.0 sdb output */ ! 153: do ! 154: (void) fgets(labuf[l = ((lastla++)%MAXLA)], sizeof(line), fd); ! 155: while (!feof(fd) && strncmp(begfcn, labuf[l], ! 156: 9) && (lookahead != (lastla)%MAXLA )); ! 157: if ( strncmp(begfcn, labuf[l], 9) ) ! 158: return; /* bad input or not 5.0 */ ! 159: la = labuf[l]; ! 160: while ( *la != '\0' ){ ! 161: while ( *la != ';' && *la != '\0') la++; ! 162: if ( *la == ';' ) la++; ! 163: while ( isspace(*la) ) la++; ! 164: if ( !strncmp(la, ".line" , 5) ){ ! 165: lineno = base = atoi( la + 5 ); ! 166: return; ! 167: } ! 168: } ! 169: } ! 170: ! 171: ! 172: /* unbelievable variability in sdb info */ ! 173: stab() ! 174: { char buf[128]; ! 175: int i, j, k; ! 176: ! 177: #ifndef u3b ! 178: if(state == SMAYBE && strncmp(ptr, ".word", 5) == 0) { ! 179: state = SPRO; ! 180: getlnum(); ! 181: return; ! 182: } ! 183: #endif ! 184: ! 185: if((i = *(ptr + 1)) != 's' && i != 'f' && i != 'l') ! 186: return; ! 187: /* real compiler output */ ! 188: if(sscanf(ptr, ".stabs \"%[^\"]\", %o", buf, &i) == 2 && i == 0144) ! 189: strcat(fname, buf); ! 190: else if(sscanf(ptr, ".stabd %o,%o,%o", &i, &j, &k) == 3 && i == 0104) ! 191: lineno = k; ! 192: /* pwb 3.0 */ ! 193: else if(sscanf(ptr, ".stab %[^,],%[^,],%[^,],%[^,],%[^,],%[^,],%[^,],%[^,],%d", ! 194: buf, buf+2, buf+4, buf+6, buf+8, buf+10, buf+12, buf+14, &i) ! 195: == 9 && i == 144) { ! 196: for(i = k = 0; buf[i] ; i++) ! 197: if(buf[i] == '\'') ! 198: buf[k++] = buf[++i]; ! 199: buf[k] = 0; ! 200: strcat(fname, buf); ! 201: } ! 202: else if(sscanf(ptr, ".stab %[0,]%d,%d,%d", buf,&i, &j, &k) == 4 ! 203: && i == 104) ! 204: lineno = k; ! 205: /* pwb 5.0 */ ! 206: else if(sscanf(ptr," .file \"%[^\"]\"", buf) == 1) ! 207: strcat(fname, buf); ! 208: else if(sscanf(ptr, " .ln %d",&k) == 1) ! 209: lineno = k + base - 1; ! 210: } ! 211: ! 212: testlabel() ! 213: { char *p; ! 214: int i; ! 215: ! 216: for(;;){ ! 217: for(p = ptr; *p; p++) { ! 218: if(*p == ':') ! 219: break; ! 220: if(!isalnum(*p) && *p != '_' && *p != '.') ! 221: return; ! 222: } ! 223: if(*p == 0) ! 224: return; ! 225: *p++ = 0; /* that is overwriting the : */ ! 226: fprintf(outs, "%s:\n", ptr); ! 227: if (lineno != lastline){ ! 228: for (i=lastline+1; i < lineno ; i++) /* allign label with right inst */ ! 229: fprintf(outl, "%d %s: %d\n", 4*(cnt-1), fname, i); ! 230: lastline = lineno - 1; ! 231: } ! 232: fprintf(outl, "%d %s:\n", 4*(cnt - 1), ptr); ! 233: #ifdef u3b ! 234: if(*ptr != '.') ! 235: #else ! 236: if(*ptr == '_' ) ! 237: #endif ! 238: state = SMAYBE; ! 239: else ! 240: if(state != SPRO) ! 241: state = SINST; ! 242: for(ptr = p; isspace(*ptr); ptr++) ! 243: ; ! 244: } /* L68:L70: ... */ ! 245: } ! 246: ! 247: struct inst * ! 248: firstword() ! 249: { char buf[sizeof(line)], *p, *q; ! 250: struct inst *x; ! 251: for(p = buf, q = ptr; isalnum(*q); ) ! 252: *p++ = *q++; ! 253: if(p == buf) ! 254: return((struct inst *)0); ! 255: *p = 0; ! 256: for(x = index[buf[0]]; x && x->iname[0] == buf[0]; x++) ! 257: if(strcmp(buf, x->iname) == 0) ! 258: return(x); ! 259: return(0); ! 260: } ! 261: ! 262: outinstr() ! 263: { int i; ! 264: for(i = lastline + 1; i < lineno; i++) ! 265: fprintf(outl, "%d %s: %d\n", 4*(cnt - 1), fname, i); ! 266: if (lastline != lineno){ ! 267: fprintf(outl, "%d %s: %d\n", 4*(cnt - 1), fname, lineno); ! 268: lastline = lineno; ! 269: } ! 270: fprintf(outl, "%d %s", 4*(cnt - 1), ptr); ! 271: } ! 272: ! 273: #ifdef u3b ! 274: ! 275: /* 3b code ***********************************/ ! 276: tally(x) ! 277: struct inst *x; ! 278: { ! 279: if(x->type & E) ! 280: fprintf(outs, " addw2 &1,locprof+%d\n", 4*cnt++); ! 281: else { ! 282: fprintf(outs, " stsm &1,savecc\n"); ! 283: fprintf(outs, " gcc %%r0\n"); ! 284: fprintf(outs, " addw2 &1,locprof+%d\n", 4*cnt++); ! 285: fprintf(outs, " scc %%r0\n"); ! 286: fprintf(outs, " lsm &1,savecc\n"); ! 287: } ! 288: state = SBBLK; ! 289: } ! 290: ! 291: prolog(x) /* no liveness test, presumes can't get here by jump */ ! 292: struct inst *x; ! 293: { int i; ! 294: fprintf(outs, " .data\n"); ! 295: fprintf(outs, " .globl proFptr\n"); /* the global chain */ ! 296: fprintf(outs, " .globl savecc\n"); ! 297: fprintf(outs, " .text\n"); ! 298: fprintf(outs, " cmpw &0,locprof+4\n"); ! 299: fprintf(outs, " jne .L%da\n", i = cnt); ! 300: fprintf(outs, " movw proFptr,locprof+4\n"); ! 301: fprintf(outs, " movaw locprof,proFptr\n"); ! 302: fprintf(outs, ".L%da: addw2 &1,locprof+%d\n", i, 4*cnt++); ! 303: state = SBBLK; ! 304: } ! 305: ! 306: finish() ! 307: { int i; ! 308: fprintf(outs, " .data\n"); ! 309: fprintf(outs, " .align 4\n"); ! 310: fprintf(outs, "locprof:\n"); ! 311: fprintf(outs, " .word %d\n", cnt); ! 312: fprintf(outs, " .word 0\n"); ! 313: fprintf(outs, " .word .L%db\n", cnt); ! 314: fprintf(outs, " .zero %d\n", 4 * cnt); ! 315: fprintf(outs, ".L%db: .byte ", cnt); ! 316: for(i = 0; curdir[i]; i++) ! 317: fprintf(outs, " 0x%x,", curdir[i]); ! 318: fprintf(outs, " 0x%x\n", '/'); ! 319: fprintf(outs, " .byte "); ! 320: if(fname[0]) ! 321: for(i = 0; fname[i]; i++) ! 322: fprintf(outs, " 0x%x,", fname[i]); ! 323: else ! 324: for(i = 0; curarg[i]; i++) ! 325: fprintf(outs, " 0x%x,", curarg[i]); ! 326: fprintf(outs, "0\n"); ! 327: } ! 328: ! 329: #else ! 330: ! 331: /* Vax code **************************/ ! 332: tally(x) ! 333: struct inst *x; ! 334: { ! 335: if(x->type & E) ! 336: fprintf(outs, " incl locprof+%d\n", 4*cnt++); ! 337: else { ! 338: fprintf(outs, " movpsl -(sp)\n"); ! 339: fprintf(outs, " incl locprof+%d\n", 4*cnt++); ! 340: fprintf(outs, " movw (sp)+,(sp)\n"); ! 341: fprintf(outs, " bicpsw $0xff\n"); ! 342: fprintf(outs, " bispsw (sp)+\n"); ! 343: /* thanks to kirk mckusick */ ! 344: } ! 345: state = SBBLK; ! 346: } ! 347: ! 348: ! 349: prolog(x) /* no liveness test, presumes can't get here by jump */ ! 350: struct inst *x; ! 351: { int i; ! 352: fprintf(outs, " .data\n"); ! 353: fprintf(outs, " .comm _proFptr,4\n"); /* the global chain */ ! 354: fprintf(outs, " .text\n"); ! 355: /*if(!(x->type & E)) ! 356: fprintf(outs, " movpsl -(sp)\n");*/ ! 357: fprintf(outs, " tstl locprof+4\n"); ! 358: fprintf(outs, " bneq .L%da\n", i = cnt); ! 359: fprintf(outs, " movl _proFptr,locprof+4\n"); ! 360: fprintf(outs, " moval locprof,_proFptr\n"); ! 361: fprintf(outs, ".L%da: incl locprof+%d\n", i, 4*cnt++); ! 362: /*if(!(x->type & E)) { ! 363: fprintf(outs, " movw (sp)+,(sp)\n"); ! 364: fprintf(outs, " bicpsw $0xff\n"); ! 365: fprintf(outs, " bispsw (sp)+\n"); ! 366: }*/ ! 367: state = SBBLK; ! 368: } ! 369: ! 370: finish() ! 371: { int i; ! 372: fprintf(outs, " .data\n"); ! 373: fprintf(outs, "locprof: .long %d\n", cnt); ! 374: fprintf(outs, " .long 0\n"); ! 375: fprintf(outs, " .long .L%db\n", cnt); ! 376: fprintf(outs, " .space %d\n", 4 * cnt); ! 377: fprintf(outs, ".L%db: .byte ", cnt); ! 378: for(i = 0; curdir[i]; i++) ! 379: fprintf(outs, "0x%x,", curdir[i]); ! 380: fprintf(outs, "0x%x\n", '/'); ! 381: fprintf(outs, " .byte "); ! 382: if(fname[0]) ! 383: for(i = 0; fname[i]; i++) ! 384: fprintf(outs, "0x%x,", fname[i]); ! 385: else ! 386: for(i = 0; curarg[i]; i++) ! 387: fprintf(outs, "0x%x,", curarg[i]); ! 388: fprintf(outs, "0\n"); ! 389: } ! 390: ! 391: #endif ! 392: ! 393: ! 394: fixinstr(x) ! 395: struct inst *x; ! 396: { ! 397: #ifndef u3b ! 398: if(x->iname[0] == 'b') ! 399: *ptr = 'j'; /* let assembler worry about branches */ ! 400: /* this is where the code for aob and sob goes */ ! 401: #endif ! 402: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.