d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

changed references to EM_?SIZE to TEM_?SIZE

Browse source
This commit is contained in:
sater 1984-10-23 15:04:24 +00:00
parent 62f42d18f7
commit a4a5fc4bfa
3 changed files with 19 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
mach/proto/cg/fillem.c
View file

@ -147,7 +147,7 @@ fillemlines() {
case PAR_L:
assert(t == sp_cstx);
if (argval >= 0)
argval += EM_BSIZE;
argval += TEM_BSIZE;
lp->em_optyp = OPINT;
lp->em_u.em_ioper = argval;
lp->em_soper = tostring((word) argval);
@ -263,10 +263,10 @@ dopseudo() {
getarg(ptyp(sp_cst2));
if (argval == ms_emx) {
getarg(ptyp(sp_cst2));
if (argval != EM_WSIZE)
if (argval != TEM_WSIZE)
fatal("bad word size");
getarg(ptyp(sp_cst2));
if (argval != EM_PSIZE)
if (argval != TEM_PSIZE)
fatal("bad pointer size");
if ( getarg(any_ptyp)!=sp_cend )
fatal("too many parameters");
@ -289,10 +289,8 @@ dopseudo() {
regallowed=0;
} else {
r_off = argval;
#ifdef EM_BSIZE
if (r_off >= 0)
r_off += EM_BSIZE;
#endif
r_off += TEM_BSIZE;
getarg(ptyp(sp_cst2));
r_size = argval;
getarg(ptyp(sp_cst2));
@ -514,7 +512,7 @@ char *strarg(t) {
bss(n,t,b) full n; {
register long s;
if (n % EM_WSIZE)
if (n % TEM_WSIZE)
fatal("bad BSS size");
if (b==0
#ifdef BSS_INIT
@ -530,7 +528,7 @@ bss(n,t,b) full n; {
dumplab();
while (n > 0)
n -= (s = con(t));
if (s % EM_WSIZE)
if (s % TEM_WSIZE)
fatal("bad BSS initializer");
}
@ -544,24 +542,24 @@ long con(t) {
case sp_pnam:
part_flush();
con_ilb(argstr);
return((long)EM_PSIZE);
return((long)TEM_PSIZE);
case sp_dlb1:
case sp_dlb2:
case sp_dnam:
case sp_doff:
part_flush();
con_dlb(argstr);
return((long)EM_PSIZE);
return((long)TEM_PSIZE);
case sp_cstx:
con_part(EM_WSIZE,(word)argval);
return((long)EM_WSIZE);
con_part(TEM_WSIZE,(word)argval);
return((long)TEM_WSIZE);
case sp_scon:
for (i = 0; i < strsiz; i++)
con_part(1,(word) str[i]);
return((long)strsiz);
case sp_icon:
case sp_ucon:
if (argval > EM_WSIZE) {
if (argval > TEM_WSIZE) {
part_flush();
con_mult((word)argval);
} else {

6
mach/proto/cg/regvar.c
View file

@ -107,7 +107,7 @@ fixregvars(saveall) {
if (saveall) {
struct reginfo *rp;
rp= &machregs[rvnumbers[rvtyp][i]];
regsave(codestrings[rp->r_repr],(long)-EM_WSIZE,rp->r_size);
regsave(codestrings[rp->r_repr],(long)-TEM_WSIZE,rp->r_size);
} else if(regassigned[rvtyp][i].ra_score>0) {
rv=regassigned[rvtyp][i].ra_rv;
rv->rv_reg=rvnumbers[rvtyp][i];
@ -116,10 +116,6 @@ fixregvars(saveall) {
}
}
f_regsave();
#ifndef EM_BSIZE
for(rv=rvlist;rv!=0;rv=rv->rv_next)
if (rv->rv_off >= 0) rv->rv_off += EM_BSIZE;
#endif
}
isregvar(off) long off; {

14
mach/proto/cg/types.h
View file

@ -1,12 +1,12 @@
/* $Header$ */
#ifndef EM_WSIZE
EM_WSIZE should be defined at this point
#ifndef TEM_WSIZE
TEM_WSIZE should be defined at this point
#endif
#ifndef EM_PSIZE
EM_PSIZE should be defined at this point
#ifndef TEM_PSIZE
TEM_PSIZE should be defined at this point
#endif
#if EM_WSIZE>4 || EM_PSIZE>4
#if TEM_WSIZE>4 || TEM_PSIZE>4
Implementation will not be correct unless a long integer
has more then 4 bytes of precision.
#endif
@ -14,13 +14,13 @@ has more then 4 bytes of precision.
typedef char byte;
typedef char * string;
#if EM_WSIZE>2 || EM_PSIZE>2
#if TEM_WSIZE>2 || TEM_PSIZE>2
#define full long
#else
#define full int
#endif
#if EM_WSIZE>2
#if TEM_WSIZE>2
#define word long
#ifndef WRD_FMT
#define WRD_FMT "%D"