# include <stdio.h> # include <signal.h> # include "mfile1" int proflag; int strftn = 0; /* is the current function one which returns a value */ FILE *tmpfile; FILE *outfile = stdout; branch( n ){ /* output a branch to label n */ /* exception is an ordinary function branching to retlab: then, return */ if( n == retlab && !strftn ){ printf( " jmp cret\n" ); } else printf( " jbr L%d\n", n ); } int lastloc = PROG; defalign(n) { /* cause the alignment to become a multiple of n */ n /= SZCHAR; if( lastloc != PROG && n > 1 ) printf( " .even\n" ); } locctr( l ){ register temp; /* l is PROG, ADATA, DATA, STRNG, ISTRNG, or STAB */ if( l == lastloc ) return(l); temp = lastloc; lastloc = l; switch( l ){ case PROG: outfile = stdout; printf( " .text\n" ); break; case DATA: case ADATA: outfile = stdout; if( temp != DATA && temp != ADATA ) printf( " .data\n" ); break; case STRNG: case ISTRNG: outfile = tmpfile; break; case STAB: cerror( "locctr: STAB unused" ); break; default: cerror( "illegal location counter" ); } return( temp ); } deflab( n ){ /* output something to define the current position as label n */ fprintf( outfile, "L%d:\n", n ); } int crslab = 10; getlab(){ /* return a number usable for a label */ return( ++crslab ); } efcode(){ /* code for the end of a function */ if( strftn ){ /* copy output (in r0) to caller */ register struct symtab *p; register int stlab; register int count; int size; p = &stab[curftn]; deflab( retlab ); stlab = getlab(); printf( " mov $L%d,r1\n", stlab ); size = tsize( DECREF(p->stype), p->dimoff, p->sizoff ) / SZCHAR; count = size/2; while( count-- ) { printf( " mov (r0)+,(r1)+\n" ); } printf( " mov $L%d,r0\n", stlab ); printf( " .bss\nL%d: .=.+%d.\n .text\n", stlab, size ); /* turn off strftn flag, so return sequence will be generated */ strftn = 0; } branch( retlab ); p2bend(); } bfcode( a, n ) int a[]; { /* code for the beginning of a function; a is an array of indices in stab for the arguments; n is the number */ register i; register temp; register struct symtab *p; int off; locctr( PROG ); p = &stab[curftn]; defnam( p ); temp = p->stype; temp = DECREF(temp); strftn = (temp==STRTY) || (temp==UNIONTY); retlab = getlab(); if( proflag ){ int plab; plab = getlab(); printf( " mov $L%d,r0\n", plab ); printf( " jsr pc,mcount\n" ); printf( " .bss\nL%d: .=.+2\n .text\n", plab ); } /* routine prolog */ printf( " jsr r5,csv\n" ); /* adjust stack for autos */ printf( " sub $.F%d,sp\n", ftnno ); off = ARGINIT; for( i=0; i<n; ++i ){ p = &stab[a[i]]; if( p->sclass == REGISTER ){ temp = p->offset; /* save register number */ p->sclass = PARAM; /* forget that it is a register */ p->offset = NOOFFSET; oalloc( p, &off ); printf( " mov %d.(r5),r%d\n", p->offset/SZCHAR, temp ); p->offset = temp; /* remember register number */ p->sclass = REGISTER; /* remember that it is a register */ } else { if( oalloc( p, &off ) ) cerror( "bad argument" ); } } } bccode(){ /* called just before the first executable statment */ /* by now, the automatics and register variables are allocated */ SETOFF( autooff, SZINT ); /* set aside store area offset */ p2bbeg( autooff, regvar ); } ejobcode( flag ){ /* called just before final exit */ /* flag is 1 if errors, 0 if none */ } aobeg(){ /* called before removing automatics from stab */ } aocode(p) struct symtab *p; { /* called when automatic p removed from stab */ } aoend(){ /* called after removing all automatics from stab */ } defnam( p ) register struct symtab *p; { /* define the current location as the name p->sname */ if( p->sclass == EXTDEF ){ printf( " .globl %s\n", exname( p->sname ) ); } if( p->sclass == STATIC && p->slevel>1 ) deflab( p->offset ); else printf( "%s:\n", exname( p->sname ) ); } bycode( t, i ){ /* put byte i+1 in a string */ i &= 07; if( t < 0 ){ /* end of the string */ if( i != 0 ) fprintf( outfile, "\n" ); } else { /* stash byte t into string */ if( i == 0 ) fprintf( outfile, " .byte " ); else fprintf( outfile, "," ); fprintf( outfile, "%o", t ); if( i == 07 ) fprintf( outfile, "\n" ); } } zecode( n ){ /* n integer words of zeros */ OFFSZ temp; register i; if( n <= 0 ) return; printf( " " ); for( i=1; i<n; i++ ) { if( i%8 == 0 ) printf( "\n " ); printf( "0; " ); } printf( "0\n" ); temp = n; inoff += temp*SZINT; } fldal( t ) unsigned t; { /* return the alignment of field of type t */ uerror( "illegal field type" ); return( ALINT ); } fldty( p ) struct symtab *p; { /* fix up type of field p */ ; } where(c){ /* print location of error */ /* c is either 'u', 'c', or 'w' */ fprintf( stderr, "%s, line %d: ", ftitle, lineno ); } char *tmpname = "/tmp/pcXXXXXX"; main( argc, argv ) char *argv[]; { int dexit(); register int c; register int i; int r; for( i=1; i<argc; ++i ) if( argv[i][0] == '-' && argv[i][1] == 'X' && argv[i][2] == 'p' ) { proflag = 1; } mktemp(tmpname); if(signal( SIGHUP, SIG_IGN) != SIG_IGN) signal(SIGHUP, dexit); if(signal( SIGINT, SIG_IGN) != SIG_IGN) signal(SIGINT, dexit); if(signal( SIGTERM, SIG_IGN) != SIG_IGN) signal(SIGTERM, dexit); tmpfile = fopen( tmpname, "w" ); r = mainp1( argc, argv ); tmpfile = freopen( tmpname, "r", tmpfile ); if( tmpfile != NULL ) while((c=getc(tmpfile)) != EOF ) putchar(c); else cerror( "Lost temp file" ); unlink(tmpname); return( r ); } dexit( v ) { unlink(tmpname); exit(1); } genswitch(p,n) register struct sw *p;{ /* p points to an array of structures, each consisting of a constant value and a label. The first is >=0 if there is a default label; its value is the label number The entries p[1] to p[n] are the nontrivial cases */ register i; register CONSZ j, range; register dlab, swlab; range = p[n].sval-p[1].sval; if( range>0 && range <= 3*n && n>=4 ){ /* implement a direct switch */ dlab = p->slab >= 0 ? p->slab : getlab(); if( p[1].sval ){ printf( " sub $" ); printf( CONFMT, p[1].sval ); printf( ".,r0\n" ); } /* note that this is a cl; it thus checks for numbers below range as well as out of range. */ printf( " cmp r0,$%ld.\n", range ); printf( " jhi L%d\n", dlab ); printf( " asl r0\n" ); printf( " jmp *L%d(r0)\n", swlab = getlab() ); /* output table */ locctr( ADATA ); defalign( ALPOINT ); deflab( swlab ); for( i=1,j=p[1].sval; i<=n; ++j ){ printf( " L%d\n", ( j == p[i].sval ) ? p[i++].slab : dlab ); } locctr( PROG ); if( p->slab< 0 ) deflab( dlab ); return; } /* debugging code */ /* out for the moment if( n >= 4 ) werror( "inefficient switch: %d, %d", n, (int) (range/n) ); */ /* simple switch code */ for( i=1; i<=n; ++i ){ /* already in r0 */ printf( " cmp r0,$" ); printf( CONFMT, p[i].sval ); printf( ".\n jeq L%d\n", p[i].slab ); } if( p->slab>=0 ) branch( p->slab ); }