Remove some junk

- target-core had a harmless typo
- traceroot had a bit of stupidity

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.

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)<<WORD_SHIFT)
- + FIRST_SIMPLE_FUN_OFFSET(code));
+ struct simple_fun* prev_fun = 0;
  for_each_simple_fun(i, fun, code, 1, {
  if (pc < (char*)fun) break;
  prev_fun = fun;