ret
.global feclearexcept
+.type feclearexcept,@function
feclearexcept:
xor %eax,%eax
mov 4(%esp),%ecx
ret
.global feraiseexcept
+.type feraiseexcept,@function
feraiseexcept:
xor %eax,%eax
mov 4(%esp),%edx
ret
.global fesetround
+.type fesetround,@function
fesetround:
+ mov 4(%esp),%ecx
xor %eax,%eax
- mov $0xc00,%ecx
- mov 4(%esp),%edx
- jmp 2b
+ sub $32,%esp
+ fnstenv (%esp)
+ andb $0xf3,1(%esp)
+ or %ecx,(%esp)
+ fldenv (%esp)
+ add $32,%esp
+ ret
.global fegetround
+.type fegetround,@function
fegetround:
sub $28,%esp
fnstenv (%esp)
ret
.global fegetenv
+.type fegetenv,@function
fegetenv:
mov 4(%esp),%ecx
xor %eax,%eax
ret
.global fesetenv
+.type fesetenv,@function
fesetenv:
mov 4(%esp),%ecx
xor %eax,%eax
ret
.global fetestexcept
+.type fetestexcept,@function
fetestexcept:
mov 4(%esp),%ecx
fnstsw %ax