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