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

x86 intrinsics fix

release
Slava Pestov 2007-09-29 21:52:13 -04:00
parent fe780421fa
commit 84e2172b7b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/cpu/x86/sse2/sse2.factor
View File

@ -1,9 +1,10 @@
! Copyright (C) 2005, 2007 Slava Pestov. ! Copyright (C) 2005, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien arrays cpu.x86.assembler cpu.x86.architecture USING: alien arrays cpu.x86.assembler cpu.x86.architecture
generic kernel kernel.private math math.private memory cpu.x86.intrinsics generic kernel kernel.private math
namespaces sequences words generator generator.registers math.private memory namespaces sequences words generator
cpu.architecture math.floats.private layouts quotations ; generator.registers cpu.architecture math.floats.private layouts
quotations ;
IN: cpu.x86.sse2 IN: cpu.x86.sse2
: define-float-op ( word op -- ) : define-float-op ( word op -- )
@ -81,10 +82,10 @@ IN: cpu.x86.sse2
} ; } ;
: define-alien-float-intrinsics ( word get-quot word set-quot -- ) : define-alien-float-intrinsics ( word get-quot word set-quot -- )
[ %alien-accessor ] curry [ small-reg %alien-accessor ] curry
alien-float-set-template alien-float-set-template
define-intrinsic define-intrinsic
[ %alien-accessor ] curry [ small-reg %alien-accessor ] curry
alien-float-get-template alien-float-get-template
define-intrinsic ; define-intrinsic ;