fix P details when creating execution environment: we should save the old one

2013-09-08 22:24:09 +01:00
parent 4c148cc0d3
commit 6966d23195
4 changed files with 7 additions and 2 deletions
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -1556,7 +1556,7 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap USES_REGS)
    Int bmap = 0;
    int currv = 0;

-    //    printf("MARK %p--%p\n", gc_ENV, gc_ENV-size);
+    // printf("MARK %p--%p\n", gc_ENV, gc_ENV-size);
 #ifdef DEBUG
    if (size <  0 || size > 512)
      fprintf(GLOBAL_stderr,"OOPS in GC: env size for %p is " UInt_FORMAT "\n", gc_ENV, (CELL)size);