Fix by Charles Lindsey: still used reg vars, despite ms_gto

This commit is contained in:
ceriel 1995-07-26 08:44:35 +00:00
parent 41d0c898e5
commit ef30bb3398

View file

@ -263,8 +263,11 @@ int ms;
reg_mes_nr = 0; reg_mes_nr = 0;
in_reg_mes = (ms == ms_reg); in_reg_mes = (ms == ms_reg);
if (ms == ms_gto) if (ms == ms_gto) {
free_all_reg_vars();
nr_reg_vars = 0; nr_flt_vars = 0;
fprint(codefile, "ta 3\n"); fprint(codefile, "ta 3\n");
}
db_mes = (ms == ms_stb || ms == ms_std) ? ms : 0; db_mes = (ms == ms_stb || ms == ms_std) ? ms : 0;
#ifdef __solaris__ #ifdef __solaris__
if (db_mes && ! inits) { if (db_mes && ! inits) {