Handbook
Glossary
%compare-float-vector-ccs ( cc -- ccs not? )
Vocabulary
cpu.x86.sse
Inputs
cc
an
object
Outputs
ccs
an
object
not?
an
object
Definition
USING:
combinators
compiler.cfg.comparisons
;
IN:
cpu.x86.sse
:
%compare-float-vector-ccs
( cc -- ccs not? )
{
{
cc<
[
{
{
cc<
f
}
}
f
]
}
{
cc<=
[
{
{
cc<=
f
}
}
f
]
}
{
cc>
[
{
{
cc<
t
}
}
f
]
}
{
cc>=
[
{
{
cc<=
t
}
}
f
]
}
{
cc=
[
{
{
cc=
f
}
}
f
]
}
{
cc<>
[
{
{
cc<
f
}
{
cc<
t
}
}
f
]
}
{
cc<>=
[
{
{
cc<>=
f
}
}
f
]
}
{
cc/<
[
{
{
cc/<
f
}
}
f
]
}
{
cc/<=
[
{
{
cc/<=
f
}
}
f
]
}
{
cc/>
[
{
{
cc/<
t
}
}
f
]
}
{
cc/>=
[
{
{
cc/<=
t
}
}
f
]
}
{
cc/=
[
{
{
cc/=
f
}
}
f
]
}
{
cc/<>
[
{
{
cc/=
f
}
{
cc/<>=
f
}
}
f
]
}
{
cc/<>=
[
{
{
cc/<>=
f
}
}
f
]
}
}
case
;