basis/math/floats/env/x86/x86-tests.factor

   1 USING: math.floats.env math.floats.env.x86 tools.test
   2 classes.struct cpu.x86.assembler cpu.x86.assembler.operands
   3 compiler.test math kernel sequences alien alien.c-types
   4 continuations ;
   5 IN: math.floats.env.x86.tests
   6
   7 [ t ] [
   8     [ [
   9         void { } cdecl [
  10             9 [ FLDZ ] times
  11             9 [ ST0 FSTP ] times
  12         ] alien-assembly
  13     ] compile-call ] collect-fp-exceptions
  14     +fp-x87-stack-fault+ swap member?
  15 ] unit-test