Use existing function

gsorbier · May 12, 2018 · 8adab9e · 8adab9e
1 parent 746de84
commit 8adab9e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
@@ -2076,8 +2076,7 @@ core and return a descriptor to it."
  (obj-start-addr (logandc2 (descriptor-bits code-object) sb!vm:lowtag-mask))
  (code-end-addr
  (+ obj-start-addr
- (ash (logand (get-header-data code-object)
- sb!vm:short-header-max-words) sb!vm:word-shift)
+ (code-header-bytes code-object)
  (descriptor-fixnum
  (read-wordindexed code-object sb!vm:code-code-size-slot))))
  (gspace-base (gspace-byte-address (descriptor-gspace code-object)))