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

USING: math.floats.env math.floats.env.x86 tools.test
classes.struct cpu.x86.assembler cpu.x86.assembler.operands
compiler.test math kernel sequences alien alien.c-types
continuations ;
IN: math.floats.env.x86.tests

[ t ] [
    [ [
        void { } cdecl [
            9 [ FLDZ ] times
            9 [ ST0 FSTP ] times
        ] alien-assembly
    ] compile-call ] collect-fp-exceptions
    +fp-x87-stack-fault+ swap member?
] unit-test
math.floats.env: detect +fp-x87-stack-fault+ during collect-fp-exceptions block 2010-08-13 02:22:09 -04:00			`USING: math.floats.env math.floats.env.x86 tools.test`
math.floats.env.x86: more direct test for stack fault detection 2010-08-14 01:19:54 -04:00			`classes.struct cpu.x86.assembler cpu.x86.assembler.operands`
math.floats.env.x86: make sure the x87 stack is cleared after the overflow test, otherwise random things screw up later 2010-08-28 13:01:09 -04:00			`compiler.test math kernel sequences alien alien.c-types`
			`continuations ;`
math.floats.env: detect +fp-x87-stack-fault+ during collect-fp-exceptions block 2010-08-13 02:22:09 -04:00			`IN: math.floats.env.x86.tests`

			`[ t ] [`
math.floats.env.x86: more direct test for stack fault detection 2010-08-14 01:19:54 -04:00			`[ [`
			`void { } cdecl [`
			`9 [ FLDZ ] times`
math.floats.env.x86: make sure the x87 stack is cleared after the overflow test, otherwise random things screw up later 2010-08-28 13:01:09 -04:00			`9 [ ST0 FSTP ] times`
math.floats.env.x86: more direct test for stack fault detection 2010-08-14 01:19:54 -04:00			`] alien-assembly`
			`] compile-call ] collect-fp-exceptions`
math.floats.env: detect +fp-x87-stack-fault+ during collect-fp-exceptions block 2010-08-13 02:22:09 -04:00			`+fp-x87-stack-fault+ swap member?`
			`] unit-test`