- (inst lea result (make-ea :byte :base result :disp other-pointer-type))
- (inst shl boxed (- type-bits word-shift))
- (inst or boxed code-header-type)
- (storew boxed result 0 other-pointer-type)
- (storew unboxed result code-code-size-slot other-pointer-type)
- (storew nil-value result code-entry-points-slot other-pointer-type))
- (storew nil-value result code-debug-info-slot other-pointer-type)))
+ (inst lea result (make-ea :byte :base result :disp other-pointer-lowtag))
+ (inst shl boxed (- n-widetag-bits word-shift))
+ (inst or boxed code-header-widetag)
+ (storew boxed result 0 other-pointer-lowtag)
+ (storew unboxed result code-code-size-slot other-pointer-lowtag)
+ (storew nil-value result code-entry-points-slot other-pointer-lowtag))
+ (storew nil-value result code-debug-info-slot other-pointer-lowtag)))