73 lines
1.6 KiB
Factor
73 lines
1.6 KiB
Factor
! Copyright (C) 2005, 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
REQUIRES: core/compiler/x86 ;
|
|
USING: alien arrays assembler-x86 generic kernel
|
|
kernel-internals math math-internals memory namespaces sequences
|
|
words errors ;
|
|
IN: generator
|
|
|
|
M: word v>operand
|
|
dup \ allot-tmp-reg eq? [
|
|
drop allot-tmp-reg
|
|
] [
|
|
"Invalid input to v>operand" throw
|
|
] if ;
|
|
|
|
M: float-regs (%peek)
|
|
drop
|
|
allot-tmp-reg PUSH
|
|
\ allot-tmp-reg swap %move-int>int
|
|
\ allot-tmp-reg %move-int>float
|
|
allot-tmp-reg POP ;
|
|
|
|
M: float-regs (%replace) drop swap %move-float>int ;
|
|
|
|
: define-float-op ( word op -- )
|
|
[ "x" operand "y" operand ] swap add H{
|
|
{ +input+ { { float "x" } { float "y" } } }
|
|
{ +output+ { "x" } }
|
|
} define-intrinsic ;
|
|
|
|
{
|
|
{ float+ ADDSD }
|
|
{ float- SUBSD }
|
|
{ float* MULSD }
|
|
{ float/f DIVSD }
|
|
} [
|
|
first2 define-float-op
|
|
] each
|
|
|
|
: define-float-jump ( word op -- )
|
|
[ "x" operand "y" operand UCOMISD ] swap add
|
|
{ { float "x" } { float "y" } } define-if-intrinsic ;
|
|
|
|
{
|
|
{ float< JB }
|
|
{ float<= JBE }
|
|
{ float> JA }
|
|
{ float>= JAE }
|
|
{ float= JE }
|
|
} [
|
|
first2 define-float-jump
|
|
] each
|
|
|
|
\ float>fixnum [
|
|
"out" operand "in" operand CVTTSD2SI
|
|
"out" operand tag-bits SHL
|
|
] H{
|
|
{ +input+ { { float "in" } } }
|
|
{ +scratch+ { { f "out" } } }
|
|
{ +output+ { "out" } }
|
|
} define-intrinsic
|
|
|
|
\ fixnum>float [
|
|
"in" operand %untag-fixnum
|
|
"out" operand "in" operand CVTSI2SD
|
|
] H{
|
|
{ +input+ { { f "in" } } }
|
|
{ +scratch+ { { float "out" } } }
|
|
{ +output+ { "out" } }
|
|
} define-intrinsic
|
|
|
|
PROVIDE: core/compiler/x86/sse2 ;
|