[Git][cmucl/cmucl][master] Print more info for dynamic space lossage

[Raymond Toy]

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:

=====================================
src/lisp/coreparse.c
=====================================
--- a/src/lisp/coreparse.c
+++ b/src/lisp/coreparse.c
@@ -57,8 +57,13 @@ process_directory(int fd, long *ptr, int count)
 	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);



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/2830e140d5c70d34cfbe32ad18023de6db014926

---
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/2830e140d5c70d34cfbe32ad18023de6db014926
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170829/ef5b0852/attachment.html>