From 300ac178de17efe90e59195b19044a270f52d1c3 Mon Sep 17 00:00:00 2001 From: ceriel Date: Tue, 6 Jan 1987 18:45:35 +0000 Subject: [PATCH] Initial revision --- modules/src/em_code/Makefile | 45 ++++++++ modules/src/em_code/k/em.c | 197 +++++++++++++++++++++++++++++++++++ 2 files changed, 242 insertions(+) create mode 100644 modules/src/em_code/Makefile create mode 100644 modules/src/em_code/k/em.c diff --git a/modules/src/em_code/Makefile b/modules/src/em_code/Makefile new file mode 100644 index 000000000..d8a58d793 --- /dev/null +++ b/modules/src/em_code/Makefile @@ -0,0 +1,45 @@ +EMHOME = ../../.. +INSTALL = $(EMHOME)/modules/install +COMPARE = $(EMHOME)/modules/compare + +all: libeme.a libemk.a em_code.3 + +install: all + $(INSTALL) lib/libeme.a + $(INSTALL) lib/libemk.a + $(INSTALL) man/em_code.3 + +compare: all + $(COMPARE) lib/libeme.a + $(COMPARE) lib/libemk.a + $(COMPARE) man/em_code.3 + +em_code.3: em_code.3X + tbl < em_code.3X > em_code.3 + +libeme.a: make.sh e/em_private.h e/em.c + sh make.sh e + -sh -c 'ranlib libeme.a' + +libemk.a: make.sh k/em_private.h k/em.c + sh make.sh k + -sh -c 'ranlib libemk.a' + +make.sh: em.gen em.nogen + make.fun em.gen em.nogen | sh + +em.gen: make.em.gen $(EMHOME)/etc/em_table + make.em.gen > em.gen + +pr: + @pr Makefile make.em.gen make.fun em.nogen e/em_private.h e/em.c k/em_private.h k/em.c + +opr: + make pr | opr + +# don't put the next "rm"s all on one line. the argument list then +# becomes too long for some systems +clean: + rm -f *.o + rm -f *.c + rm -f *.a em_code.3 em.gen make.sh diff --git a/modules/src/em_code/k/em.c b/modules/src/em_code/k/em.c new file mode 100644 index 000000000..84b1a08d0 --- /dev/null +++ b/modules/src/em_code/k/em.c @@ -0,0 +1,197 @@ +/* $Header$ */ +/* EM CODE OUTPUT ROUTINES */ + +#include +#include "em_private.h" + +#define put8(x) putbyte(x) +#define put16(x) put8((int) x); put8((int) (x >> 8)) +#define put32(x) put16((int) x); put16((int) (x >> 16)) + +/* + 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 + various EM language constructs. + See "Description of a Machine Architecture for use with + Block Structured Languages" par. 11.2 for the meaning of these + names. +*/ + +/* supply a kind of buffered output */ + +static char obuf[BUFSIZ]; +static char *opp = &obuf[0]; +static File *ofp = 0; + +static +flush() { + if (sys_write(ofp, &obuf[0], opp - &obuf[0]) == 0) { + sys_stop(S_ABORT); + } + opp = &obuf[0]; +} + +#define Xputbyte(c) if (opp == &obuf[BUFSIZ]) flush(); *opp++ = (c) + +putbyte(b) + int b; +{ + Xputbyte(b); +} + +#define putbyte(c) Xputbyte(c) + +C_open(nm) /* open file for compact code output */ + char *nm; +{ + if (nm == 0) + ofp = STDOUT; /* standard output */ + else + if (sys_open(nm, OP_WRITE, &ofp) == 0) + return 0; + return 1; +} + +C_close() +{ + if (opp != &obuf[0]) flush(); + if (ofp != STDOUT) + sys_close(ofp); + ofp = 0; +} + +C_busy() +{ + return ofp != 0; /* true if code is being generated */ +} + +C_magic() +{ + put16(sp_magic); +} + +/*** the compact code generating routines ***/ +#define fit16i(x) ((x) >= (long)0xFFFF8000 && (x) <= (long)0x00007FFF) +#define fit8u(x) ((x) <= 0xFF) /* x is already unsigned */ + +put_ilb(l) + register label l; +{ + if (fit8u(l)) { + put8(sp_ilb1); + put8(l); + } + else { + put8(sp_ilb2); + put16(l); + } +} + +put_dlb(l) + register label l; +{ + if (fit8u(l)) { + put8(sp_dlb1); + put8(l); + } + else { + put8(sp_dlb2); + put16((int)l); + } +} + +put_cst(l) + register arith l; +{ + if (l >= (arith) -sp_zcst0 && l < (arith) (sp_ncst0 - sp_zcst0)) { + /* we can convert 'l' to an int because its value + can be stored in a byte. + */ + put8((int)l + (sp_zcst0 + sp_fcst0)); + } + else + if (fit16i(l)) { /* the cast from long to int causes no trouble here */ + put8(sp_cst2); + put16((int) l); + } + else { + put8(sp_cst4); + put32(l); + } +} + +put_doff(l, v) + label l; + arith v; +{ + if (v == 0) { + put_dlb(l); + } + else { + put8(sp_doff); + put_dlb(l); + put_cst(v); + } +} + +put_noff(s, v) + char *s; + arith v; +{ + if (v == 0) { + put_dnam(s); + } + else { + put8(sp_doff); + put_dnam(s); + put_cst(v); + } +} + +put_dnam(s) + char *s; +{ + put8(sp_dnam); + put_str(s); +} + +put_pnam(s) + char *s; +{ + put8(sp_pnam); + put_str(s); +} + +put_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); +} + +put_str(s) + register char *s; +{ + register int len; + + put_cst((arith) (len = strlen(s))); + while (--len >= 0) { + put8(*s++); + } +} + +put_scon(b, n) + register char *b; + register arith n; +{ + put8(sp_scon); + put_cst(n); + while (--n >= 0) { + put8(*b++); + } +}