changed references to EM_?SIZE to TEM_?SIZE
This commit is contained in:
parent
62f42d18f7
commit
a4a5fc4bfa
3 changed files with 19 additions and 25 deletions
|
@ -147,7 +147,7 @@ fillemlines() {
|
||||||
case PAR_L:
|
case PAR_L:
|
||||||
assert(t == sp_cstx);
|
assert(t == sp_cstx);
|
||||||
if (argval >= 0)
|
if (argval >= 0)
|
||||||
argval += EM_BSIZE;
|
argval += TEM_BSIZE;
|
||||||
lp->em_optyp = OPINT;
|
lp->em_optyp = OPINT;
|
||||||
lp->em_u.em_ioper = argval;
|
lp->em_u.em_ioper = argval;
|
||||||
lp->em_soper = tostring((word) argval);
|
lp->em_soper = tostring((word) argval);
|
||||||
|
@ -263,10 +263,10 @@ dopseudo() {
|
||||||
getarg(ptyp(sp_cst2));
|
getarg(ptyp(sp_cst2));
|
||||||
if (argval == ms_emx) {
|
if (argval == ms_emx) {
|
||||||
getarg(ptyp(sp_cst2));
|
getarg(ptyp(sp_cst2));
|
||||||
if (argval != EM_WSIZE)
|
if (argval != TEM_WSIZE)
|
||||||
fatal("bad word size");
|
fatal("bad word size");
|
||||||
getarg(ptyp(sp_cst2));
|
getarg(ptyp(sp_cst2));
|
||||||
if (argval != EM_PSIZE)
|
if (argval != TEM_PSIZE)
|
||||||
fatal("bad pointer size");
|
fatal("bad pointer size");
|
||||||
if ( getarg(any_ptyp)!=sp_cend )
|
if ( getarg(any_ptyp)!=sp_cend )
|
||||||
fatal("too many parameters");
|
fatal("too many parameters");
|
||||||
|
@ -289,10 +289,8 @@ dopseudo() {
|
||||||
regallowed=0;
|
regallowed=0;
|
||||||
} else {
|
} else {
|
||||||
r_off = argval;
|
r_off = argval;
|
||||||
#ifdef EM_BSIZE
|
|
||||||
if (r_off >= 0)
|
if (r_off >= 0)
|
||||||
r_off += EM_BSIZE;
|
r_off += TEM_BSIZE;
|
||||||
#endif
|
|
||||||
getarg(ptyp(sp_cst2));
|
getarg(ptyp(sp_cst2));
|
||||||
r_size = argval;
|
r_size = argval;
|
||||||
getarg(ptyp(sp_cst2));
|
getarg(ptyp(sp_cst2));
|
||||||
|
@ -514,7 +512,7 @@ char *strarg(t) {
|
||||||
bss(n,t,b) full n; {
|
bss(n,t,b) full n; {
|
||||||
register long s;
|
register long s;
|
||||||
|
|
||||||
if (n % EM_WSIZE)
|
if (n % TEM_WSIZE)
|
||||||
fatal("bad BSS size");
|
fatal("bad BSS size");
|
||||||
if (b==0
|
if (b==0
|
||||||
#ifdef BSS_INIT
|
#ifdef BSS_INIT
|
||||||
|
@ -530,7 +528,7 @@ bss(n,t,b) full n; {
|
||||||
dumplab();
|
dumplab();
|
||||||
while (n > 0)
|
while (n > 0)
|
||||||
n -= (s = con(t));
|
n -= (s = con(t));
|
||||||
if (s % EM_WSIZE)
|
if (s % TEM_WSIZE)
|
||||||
fatal("bad BSS initializer");
|
fatal("bad BSS initializer");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -544,24 +542,24 @@ long con(t) {
|
||||||
case sp_pnam:
|
case sp_pnam:
|
||||||
part_flush();
|
part_flush();
|
||||||
con_ilb(argstr);
|
con_ilb(argstr);
|
||||||
return((long)EM_PSIZE);
|
return((long)TEM_PSIZE);
|
||||||
case sp_dlb1:
|
case sp_dlb1:
|
||||||
case sp_dlb2:
|
case sp_dlb2:
|
||||||
case sp_dnam:
|
case sp_dnam:
|
||||||
case sp_doff:
|
case sp_doff:
|
||||||
part_flush();
|
part_flush();
|
||||||
con_dlb(argstr);
|
con_dlb(argstr);
|
||||||
return((long)EM_PSIZE);
|
return((long)TEM_PSIZE);
|
||||||
case sp_cstx:
|
case sp_cstx:
|
||||||
con_part(EM_WSIZE,(word)argval);
|
con_part(TEM_WSIZE,(word)argval);
|
||||||
return((long)EM_WSIZE);
|
return((long)TEM_WSIZE);
|
||||||
case sp_scon:
|
case sp_scon:
|
||||||
for (i = 0; i < strsiz; i++)
|
for (i = 0; i < strsiz; i++)
|
||||||
con_part(1,(word) str[i]);
|
con_part(1,(word) str[i]);
|
||||||
return((long)strsiz);
|
return((long)strsiz);
|
||||||
case sp_icon:
|
case sp_icon:
|
||||||
case sp_ucon:
|
case sp_ucon:
|
||||||
if (argval > EM_WSIZE) {
|
if (argval > TEM_WSIZE) {
|
||||||
part_flush();
|
part_flush();
|
||||||
con_mult((word)argval);
|
con_mult((word)argval);
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -107,7 +107,7 @@ fixregvars(saveall) {
|
||||||
if (saveall) {
|
if (saveall) {
|
||||||
struct reginfo *rp;
|
struct reginfo *rp;
|
||||||
rp= &machregs[rvnumbers[rvtyp][i]];
|
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) {
|
} else if(regassigned[rvtyp][i].ra_score>0) {
|
||||||
rv=regassigned[rvtyp][i].ra_rv;
|
rv=regassigned[rvtyp][i].ra_rv;
|
||||||
rv->rv_reg=rvnumbers[rvtyp][i];
|
rv->rv_reg=rvnumbers[rvtyp][i];
|
||||||
|
@ -116,10 +116,6 @@ fixregvars(saveall) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
f_regsave();
|
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; {
|
isregvar(off) long off; {
|
||||||
|
|
|
@ -1,12 +1,12 @@
|
||||||
/* $Header$ */
|
/* $Header$ */
|
||||||
|
|
||||||
#ifndef EM_WSIZE
|
#ifndef TEM_WSIZE
|
||||||
EM_WSIZE should be defined at this point
|
TEM_WSIZE should be defined at this point
|
||||||
#endif
|
#endif
|
||||||
#ifndef EM_PSIZE
|
#ifndef TEM_PSIZE
|
||||||
EM_PSIZE should be defined at this point
|
TEM_PSIZE should be defined at this point
|
||||||
#endif
|
#endif
|
||||||
#if EM_WSIZE>4 || EM_PSIZE>4
|
#if TEM_WSIZE>4 || TEM_PSIZE>4
|
||||||
Implementation will not be correct unless a long integer
|
Implementation will not be correct unless a long integer
|
||||||
has more then 4 bytes of precision.
|
has more then 4 bytes of precision.
|
||||||
#endif
|
#endif
|
||||||
|
@ -14,13 +14,13 @@ has more then 4 bytes of precision.
|
||||||
typedef char byte;
|
typedef char byte;
|
||||||
typedef char * string;
|
typedef char * string;
|
||||||
|
|
||||||
#if EM_WSIZE>2 || EM_PSIZE>2
|
#if TEM_WSIZE>2 || TEM_PSIZE>2
|
||||||
#define full long
|
#define full long
|
||||||
#else
|
#else
|
||||||
#define full int
|
#define full int
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if EM_WSIZE>2
|
#if TEM_WSIZE>2
|
||||||
#define word long
|
#define word long
|
||||||
#ifndef WRD_FMT
|
#ifndef WRD_FMT
|
||||||
#define WRD_FMT "%D"
|
#define WRD_FMT "%D"
|
||||||
|
|
Loading…
Reference in a new issue