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

bug fix

Browse source
This commit is contained in:
ceriel 1987-02-05 18:33:44 +00:00
parent f5f7a6cb2a
commit d5d4c551c5
2 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -54,7 +54,10 @@ _fill()
#define STRSIZ 256 /* Maximum length of strings */ #define STRSIZ 256 /* Maximum length of strings */
static struct e_instr emhead; /* Where we put the head */ static struct e_instr emhead; /* Where we put the head */
static struct e_args emargs[NARGS]; /* Where we put the arguments */ static struct e_args emargs[NARGS+2]; /* Where we put the arguments.
We need some more because some
arguments are constructed
*/
static struct e_args *i_emargs; static struct e_args *i_emargs;
#define argentry() (i_emargs++) #define argentry() (i_emargs++)
static struct string { static struct string {

19
modules/src/read_em/readk.c
View file

@ -132,16 +132,17 @@ getarg(typset)
case sp_doff: /* A data label + offset */ case sp_doff: /* A data label + offset */
{ {
register struct e_args *ap1, *ap2; register struct e_args *ap1;
ap1 = getarg(lab_ptyp); ap1 = getarg(lab_ptyp);
ap2 = getarg(cst_ptyp);
*ap = *ap1; *ap = *ap1;
if (ap->em_argtype == sof_ptyp) { /* non-numeric label */ i_emargs--;
ap->em_soff = ap2->em_cst; ap1 = getarg(cst_ptyp);
if (argtyp == sof_ptyp) { /* non-numeric label */
ap->em_soff = ap1->em_cst;
} }
else ap->em_noff = ap2->em_cst; else ap->em_noff = ap1->em_cst;
i_emargs -= 2; i_emargs--;
break; break;
} }
@ -149,10 +150,10 @@ getarg(typset)
case sp_ucon: /* An unsigned constant */ case sp_ucon: /* An unsigned constant */
case sp_fcon: /* A floating constant */ case sp_fcon: /* A floating constant */
{ {
register struct e_args *ap1;
register struct string *p; register struct string *p;
ap1 = getarg(cst_ptyp); ap->em_size = getarg(cst_ptyp)->em_cst;
i_emargs--;
p = getstring(0); p = getstring(0);
#ifdef CHECKING #ifdef CHECKING
if (state & INSTRING) { if (state & INSTRING) {
@ -161,8 +162,6 @@ getarg(typset)
#endif CHECKING #endif CHECKING
ap->em_argtype = ptyp(i); ap->em_argtype = ptyp(i);
ap->em_str = p->str; ap->em_str = p->str;
ap->em_size = ap1->em_cst;
i_emargs--;
break; break;
} }