godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MINIX squeezing with strings, fixed small preprocessor bug

Browse Source
This commit is contained in:
eck
1990-01-16 15:21:15 +00:00
parent 2b6d2c8407
commit c4e0fddf5b
6 changed files with 29 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lang/cem/cemcom.ansi/code.c
View File

@@ -98,12 +98,21 @@ def_strings(sc)
struct string_cst *sc1 = sc;
C_df_dlb(sc->sc_dlb);
str_cst(sc->sc_value, sc->sc_len);
str_cst(sc->sc_value, sc->sc_len, 1); /* string in rom */
sc = sc->next;
free(sc1->sc_value);
free_string_cst(sc1);
}
}
/* flush_strings() is called from program.g after each external definition */
flush_strings() {
if (str_list) {
def_strings(str_list);
str_list = 0;
}
}
end_code()
{
/* end_code() performs the actions to be taken when closing
@@ -113,8 +122,6 @@ end_code()
/* floating point used */
C_ms_flt();
}
def_strings(str_list);
str_list = 0;
C_ms_src((int)(LineNumber - 2), FileName);
C_close();
}