steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Forgot about float= intrinsic

db4
Slava Pestov 2008-11-03 07:15:09 -06:00
parent 75e9708488
commit 82e9eedd39
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/cfg/intrinsics/intrinsics.factor
View File

@ -76,6 +76,7 @@ IN: compiler.cfg.intrinsics
math.private:float<= math.private:float<=
math.private:float> math.private:float>
math.private:float>= math.private:float>=
math.private:float=
alien.accessors:alien-float alien.accessors:alien-float
alien.accessors:set-alien-float alien.accessors:set-alien-float
alien.accessors:alien-double alien.accessors:alien-double
@ -108,7 +109,7 @@ IN: compiler.cfg.intrinsics
{ \ math.private:float<= [ drop cc<= emit-float-comparison ] } { \ math.private:float<= [ drop cc<= emit-float-comparison ] }
{ \ math.private:float>= [ drop cc>= emit-float-comparison ] } { \ math.private:float>= [ drop cc>= emit-float-comparison ] }
{ \ math.private:float> [ drop cc> emit-float-comparison ] } { \ math.private:float> [ drop cc> emit-float-comparison ] }
{ \ math.private:float= [ drop cc> emit-float-comparison ] } { \ math.private:float= [ drop cc= emit-float-comparison ] }
{ \ math.private:float>fixnum [ drop emit-float>fixnum ] } { \ math.private:float>fixnum [ drop emit-float>fixnum ] }
{ \ math.private:fixnum>float [ drop emit-fixnum>float ] } { \ math.private:fixnum>float [ drop emit-fixnum>float ] }
{ \ slots.private:slot [ emit-slot ] } { \ slots.private:slot [ emit-slot ] }