Return to lcatch2.c CVS log

Up to [Research Unix] / researchv10no / cmd / ccom / vax

researchv10 Norman

# include "mfile2.h"
extern int Pflag, bbcnt;
/* a lot of the machine dependent parts of the second pass */

char *
rnames[]= {  /* keyed to register number tokens */
	/* only used in catch2.c */
	"r0", "r1",
	"r2", "r3", "r4",
	"r5", "r6", "r7", "r8", "r9", "r10", "r11",
	"ap", "fp", "sp", "pc" 
	};

eobl2()			/* end of function stuff */
{
}

char *
exname( ix )
char *ix;
{
	/* make a name look like an external name in the local machine */

	static char text[256] = "_";	/* shit for style */

	if( ix == NULL ) cerror("no name in exname");
	strncpy(text+1, ix, sizeof(text)-2);
	if(strlen(ix) > sizeof(text)-2)
		cerror("buffer too short in exname");
	return( text );
}

lineid( l, fn )
int l;
char *fn;
{
	/* identify line l and file fn */
	printx( "#	line %d, file %s\n", l, fn );
}

deflab( n )	/* cgram.y, local.c, trees.c */
int n;
{
	printx( "L%d:\n", n );
}


genubr( n )	/* only used in local.c */
int n;
{
	/* output a branch to label n */
	printx( "\tjbr\tL%d\n", n );
	if(Pflag)
		printx("#jmp L%d\n", n);
}
genret( s, l, n )	/* only used in local.c! */
int s, l, n;
{
	/* a return: s nonzero means a structure returned */
	/* n has the value of "retlab", a common spot for returns */
	deflab(n);
	if( s ) printx( "\tmovab\tL%d,r0\n", l );
	if(Pflag) {
		printx("#ret %d\n", ++bbcnt);
		printx("\tincl\tlocprof+%d\n", 4*(bbcnt+3));
	}
	dbfunret();
	printx( "\tret\n" );
}

defalign(n)	/* used only in pftn.c */
int n;
{
	/* cause the alignment to become a multiple of n bits */
	if( n % SZCHAR ) cerror( "funny alignment: %d", n );
	else n /= SZCHAR;
	if( n == 1 ) return;
	else if( n==2 ) n=1;
	else if( n==4 ) n=2;
	else cerror( "funny alignment: %d", n );
	printx( "\t.align\t%d\n", n );
}

char *locnames[] = {	/* only used in trees.c */
	/* location counter names for PROG, DATA, ADATA, ISTRNG, STRNG */
	"	.text\n",
	"	.data\n",
	"	.data\n",
	"	.data	2\n",
	"	.data	1\n",
	};

bycode( t, i )	/* this is used only in scan.c!! (second pass stuff?) */
int t, i;
{
	/* put byte i+1 in a string */

	if ( t < 0 ) { /* end of the string */
		printx("\n");
	} else { /* stash byte t into string */
		if( (i&7) == 0 ) printx( "\n	.byte	" );
		else printx(",");
		printx("0x%x", t);
	}
}

genlong(l)	/* only in local.c */
long l;
{
	/* write out a long initializer */
	printx("\t.long\t0x%lx\n", l);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.