mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
107 lines
1.8 KiB
C
107 lines
1.8 KiB
C
/*
|
|
Copyright 1982
|
|
Alcyon Corporation
|
|
8716 Production Ave.
|
|
San Diego, Ca. 92121
|
|
*/
|
|
|
|
#include "parser.h"
|
|
int bol;
|
|
|
|
outinit(tp,type) /* returns - none*/
|
|
struct tnode *tp;
|
|
{
|
|
outexpr(tnalloc(INIT,type,0,0,tp));
|
|
}
|
|
|
|
outcforreg(tp)
|
|
struct tnode *tp;
|
|
{
|
|
outexpr(tnalloc(CFORREG,tp->t_type,0,0,tp));
|
|
}
|
|
|
|
outifgoto(tp,dir,lab)
|
|
struct tnode *tp;
|
|
int dir;
|
|
int lab;
|
|
{
|
|
outexpr(tnalloc(IFGOTO,dir,lab,0,tp));
|
|
}
|
|
|
|
outexpr(tp)
|
|
struct tnode *tp;
|
|
{
|
|
if( !bol )
|
|
putchar('\n');
|
|
printf(".%x\n",lineno);
|
|
outtree(tp);
|
|
}
|
|
|
|
outtree(tp)
|
|
struct tnode *tp;
|
|
{
|
|
if( !tp )
|
|
return;
|
|
printf("%x.%x",tp->t_op,tp->t_type);
|
|
switch( tp->t_op ) {
|
|
|
|
case CINT:
|
|
printf(".%x\n",tp->t_value);
|
|
break;
|
|
|
|
case CLONG:
|
|
printf(".%x.%x\n",tp->t_lvalue.hiword,tp->t_lvalue.loword);
|
|
break;
|
|
|
|
case CFLOAT: /*[vlh] 3.4*/
|
|
printf(".%x.%x\n",tp->t_lvalue.hiword,tp->t_lvalue.loword);
|
|
break;
|
|
|
|
case SYMBOL:
|
|
printf(".%x",tp->t_sc);
|
|
if( tp->t_sc == EXTERNAL )
|
|
printf(".%.8s\n",tp->t_symbol);
|
|
else
|
|
printf(".%x\n",tp->t_offset);
|
|
break;
|
|
|
|
case 0:
|
|
putchar('\n');
|
|
break;
|
|
|
|
case IFGOTO:
|
|
case BFIELD:
|
|
printf(".%x\n",tp->t_dp);
|
|
outtree(tp->t_left);
|
|
break;
|
|
|
|
default:
|
|
putchar('\n');
|
|
outtree(tp->t_left);
|
|
if( binop(tp->t_op) )
|
|
outtree(tp->t_right);
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* snalloc - symbol node allocation*/
|
|
/* Allocates a tree symbol node and sets the info in it*/
|
|
char *snalloc(type,sc,off,dp,ssp) /* returns pointer to node alloc'ed*/
|
|
int type; /* symbol type*/
|
|
int sc; /* storage class*/
|
|
int off; /* offset*/
|
|
int dp; /* dimension pointer or other info*/
|
|
int ssp; /* structure size pointer*/
|
|
{
|
|
register struct symnode *snp;
|
|
|
|
snp = talloc(sizeof(*snp));
|
|
snp->t_op = SYMBOL;
|
|
snp->t_sc = sc;
|
|
snp->t_type = type;
|
|
snp->t_dp = dp;
|
|
snp->t_ssp = ssp;
|
|
snp->t_offset = off;
|
|
return(snp);
|
|
}
|