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

de-linted somewhat

Browse source
This commit is contained in:
ceriel 1990-10-02 17:13:40 +00:00
parent 67ef9905e6
commit 4483f237f6
3 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lang/cem/cemcom.ansi/code.c
View file

@ -456,11 +456,6 @@ code_declaration(idf, expr, lvl, sc)
code_scope(idf->id_text, def); code_scope(idf->id_text, def);
#endif PREPEND_SCOPES #endif PREPEND_SCOPES
def->df_alloc = ALLOC_DONE; def->df_alloc = ALLOC_DONE;
#ifdef DBSYMTAB
if (options['g']) {
stb_string(def, sc, idf->id_text);
}
#endif /* DBSYMTAB */
C_df_dnam(idf->id_text); C_df_dnam(idf->id_text);
} }
} }
@ -477,7 +472,7 @@ code_declaration(idf, expr, lvl, sc)
integer label in EM. integer label in EM.
*/ */
#ifdef DBSYMTAB #ifdef DBSYMTAB
if (options['g']) { if (options['g'] && ! expr) {
stb_string(def, sc, idf->id_text); stb_string(def, sc, idf->id_text);
} }
#endif /* DBSYMTAB */ #endif /* DBSYMTAB */

5
lang/cem/cemcom.ansi/declar.g
View file

@ -268,6 +268,11 @@ initializer(struct idf *idf; int sc;)
loc_init((struct expr *) 0, idf); loc_init((struct expr *) 0, idf);
else code_declaration(idf, expr, level, sc); else code_declaration(idf, expr, level, sc);
} }
#ifdef DBSYMTAB
if (options['g'] && globalflag) {
stb_string(idf->id_def, sc, idf->id_text);
}
#endif /* DBSYMTAB */
init_idf(idf); init_idf(idf);
} }
; ;

9
lang/cem/cemcom.ansi/stab.c
View file

@ -134,7 +134,7 @@ stb_type(tp, assign_num)
if (tp->tp_size > 0) { if (tp->tp_size > 0) {
adds_db_str("ar"); adds_db_str("ar");
stb_type(int_type, 0); stb_type(int_type, 0);
adds_db_str(sprint(buf, ";0;%ld;", tp->tp_size / tp->tp_up->tp_size)); adds_db_str(sprint(buf, ";0;%ld;", tp->tp_size / tp->tp_up->tp_size - 1));
stb_type(tp->tp_up, 0); stb_type(tp->tp_up, 0);
} }
break; break;
@ -272,7 +272,7 @@ stb_string(df, kind, str)
else if (df->df_sc != AUTO && df->df_sc != REGISTER) { else if (df->df_sc != AUTO && df->df_sc != REGISTER) {
/* global */ /* global */
if (df->df_sc == STATIC) { if (df->df_sc == STATIC) {
if (df->df_level == L_LOCAL) { if (df->df_level >= L_LOCAL) {
addc_db_str('V'); addc_db_str('V');
} }
else { else {
@ -284,8 +284,13 @@ stb_string(df, kind, str)
} }
stb_type(tp, 0); stb_type(tp, 0);
addc_db_str(';'); addc_db_str(';');
if (df->df_sc == STATIC && df->df_level >= L_LOCAL) {
C_ms_stb_dlb(db_str.base, N_LCSYM, 0, (label) df->df_address, (arith) 0);
}
else {
C_ms_stb_dnam(db_str.base, N_LCSYM, 0, str, (arith) 0); C_ms_stb_dnam(db_str.base, N_LCSYM, 0, str, (arith) 0);
} }
}
else { /* local variable */ else { /* local variable */
stb_type(tp, 1); /* assign type num to avoid stb_type(tp, 1); /* assign type num to avoid
difficult to parse string */ difficult to parse string */