stassats via Sbcl-commits <
sbcl-c...@lists.sourceforge.net> writes:
> +(define-vop (dpb-c/fixnum)
> + (:generator 2
> + (if (location= posn temp)
> + (inst inc :dword temp)
> + (inst lea :dword temp (ea 1 posn)))
Am I reading this right that this is specific for n-fixnum-tag-bits = 1?
With the more generic version changing the condition to
(and (location= posn temp) (= n-fixnum-tag-bits 1))
and the alternative to
(inst lea :dword temp (eq n-fixnum-tag-bits posn))
?
(I dare say n-fixnum-tag-bits != 1 is currently broken on x86-64 for
more reasons than I'm currently aware of, but it would be nice to not
make things worse.)
Christophe
_______________________________________________
Sbcl-devel mailing list
Sbcl-...@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-devel