improve error message.

2011-05-09 19:13:36 +01:00 · 2011-05-09 19:13:36 +01:00 · 0474df0b1f
commit 0474df0b1f
parent a9899c5443
1 changed files with 1 additions and 1 deletions
--- a/C/heapgc.c
+++ b/C/heapgc.c
@ -3282,7 +3282,7 @@ compact_heap( USES_REGS1 )
    fprintf(Yap_stderr,"%% Bad Dest (%lu): %p should be %p\n",
 	    (unsigned long int)LOCAL_GcCalls,
 	    dest,
-	    start_from);
+	    start_from-1);
  if (LOCAL_total_marked != found_marked)
    fprintf(Yap_stderr,"%% Upward (%lu): %lu total against %lu found\n",
 	    (unsigned long int)LOCAL_GcCalls,