2010-05-16 03:43:02 -04:00
|
|
|
USING: alien alien.c-types cpu.x86.64 cpu.x86.assembler
|
2010-01-07 02:44:28 -05:00
|
|
|
cpu.x86.assembler.operands math.floats.env.x86 sequences system ;
|
|
|
|
IN: math.floats.env.x86.64
|
|
|
|
|
|
|
|
M: x86.64 get-sse-env
|
2010-03-31 22:20:35 -04:00
|
|
|
void { void* } cdecl [
|
2010-05-16 03:43:02 -04:00
|
|
|
param-reg-0 [] STMXCSR
|
2010-01-07 02:44:28 -05:00
|
|
|
] alien-assembly ;
|
|
|
|
|
|
|
|
M: x86.64 set-sse-env
|
2010-03-31 22:20:35 -04:00
|
|
|
void { void* } cdecl [
|
2010-05-16 03:43:02 -04:00
|
|
|
param-reg-0 [] LDMXCSR
|
2010-01-07 02:44:28 -05:00
|
|
|
] alien-assembly ;
|
|
|
|
|
|
|
|
M: x86.64 get-x87-env
|
2010-03-31 22:20:35 -04:00
|
|
|
void { void* } cdecl [
|
2010-05-16 03:43:02 -04:00
|
|
|
param-reg-0 [] FNSTSW
|
|
|
|
param-reg-0 2 [+] FNSTCW
|
2010-01-07 02:44:28 -05:00
|
|
|
] alien-assembly ;
|
|
|
|
|
|
|
|
M: x86.64 set-x87-env
|
2010-03-31 22:20:35 -04:00
|
|
|
void { void* } cdecl [
|
2010-01-07 02:44:28 -05:00
|
|
|
FNCLEX
|
2010-05-16 03:43:02 -04:00
|
|
|
param-reg-0 2 [+] FLDCW
|
2010-01-07 02:44:28 -05:00
|
|
|
] alien-assembly ;
|