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

remove debugging support

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-12-15 00:16:59 +00:00
parent 7811a697b8
commit 6e94d6b37e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/heapgc.c
View File

@ -3374,16 +3374,12 @@ compact_heap( USES_REGS1 )
ptr[0] = EndSpecials; ptr[0] = EndSpecials;
dest -= nofcells; dest -= nofcells;
current = ptr; current = ptr;
fprintf(stderr,"%p B\n",current);
int i; for (i=0; i < nofcells;i++)
fprintf(stderr,"%p U\n",current+i);
/* process the functor on a separate cycle */ /* process the functor on a separate cycle */
DEBUG_printf21("%p %ld\n", current-1, (long int)(nofcells+1)); DEBUG_printf21("%p %ld\n", current-1, (long int)(nofcells+1));
continue; continue;
} else { } else {
DEBUG_printf20("%p 1\n", current); DEBUG_printf20("%p 1\n", current);
} }
fprintf(stderr,"%p U\n",current);
#ifdef DEBUG #ifdef DEBUG
found_marked++; found_marked++;
#endif /* DEBUG */ #endif /* DEBUG */
@ -3407,7 +3403,6 @@ compact_heap( USES_REGS1 )
if (in_garbage) if (in_garbage)
start_from[0] = in_garbage; start_from[0] = in_garbage;
fprintf(stderr,"done\n");
#ifdef DEBUG #ifdef DEBUG
if (dest != start_from-1) if (dest != start_from-1)
fprintf(GLOBAL_stderr,"%% Bad Dest (%lu): %p should be %p\n", fprintf(GLOBAL_stderr,"%% Bad Dest (%lu): %p should be %p\n",