projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.12.12:
[sbcl.git]
/
src
/
runtime
/
runtime.c
diff --git
a/src/runtime/runtime.c
b/src/runtime/runtime.c
index
f900828
..
0307d05
100644
(file)
--- a/
src/runtime/runtime.c
+++ b/
src/runtime/runtime.c
@@
-40,9
+40,6
@@
#include "interr.h"
#include "monitor.h"
#include "validate.h"
#include "interr.h"
#include "monitor.h"
#include "validate.h"
-#if defined GENCGC
-#include "gencgc.h"
-#endif
#include "core.h"
#include "save.h"
#include "lispregs.h"
#include "core.h"
#include "save.h"
#include "lispregs.h"
@@
-151,10
+148,10
@@
main(int argc, char *argv[], char *envp[])
lose("more than one core file specified");
} else {
++argi;
lose("more than one core file specified");
} else {
++argi;
- core = copied_string(argv[argi]);
if (argi >= argc) {
lose("missing filename for --core argument");
}
if (argi >= argc) {
lose("missing filename for --core argument");
}
+ core = copied_string(argv[argi]);
++argi;
}
} else if (0 == strcmp(arg, "--end-runtime-options")) {
++argi;
}
} else if (0 == strcmp(arg, "--end-runtime-options")) {
@@
-254,11
+251,6
@@
More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
set_lossage_handler(monitor_or_something);
set_lossage_handler(monitor_or_something);
-#if 0
- os_init();
- gc_init();
- validate();
-#endif
globals_init();
initial_function = load_core_file(core);
globals_init();
initial_function = load_core_file(core);
@@
-268,17
+260,11
@@
More information about SBCL is available at <http://sbcl.sourceforge.net/>.\n\
SHOW("freeing core");
free(core);
SHOW("freeing core");
free(core);
-#if defined GENCGC
- gencgc_pickup_dynamic();
-#else
-#endif
+ gc_initialize_pointers();
#ifdef BINDING_STACK_POINTER
SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
#endif
#ifdef BINDING_STACK_POINTER
SetSymbolValue(BINDING_STACK_POINTER, BINDING_STACK_START);
#endif
-#if defined INTERNAL_GC_TRIGGER && !defined __i386__
- SetSymbolValue(INTERNAL_GC_TRIGGER, make_fixnum(-1));
-#endif
interrupt_init();
interrupt_init();