minor 387 fenv optimizations
This commit is contained in:
parent
0b337e04aa
commit
d5e576c752
1 changed files with 5 additions and 6 deletions
|
|
@ -31,22 +31,21 @@ feraiseexcept:
|
|||
.type fesetround,@function
|
||||
fesetround:
|
||||
mov 4(%esp),%ecx
|
||||
push %eax
|
||||
xor %eax,%eax
|
||||
sub $4,%esp
|
||||
fnstcw (%esp)
|
||||
andb $0xf3,1(%esp)
|
||||
or %cx,(%esp)
|
||||
or %ch,1(%esp)
|
||||
fldcw (%esp)
|
||||
add $4,%esp
|
||||
pop %ecx
|
||||
ret
|
||||
|
||||
.global fegetround
|
||||
.type fegetround,@function
|
||||
fegetround:
|
||||
sub $4,%esp
|
||||
push %eax
|
||||
fnstcw (%esp)
|
||||
mov (%esp),%ax
|
||||
add $4,%esp
|
||||
pop %eax
|
||||
and $0xc00,%eax
|
||||
ret
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue