godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

all external names start with C_

Browse Source
This commit is contained in:
ceriel
1987-06-30 16:09:36 +00:00
parent 17a3ce53b4
commit e67875114f
2 changed files with 43 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
modules/src/em_code/k/em.c
View File

@@ -15,7 +15,7 @@
/*
C_putbyte(), C_open() and C_close() are the basic routines for
respectively write on, open and close the output file.
The put_*() functions serve as formatting functions of the
The C_pt_*() functions serve as formatting functions of the
various EM language constructs.
See "Description of a Machine Architecture for use with
Block Structured Languages" par. 11.2 for the meaning of these
@@ -84,7 +84,7 @@ C_magic()
#define fit16i(x) ((x) >= (long)0xFFFF8000 && (x) <= (long)0x00007FFF)
#define fit8u(x) ((x) <= 0xFF) /* x is already unsigned */
put_ilb(l)
C_pt_ilb(l)
register label l;
{
if (fit8u(l)) {
@@ -97,7 +97,7 @@ put_ilb(l)
}
}
put_dlb(l)
C_pt_dlb(l)
register label l;
{
if (fit8u(l)) {
@@ -110,7 +110,7 @@ put_dlb(l)
}
}
put_cst(l)
C_pt_cst(l)
register arith l;
{
if (l >= (arith) -sp_zcst0 && l < (arith) (sp_ncst0 - sp_zcst0)) {
@@ -130,76 +130,76 @@ put_cst(l)
}
}
put_doff(l, v)
C_pt_doff(l, v)
label l;
arith v;
{
if (v == 0) {
put_dlb(l);
C_pt_dlb(l);
}
else {
put8(sp_doff);
put_dlb(l);
put_cst(v);
C_pt_dlb(l);
C_pt_cst(v);
}
}
put_noff(s, v)
C_pt_noff(s, v)
char *s;
arith v;
{
if (v == 0) {
put_dnam(s);
C_pt_dnam(s);
}
else {
put8(sp_doff);
put_dnam(s);
put_cst(v);
C_pt_dnam(s);
C_pt_cst(v);
}
}
put_dnam(s)
C_pt_dnam(s)
char *s;
{
put8(sp_dnam);
put_str(s);
C_pt_str(s);
}
put_pnam(s)
C_pt_pnam(s)
char *s;
{
put8(sp_pnam);
put_str(s);
C_pt_str(s);
}
put_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */
int sp;
char *v;
arith sz;
{
/* how 'bout signextension int --> long ??? */
put8(sp);
put_cst(sz);
put_str(v);
C_pt_cst(sz);
C_pt_str(v);
}
put_str(s)
C_pt_str(s)
register char *s;
{
register int len;
put_cst((arith) (len = strlen(s)));
C_pt_cst((arith) (len = strlen(s)));
while (--len >= 0) {
put8(*s++);
}
}
put_scon(b, n)
C_pt_scon(b, n)
register char *b;
register arith n;
{
put8(sp_scon);
put_cst(n);
C_pt_cst(n);
while (--n >= 0) {
put8(*b++);
}