Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• 2830e140
  by Raymond Toy at 2017-08-26T21:53:36-07:00

  Print more info for dynamic space lossage
  
  If we get dynamic space lossage, print out the actual address and the
  expected addresses for the dynamic space so we can see what happened.
  This is really useful if you change the dynamic space address but
  didn't update everything correctly.
  

1 changed file:

• src/lisp/coreparse.c

Changes:

 	switch (id) {

 	  case DYNAMIC_SPACE_ID:

 	      if (addr != (os_vm_address_t) dynamic_0_space

-		  && addr != (os_vm_address_t) dynamic_1_space)

-		  printf("Strange ... dynamic space lossage.\n");

+		  && addr != (os_vm_address_t) dynamic_1_space) {

+                  printf("Strange ... dynamic space lossage: addr = %p, expected %p or %p\n",

+                         addr,

+                         (os_vm_address_t) dynamic_0_space,

+                         (os_vm_address_t) dynamic_1_space);

+              }

+              

 	      current_dynamic_space = (lispobj *) addr;

 #if defined(ibmrt) || defined(i386) || defined(__x86_64)

 	      SetSymbolValue(ALLOCATION_POINTER, (lispobj) free_pointer);