| products/Sources/formale Sprachen/C/Cephes/ldouble/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: k1wka Sprache: Unknown
|
Untersuchungsergebnis.387 Download desDelphi {Delphi[66] CS[82] Ada[135]}zum Wurzelverzeichnis wechseln /* Set 80387 floating point hardware rounding precision */ .file "setprec.387" .text .align 2 .globl _sprec _sprec: pushl %ebp movl %esp,%ebp pushl %eax subl $4,%esp fstcw (%esp) fwait movl (%esp),%eax andl $0xfcff,%eax movl %eax,(%esp) fldcw (%esp) popl %eax popl %eax leave ret .align 2 .globl _dprec _dprec: pushl %ebp movl %esp,%ebp pushl %eax subl $4,%esp fstcw (%esp) fwait movl (%esp),%eax andl $0xfcff,%eax orl $0x200,%eax movl %eax,(%esp) fldcw (%esp) popl %eax popl %eax leave ret .align 2 .globl _ldprec _ldprec: pushl %ebp movl %esp,%ebp pushl %eax subl $4,%esp fstcw (%esp) fwait movl (%esp),%eax orl $0x300,%eax movl %eax,(%esp) fldcw (%esp) popl %eax popl %eax leave ret .globl _noexcept _noexcept: pushl %ebp movl %esp,%ebp pushl %eax subl $4,%esp fnclex fwait fstcw (%esp) fwait movl (%esp),%eax andl $0xffc0,%eax orl $0x3f,%eax movl %eax,(%esp) fldcw (%esp) popl %eax popl %eax leave ret .globl _fpclear _fpclear: pushl %ebp movl %esp,%ebp fnclex fwait leave ret .globl _getprec _getprec: pushl %ebp movl %esp,%ebp subl $4,%esp fstcw (%esp) fwait movl (%esp),%eax leave ret .globl _setfpu _setfpu: pushl %ebp movl %esp,%ebp movl 8(%ebp),%eax pushl %eax fldcw (%esp) fwait movl %ebp,%esp popl %ebp ret [ zur Elbe Produktseite wechseln0.91Quellennavigators ] |