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

Fixed some sprint's

Browse source
This commit is contained in:
ceriel 1991-04-25 13:54:25 +00:00
parent 0c137374ae
commit 7853446daf
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/pc/comp/declar.g
View file

@ -159,7 +159,7 @@ Label(struct node **pnd;)
*pnd = NULLNODE; *pnd = NULLNODE;
} }
else { else {
sprint(lab, "%d", dot.TOK_INT); sprint(lab, "%d", (int) dot.TOK_INT);
*pnd = MkLeaf(Name, &dot); *pnd = MkLeaf(Name, &dot);
(*pnd)->nd_IDF = str2idf(lab, 1); (*pnd)->nd_IDF = str2idf(lab, 1);
} }

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

@ -145,14 +145,14 @@ stb_type(tp, assign_num)
case T_SET: case T_SET:
addc_db_str('S'); addc_db_str('S');
stb_type(tp->next, 0); stb_type(tp->next, 0);
adds_db_str(sprint(buf, ";%ld;%ld;", tp->tp_size, 0L)); adds_db_str(sprint(buf, ";%ld;%ld;", (long) tp->tp_size, 0L));
break; break;
case T_ARRAY: case T_ARRAY:
addc_db_str('a'); addc_db_str('a');
if (IsConformantArray(tp)) { if (IsConformantArray(tp)) {
addc_db_str('r'); addc_db_str('r');
stb_type(tp->next, 0); stb_type(tp->next, 0);
adds_db_str(sprint(buf, ";A%ld;Z%ld", tp->arr_cfdescr, tp->arr_cfdescr)); adds_db_str(sprint(buf, ";A%ld;Z%ld", (long) tp->arr_cfdescr, (long) tp->arr_cfdescr));
} }
else { else {
stb_type(tp->next, 0); stb_type(tp->next, 0);
@ -168,14 +168,14 @@ stb_type(tp, assign_num)
while (edef) { while (edef) {
adds_db_str(sprint(buf, "%s:%ld,", adds_db_str(sprint(buf, "%s:%ld,",
edef->df_idf->id_text, edef->df_idf->id_text,
edef->enm_val)); (long) edef->enm_val));
edef = edef->enm_next; edef = edef->enm_next;
} }
} }
addc_db_str(';'); addc_db_str(';');
break; break;
case T_RECORD: case T_RECORD:
adds_db_str(sprint(buf, "s%ld", tp->tp_size)); adds_db_str(sprint(buf, "s%ld", (long) tp->tp_size));
{ {
register struct def *sdef = tp->rec_scope->sc_def; register struct def *sdef = tp->rec_scope->sc_def;
@ -185,8 +185,8 @@ stb_type(tp, assign_num)
stb_type(sdef->df_type, 0); stb_type(sdef->df_type, 0);
adds_db_str(sprint(buf, adds_db_str(sprint(buf,
",%ld,%ld;", ",%ld,%ld;",
sdef->fld_off*8, sdef->fld_off*8L,
sdef->df_type->tp_size*8)); sdef->df_type->tp_size*8L));
sdef = sdef->df_nextinscope; sdef = sdef->df_nextinscope;
} }
} }
@ -326,10 +326,10 @@ stb_string(df, kind)
case T_LONG: case T_LONG:
case T_POINTER: case T_POINTER:
case T_PROCEDURE: case T_PROCEDURE:
adds_db_str(sprint(buf, "i%ld;", df->con_const->nd_INT)); adds_db_str(sprint(buf, "i%ld;", (long) df->con_const->nd_INT));
break; break;
case T_CHAR: case T_CHAR:
adds_db_str(sprint(buf, "c%ld;", df->con_const->nd_INT)); adds_db_str(sprint(buf, "c%ld;", (long) df->con_const->nd_INT));
break; break;
case T_REAL: case T_REAL:
addc_db_str('r'); addc_db_str('r');
@ -352,7 +352,7 @@ stb_string(df, kind)
case T_ENUMERATION: case T_ENUMERATION:
addc_db_str('e'); addc_db_str('e');
stb_type(tp, 0); stb_type(tp, 0);
adds_db_str(sprint(buf, ",%ld;", df->enm_val)); adds_db_str(sprint(buf, ",%ld;", (long) df->enm_val));
break; break;
case T_SET: { case T_SET: {
register int i; register int i;
@ -361,7 +361,7 @@ stb_string(df, kind)
stb_type(tp, 0); stb_type(tp, 0);
for (i = 0; i < tp->tp_size; i++) { for (i = 0; i < tp->tp_size; i++) {
adds_db_str(sprint(buf, ",%ld", adds_db_str(sprint(buf, ",%ld",
(df->con_const->nd_set[i/(int) word_size] >> (8*(i%(int)word_size)))&0377)); (long) (df->con_const->nd_set[i/(int) word_size] >> (8*(i%(int)word_size)))&0377));
} }
addc_db_str(';'); addc_db_str(';');
} }