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

Also export EM_wordsize and EM_pointersize.

Browse source
This commit is contained in:
ceriel 1987-01-12 15:42:38 +00:00
parent e77bde5e75
commit 9639f0a87b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
modules/src/read_em/read_em.c
View file

@ -89,6 +89,7 @@ static long wordmask[] = { /* allowed bits in a word */
}; };
static int wsize, psize; /* word size and pointer size */ static int wsize, psize; /* word size and pointer size */
int EM_wordsize, EM_pointersize;
#ifdef CHECKING #ifdef CHECKING
static char *argrange = "Argument range error"; static char *argrange = "Argument range error";
@ -128,7 +129,6 @@ EXPORT int
EM_open(filename) EM_open(filename)
char *filename; char *filename;
{ {
if (EM_initialized) { if (EM_initialized) {
EM_error = "EM_open already called"; EM_error = "EM_open already called";
return 0; return 0;
@ -195,9 +195,11 @@ startmes(p)
} }
argp = ap = getarg(cst_ptyp); argp = ap = getarg(cst_ptyp);
wsize = ap->em_cst; wsize = ap->em_cst;
EM_wordsize = ap->em_cst;
ap->em_next = getarg(cst_ptyp); ap->em_next = getarg(cst_ptyp);
ap = ap->em_next; ap = ap->em_next;
psize = ap->em_cst; psize = ap->em_cst;
EM_pointersize = ap->em_cst;
} }
} }