fix bad initialization with tabling.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1439 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-11-04 01:17:17 +00:00
parent bd9ed1e1e6
commit 3e0d7d8749
6 changed files with 19 additions and 9 deletions
--- a/C/tracer.c
+++ b/C/tracer.c
@@ -111,6 +111,8 @@ CELL old_value = 0L, old_value2 = 0L;
 static void
 jmp_deb(int i) {if (i) printf("Here we go\n"); else jmp_deb(0);}

+struct various_codes *sc;
+
 void
 low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
 {
@@ -119,6 +121,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
  Int arity;
  /*  extern int gc_calls; */

+  sc = Yap_heap_regs;
  vsc_count++;
 #ifdef COMMENTED
  //  if (vsc_count == 218280)