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

only check duplicate ms_emx

Browse source
This commit is contained in:
ceriel 1988-06-15 15:25:50 +00:00
parent 16e657858a
commit c68c06d0c3
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -191,16 +191,19 @@ startmes(p)
state = MES; state = MES;
if (p->em_cst == ms_emx) { if (p->em_cst == ms_emx) {
if (wsize || psize) {
if (!EM_error) EM_error = "Duplicate ms_emx";
}
p = &aheads[ahead++]; p = &aheads[ahead++];
getarg(cst_ptyp, &(p->em_arg)); getarg(cst_ptyp, &(p->em_arg));
if (wsize && p->em_cst != wsize && !EM_error) {
EM_error = "Different wordsize in duplicate ms_emx";
}
wsize = p->em_cst; wsize = p->em_cst;
EM_wordsize = p->em_cst; EM_wordsize = p->em_cst;
p->em_type = EM_MESARG; p->em_type = EM_MESARG;
p = &aheads[ahead++]; p = &aheads[ahead++];
getarg(cst_ptyp, &(p->em_arg)); getarg(cst_ptyp, &(p->em_arg));
if (psize && p->em_cst != psize && !EM_error) {
EM_error = "Different pointersize in duplicate ms_emx";
}
psize = p->em_cst; psize = p->em_cst;
EM_pointersize = p->em_cst; EM_pointersize = p->em_cst;
p->em_type = EM_MESARG; p->em_type = EM_MESARG;