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

Fix: sometimes generated illegal register messages for parameters

Browse source
This commit is contained in:
ceriel 1991-10-02 12:00:05 +00:00
parent a28c551213
commit 9381b34dfa
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/cem/cemcom.ansi/idf.c
View file

@ -536,14 +536,14 @@ declare_formals(idf, fp)
parameter starts on a new word boundary. parameter starts on a new word boundary.
*/ */
f_offset = align(f_offset + def->df_type->tp_size, (int) word_size); f_offset = align(f_offset + def->df_type->tp_size, (int) word_size);
RegisterAccount(def->df_address, def->df_type->tp_size,
regtype(def->df_type),
def->df_sc);
/* cvt int to char or short and double to float, if necessary /* cvt int to char or short and double to float, if necessary
*/ */
formal_cvt(hasproto, def); formal_cvt(hasproto, def);
def->df_level = L_FORMAL2; /* CJ */ def->df_level = L_FORMAL2; /* CJ */
RegisterAccount(def->df_address, def->df_type->tp_size,
regtype(def->df_type),
def->df_sc);
if (nparams++ >= STDC_NPARAMS) if (nparams++ >= STDC_NPARAMS)
strict("number of formal parameters exceeds ANSI limit"); strict("number of formal parameters exceeds ANSI limit");
#ifdef DBSYMTAB #ifdef DBSYMTAB

2
lang/cem/cemcom.ansi/util.c
View file

@ -205,6 +205,7 @@ LoadLocal(off, sz)
if (p) p->t_count++; if (p) p->t_count++;
#endif #endif
#endif #endif
if (p && p->t_size != sz) p->t_regtype = -1;
if (sz == word_size) C_lol(off); if (sz == word_size) C_lol(off);
else if (sz == dword_size) C_ldl(off); else if (sz == dword_size) C_ldl(off);
else { else {
@ -224,6 +225,7 @@ StoreLocal(off, sz)
if (p) p->t_count++; if (p) p->t_count++;
#endif #endif
#endif #endif
if (p && p->t_size != sz) p->t_regtype = -1;
if (sz == word_size) C_stl(off); if (sz == word_size) C_stl(off);
else if (sz == dword_size) C_sdl(off); else if (sz == dword_size) C_sdl(off);
else { else {