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

cpu.x86.32: fix %unary/binary-float-function on Windows; need to look up symbols in libm and not VM binary

db4
Slava Pestov 2009-09-28 04:51:53 -05:00
parent 253db8fee0
commit f73bb2d068
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/cpu/x86/32/32.factor
View File

@ -1,12 +1,14 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: locals alien.c-types alien.syntax arrays kernel fry math USING: locals alien.c-types alien.libraries alien.syntax arrays
namespaces sequences system layouts io vocabs.loader accessors init kernel fry math namespaces sequences system layouts io
combinators command-line make compiler compiler.units vocabs.loader accessors init combinators command-line make
compiler.constants compiler.alien compiler.codegen compiler compiler.units compiler.constants compiler.alien
compiler.codegen.fixup compiler.cfg.instructions compiler.cfg.builder compiler.codegen compiler.codegen.fixup
compiler.cfg.intrinsics compiler.cfg.stack-frame cpu.x86.assembler compiler.cfg.instructions compiler.cfg.builder
cpu.x86.assembler.operands cpu.x86 cpu.architecture ; compiler.cfg.intrinsics compiler.cfg.stack-frame
cpu.x86.assembler cpu.x86.assembler.operands cpu.x86
cpu.architecture ;
IN: cpu.x86.32 IN: cpu.x86.32
! We implement the FFI for Linux, OS X and Windows all at once. ! We implement the FFI for Linux, OS X and Windows all at once.
@ -301,14 +303,14 @@ M: register float-function-param
M:: x86.32 %unary-float-function ( dst src func -- ) M:: x86.32 %unary-float-function ( dst src func -- )
ESP -16 [+] dst src float-function-param ESP -16 [+] dst src float-function-param
ESP 16 SUB ESP 16 SUB
func f %alien-invoke func "libm" load-library %alien-invoke
dst float-function-return ; dst float-function-return ;
M:: x86.32 %binary-float-function ( dst src1 src2 func -- ) M:: x86.32 %binary-float-function ( dst src1 src2 func -- )
ESP -16 [+] dst src1 float-function-param ESP -16 [+] dst src1 float-function-param
ESP -8 [+] dst src2 float-function-param ESP -8 [+] dst src2 float-function-param
ESP 16 SUB ESP 16 SUB
func f %alien-invoke func "libm" load-library %alien-invoke
dst float-function-return ; dst float-function-return ;
M: x86.32 %cleanup ( params -- ) M: x86.32 %cleanup ( params -- )