18 lines
612 B
Factor
18 lines
612 B
Factor
! Copyright (C) 2008, 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: fry kernel compiler.cfg.stacks compiler.cfg.hats
|
|
compiler.cfg.instructions compiler.cfg.utilities ;
|
|
IN: compiler.cfg.intrinsics.float
|
|
|
|
: emit-float-ordered-comparison ( cc -- )
|
|
'[ _ ^^compare-float-ordered ] binary-op ; inline
|
|
|
|
: emit-float-unordered-comparison ( cc -- )
|
|
'[ _ ^^compare-float-unordered ] binary-op ; inline
|
|
|
|
: emit-unary-float-function ( func -- )
|
|
'[ _ ^^unary-float-function ] unary-op ;
|
|
|
|
: emit-binary-float-function ( func -- )
|
|
'[ _ ^^binary-float-function ] binary-op ;
|