factor/basis/compiler/cfg/intrinsics/float/float.factor

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: compiler.cfg.hats compiler.cfg.stacks fry ;
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
Debugging untagged fixnums 2010-04-22 04:21:23 -04:00			`! Copyright (C) 2008, 2010 Slava Pestov.`
More work on intrinsics; memory allocation and slot access now expands correctly 2008-10-20 21:40:15 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
compiler: cleanup usings. 2014-12-13 19:10:21 -05:00			`USING: compiler.cfg.hats compiler.cfg.stacks fry ;`
More work on intrinsics; memory allocation and slot access now expands correctly 2008-10-20 21:40:15 -04:00			`IN: compiler.cfg.intrinsics.float`

math: add unordered comparison operators u< u<= u> u>= which behave exactly like < <= > >= except no floating point exceptions are set if one or both inputs are NaNs; also add efficient intrinsic for unordered? predicate, and fix propagation type functions for abs, absq, and bitnot 2009-09-12 23:20:13 -04:00			`: emit-float-ordered-comparison ( cc -- )`
Debugging untagged fixnums 2010-04-22 04:21:23 -04:00			`'[ _ ^^compare-float-ordered ] binary-op ; inline`
math: add unordered comparison operators u< u<= u> u>= which behave exactly like < <= > >= except no floating point exceptions are set if one or both inputs are NaNs; also add efficient intrinsic for unordered? predicate, and fix propagation type functions for abs, absq, and bitnot 2009-09-12 23:20:13 -04:00
			`: emit-float-unordered-comparison ( cc -- )`
Debugging untagged fixnums 2010-04-22 04:21:23 -04:00			`'[ _ ^^compare-float-unordered ] binary-op ; inline`