- (constants (ir2-component-constants 2comp))
- (trace-table (pack-trace-table trace-table))
- (trace-table-len (length trace-table))
- (trace-table-bits (* trace-table-len tt-bits-per-entry))
- (total-length (+ length (ceiling trace-table-bits sb!vm:byte-bits)))
- (box-num (- (length constants) sb!vm:code-trace-table-offset-slot))
- (code-obj
- ;; FIXME: In CMU CL the X86 behavior here depended on
- ;; *ENABLE-DYNAMIC-SPACE-CODE*, but in SBCL we always use
- ;; dynamic space code, so we could make
- ;; ALLOCATE-DYNAMIC-CODE-OBJECT more parallel with
- ;; ALLOCATE-CODE-OBJECT and remove this confusing
- ;; read-macro conditionalization.
- #!+x86
- (%primitive allocate-dynamic-code-object box-num total-length)
- #!-x86
- (%primitive allocate-code-object box-num total-length))
- (fill-ptr (code-instructions code-obj)))
+ (constants (ir2-component-constants 2comp))
+ (trace-table (pack-trace-table trace-table))
+ (trace-table-len (length trace-table))
+ (trace-table-bits (* trace-table-len tt-bits-per-entry))
+ (total-length (+ length
+ (ceiling trace-table-bits sb!vm:n-byte-bits)))
+ (box-num (- (length constants) sb!vm:code-trace-table-offset-slot))
+ (code-obj
+ (%primitive allocate-code-object box-num total-length))
+ (fill-ptr (code-instructions code-obj)))