From d488b4ad319a2770a68526e8a63ef3d508b0732c Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sat, 12 May 2018 18:25:11 -0400 Subject: [PATCH] Remove some junk - target-core had a harmless typo - traceroot had a bit of stupidity --- src/compiler/generic/target-core.lisp | 3 +-- src/runtime/traceroot.c | 4 +--- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp index 91de5f92f1..5112cd297d 100644 --- a/src/compiler/generic/target-core.lisp +++ b/src/compiler/generic/target-core.lisp @@ -79,8 +79,7 @@ (ash sb!vm:simple-fun-code-offset sb!vm:word-shift) (- sb!vm:fun-pointer-lowtag)))) ;; non-x86 backends store the function itself (what else?) in 'self' - #!-(or x86 x86-64) - (setf (%simple-fun-self fun) fun)))))) + #!-(or x86 x86-64) fun))))) ;;; Map of code-component -> list of PC offsets at which allocations occur. ;;; This table is needed in order to enable allocation profiling. diff --git a/src/runtime/traceroot.c b/src/runtime/traceroot.c index 4da3fa95a6..861b4ea0ac 100644 --- a/src/runtime/traceroot.c +++ b/src/runtime/traceroot.c @@ -404,9 +404,7 @@ static struct simple_fun* simple_fun_from_pc(char* pc) { struct code* code = (struct code*)component_ptr_from_pc((lispobj*)pc); if (!code) return 0; - struct simple_fun* prev_fun = (struct simple_fun*) - ((char*)code + (code_header_words(code->header)<