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

math.floats.env: don't load cpu.x86.64 on x86.32

db4
Slava Pestov 2010-01-07 20:13:42 +13:00
parent 1f88a925b4
commit dd5452053a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/math/floats/env/x86/x86.factor vendored
View File

@ -1,8 +1,8 @@
USING: accessors alien alien.c-types alien.syntax arrays assocs
biassocs classes.struct combinators cpu.x86.64
biassocs classes.struct combinators cpu.architecture
cpu.x86.assembler cpu.x86.assembler.operands cpu.x86.features
kernel literals math math.bitwise math.floats.env
math.floats.env.private system ;
math.floats.env.private sequences system ;
IN: math.floats.env.x86
STRUCT: sse-env
@ -48,24 +48,24 @@ M: x86.32 set-x87-env
! 64-bit
M: x86.64 get-sse-env
void { void* } "cdecl" [
param-reg-0 [] STMXCSR
int-regs param-regs first [] STMXCSR
] alien-assembly ;
M: x86.64 set-sse-env
void { void* } "cdecl" [
param-reg-0 [] LDMXCSR
int-regs param-regs first [] LDMXCSR
] alien-assembly ;
M: x86.64 get-x87-env
void { void* } "cdecl" [
param-reg-0 [] FNSTSW
param-reg-0 2 [+] FNSTCW
int-regs param-regs first [] FNSTSW
int-regs param-regs first 2 [+] FNSTCW
] alien-assembly ;
M: x86.64 set-x87-env
void { void* } "cdecl" [
FNCLEX
param-reg-0 2 [+] FLDCW
int-regs param-regs first 2 [+] FLDCW
] alien-assembly ;
: <sse-env> ( -- sse-env )