diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix previous bug right! (var_array was not a slot so you also should

Browse Source 
remember the last slot).


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@198 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-11-25 21:58:31 +00:00
parent c39fc5e742
commit 88e90c7991
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/amasm.c
View File

@ -2394,7 +2394,7 @@ do_pass(void)
} }
if ( (char *)(label_offset+cpc->rnd1) > freep) if ( (char *)(label_offset+cpc->rnd1) > freep)
freep = (char *)(label_offset+cpc->rnd1); freep = (char *)(label_offset+(cpc->rnd1+1));
label_offset[cpc->rnd1] = (CELL) code_p; label_offset[cpc->rnd1] = (CELL) code_p;
} }
/* reset dealloc_found in case there was a branch */ /* reset dealloc_found in case there was a branch */

2
C/tracer.c
View File

@ -130,7 +130,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
extern int gc_calls; extern int gc_calls;
vsc_count++; vsc_count++;
/* if (vsc_count <178000) return; */ if (vsc_count < 56514000) return;
/* if (vsc_count > 500000) exit(0); */ /* if (vsc_count > 500000) exit(0); */
/* if (gc_calls < 1) return;*/ /* if (gc_calls < 1) return;*/
YP_fprintf(YP_stderr,"%lu ", vsc_count); YP_fprintf(YP_stderr,"%lu ", vsc_count);