Skip to content
Snippets Groups Projects
Commit 2830e140 authored by Raymond Toy's avatar Raymond Toy
Browse files

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.
parent fbfc55c1
No related branches found
No related tags found
No related merge requests found
......@@ -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);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment