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 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 cpu.x86.assembler cpu.x86.assembler.operands cpu.x86.features
kernel literals math math.bitwise math.floats.env kernel literals math math.bitwise math.floats.env
math.floats.env.private system ; math.floats.env.private sequences system ;
IN: math.floats.env.x86 IN: math.floats.env.x86
STRUCT: sse-env STRUCT: sse-env
@ -48,24 +48,24 @@ M: x86.32 set-x87-env
! 64-bit ! 64-bit
M: x86.64 get-sse-env M: x86.64 get-sse-env
void { void* } "cdecl" [ void { void* } "cdecl" [
param-reg-0 [] STMXCSR int-regs param-regs first [] STMXCSR
] alien-assembly ; ] alien-assembly ;
M: x86.64 set-sse-env M: x86.64 set-sse-env
void { void* } "cdecl" [ void { void* } "cdecl" [
param-reg-0 [] LDMXCSR int-regs param-regs first [] LDMXCSR
] alien-assembly ; ] alien-assembly ;
M: x86.64 get-x87-env M: x86.64 get-x87-env
void { void* } "cdecl" [ void { void* } "cdecl" [
param-reg-0 [] FNSTSW int-regs param-regs first [] FNSTSW
param-reg-0 2 [+] FNSTCW int-regs param-regs first 2 [+] FNSTCW
] alien-assembly ; ] alien-assembly ;
M: x86.64 set-x87-env M: x86.64 set-x87-env
void { void* } "cdecl" [ void { void* } "cdecl" [
FNCLEX FNCLEX
param-reg-0 2 [+] FLDCW int-regs param-regs first 2 [+] FLDCW
] alien-assembly ; ] alien-assembly ;
: <sse-env> ( -- sse-env ) : <sse-env> ( -- sse-env )