Skip to content
Snippets Groups Projects
Commit 33c31966 authored by ram's avatar ram
Browse files

Moved POINTER-COMPARE to char, since it is now loaded first.

parent df6a571f
No related branches found
No related tags found
No related merge requests found
......@@ -61,19 +61,6 @@
(loadw res x (/ clc::bignum-header-size 4))
(emit-label fixp))))
(define-vop (pointer-compare)
(:args (x :scs (any-reg descriptor-reg))
(y :scs (any-reg descriptor-reg)))
(:conditional)
(:info target not-p)
(:policy :fast-safe)
(:note "inline comparison")
(:variant-vars condition)
(:generator 3
(inst cl x y)
(if not-p
(inst bnb condition target)
(inst bb condition target))))
(macrolet ((frob (name cond)
`(progn
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment