paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add fnclex before loading old CW

Browse Source
This commit is contained in:
peter 2005-01-30 18:41:53 +00:00
parent 03a6ef4108
commit 29ed3f6d29
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/x86_64/math.inc
View File

@ -171,7 +171,7 @@
fldt d fldt d
fsub %st(1),%st fsub %st(1),%st
fstp %st(1) fstp %st(1)
fclex fnclex
fldcw -4(%rbp) fldcw -4(%rbp)
end; end;
@ -193,7 +193,7 @@
fwait fwait
fldt d fldt d
frndint frndint
fclex fnclex
fldcw -4(%rbp) fldcw -4(%rbp)
end; end;
@ -220,7 +220,7 @@
fldt d fldt d
fistpq res fistpq res
movq res,%rax movq res,%rax
fclex fnclex
fldcw oldcw fldcw oldcw
end; end;
@ -245,13 +245,13 @@
fnstcw oldcw fnstcw oldcw
fwait fwait
movw $0x1372,newcw movw $0x1372,newcw
fclex fnclex
fldcw newcw fldcw newcw
fwait fwait
fldt d fldt d
fistpq res fistpq res
movq res,%rax movq res,%rax
fclex fnclex
fldcw oldcw fldcw oldcw
end; end;
@ -278,7 +278,10 @@
{ {
$Log$ $Log$
Revision 1.7 2005-01-30 18:01:15 peter Revision 1.8 2005-01-30 18:41:53 peter
* add fnclex before loading old CW
Revision 1.7 2005/01/30 18:01:15 peter
* signal cleanup for linux * signal cleanup for linux
* sigactionhandler instead of tsigaction for bsds * sigactionhandler instead of tsigaction for bsds
* sigcontext moved to cpu dir * sigcontext moved to cpu dir