basis/math/floats/env/x86/64/64.factor

   1 USING: alien alien.c-types cpu.x86.64 cpu.x86.assembler
   2 cpu.x86.assembler.operands math.floats.env.x86 system ;
   3 IN: math.floats.env.x86.64
   4
   5 M: x86.64 get-sse-env
   6     void { void* } cdecl [
   7         param-reg-0 [] STMXCSR
   8     ] alien-assembly ;
   9
  10 M: x86.64 set-sse-env
  11     void { void* } cdecl [
  12         param-reg-0 [] LDMXCSR
  13     ] alien-assembly ;
  14
  15 M: x86.64 get-x87-env
  16     void { void* } cdecl [
  17         param-reg-0 [] FNSTSW
  18         param-reg-0 2 [+] FNSTCW
  19     ] alien-assembly ;
  20
  21 M: x86.64 set-x87-env
  22     void { void* } cdecl [
  23         FNCLEX
  24         param-reg-0 2 [+] FLDCW
  25     ] alien-assembly ;