- ;;
- ;; Some code (the hash table code) depends on this returning a
- ;; positive number so make sure it does.
- (inst slwi res ptr 3)
- (inst srwi res res 1)))
+ ;; FIXME: It would be better if this would mask the lowtag,
+ ;; and shift the result into a positive fixnum like on x86.
+ (inst rlwinm res ptr n-fixnum-tag-bits 1 n-positive-fixnum-bits)))