projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.43.46: Simplify some type tests to EQL comparisons
[sbcl.git]
/
src
/
runtime
/
purify.c
diff --git
a/src/runtime/purify.c
b/src/runtime/purify.c
index
e033c7d
..
90c4669
100644
(file)
--- a/
src/runtime/purify.c
+++ b/
src/runtime/purify.c
@@
-27,7
+27,6
@@
#include "interrupt.h"
#include "purify.h"
#include "interr.h"
#include "interrupt.h"
#include "purify.h"
#include "interr.h"
-#include "fixnump.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
@@
-955,7
+954,7
@@
purify(lispobj static_roots, lispobj read_only_roots)
fflush(stdout);
#endif
pscav((lispobj *)all_threads->control_stack_start,
fflush(stdout);
#endif
pscav((lispobj *)all_threads->control_stack_start,
- current_control_stack_pointer -
+ access_control_stack_pointer(all_threads) -
all_threads->control_stack_start,
0);
all_threads->control_stack_start,
0);
@@
-965,7
+964,7
@@
purify(lispobj static_roots, lispobj read_only_roots)
#endif
pscav( (lispobj *)all_threads->binding_stack_start,
#endif
pscav( (lispobj *)all_threads->binding_stack_start,
- (lispobj *)current_binding_stack_pointer -
+ (lispobj *)get_binding_stack_pointer(all_threads) -
all_threads->binding_stack_start,
0);
all_threads->binding_stack_start,
0);
@@
-1023,15
+1022,18
@@
purify(lispobj static_roots, lispobj read_only_roots)
printf(" cleanup");
fflush(stdout);
#endif
printf(" cleanup");
fflush(stdout);
#endif
+#ifdef LISP_FEATURE_HPUX
+ clear_auto_gc_trigger(); /* restore mmap as it was given by os */
+#endif
os_zero((os_vm_address_t) current_dynamic_space,
(os_vm_size_t) dynamic_space_size);
/* Zero the stack. */
os_zero((os_vm_address_t) current_dynamic_space,
(os_vm_size_t) dynamic_space_size);
/* Zero the stack. */
- os_zero((os_vm_address_t) current_control_stack_pointer,
+ os_zero((os_vm_address_t) access_control_stack_pointer(all_threads),
(os_vm_size_t)
((all_threads->control_stack_end -
(os_vm_size_t)
((all_threads->control_stack_end -
- current_control_stack_pointer) * sizeof(lispobj)));
+ access_control_stack_pointer(all_threads)) * sizeof(lispobj)));
/* It helps to update the heap free pointers so that free_heap can
* verify after it's done. */
/* It helps to update the heap free pointers so that free_heap can
* verify after it's done. */