fix unification bug.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@569 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-08-13 16:51:37 +00:00
parent 00033ba7af
commit 742299360c
3 changed files with 11 additions and 4 deletions

View File

@@ -112,13 +112,14 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
/* extern int gc_calls; */
vsc_count++;
if (vsc_count == 32) {
/* if (vsc_count < 123808900) return; */
if (vsc_count == 134) {
printf("Here I go\n");
}
/* if (vsc_count > 500000) exit(0); */
/* if (gc_calls < 1) return;*/
#if defined(__GNUC__)
YP_fprintf(YP_stderr,"%llu, %p ", vsc_count, H);
YP_fprintf(YP_stderr,"%llu, %p %p %x ", vsc_count, H, TR, *(CELL *)0x91ca260);
#endif
/* check_trail_consistency(); */
if (pred == NULL) {