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

Delinted some more

Browse source
This commit is contained in:
ceriel 1991-02-18 12:05:06 +00:00
parent 3660ea15c5
commit 59fe948f83
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/pc/comp/def.c
View file

@ -121,7 +121,7 @@ DoDirective(directive, nd, tp, scl, function)
struct type *tp; struct type *tp;
struct scopelist *scl; struct scopelist *scl;
{ {
int kind; /* kind of directive */ long kind; /* kind of directive */
int inp; /* internal or external name */ int inp; /* internal or external name */
int ext = 0; /* directive = EXTERN */ int ext = 0; /* directive = EXTERN */
struct def *df = lookup(directive, PervasiveScope, D_INUSE); struct def *df = lookup(directive, PervasiveScope, D_INUSE);

6
lang/pc/comp/stab.c
View file

@ -220,11 +220,11 @@ stb_type(tp, assign_num)
break; break;
case T_FILE: case T_FILE:
addc_db_str('L'); addc_db_str('L');
stb_type(tp->next); stb_type(tp->next, 0);
break; break;
case T_STRING: case T_STRING:
addc_db_str('*'); addc_db_str('*');
stb_type(char_type); stb_type(char_type, 0);
break; break;
} }
} }
@ -268,7 +268,7 @@ stb_string(df, kind)
case D_END: case D_END:
case D_PEND: case D_PEND:
adds_db_str(sprint(buf, "E%d;", df->prc_vis->sc_count)); adds_db_str(sprint(buf, "E%d;", df->prc_vis->sc_count));
C_ms_stb_cst(db_str.base, N_SCOPE, proclevel, 0); C_ms_stb_cst(db_str.base, N_SCOPE, proclevel, (arith)0);
break; break;
case D_VARIABLE: case D_VARIABLE:
if (df->df_flags & D_VARPAR) { /* VAR parameter */ if (df->df_flags & D_VARPAR) { /* VAR parameter */