Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#14

Re: Try..except beschleunigen

  Alt 28. Mai 2008, 12:00
Hi,

Zitat von magonline:
Das scheint tatsächlich zu funktionieren. Gibts irgendwo eine detailierte Beschreibung der FPU Funktionen/Befehle ?
Schnell mal aus nem Code rauskopiert:

Delphi-Quellcode:
//FPU CW setzen... siehe z. B. unter
//http://www.website.masmforum.com/tutorials/fptute/fpuchap1.htm#cword

{  Binär: XXXX0011XXXXXXXX (X - unverändert)
            ^            Unterscheidung zw. +INF und -INF auf alten FPUs
              ^^          Rundung: nach normalen Rundungsregeln auf-/ab
                ^^        Genauigkeit: Extended (auf manschen Systemen
                                                  komischerweise auf Double
                                                  gestellt)
                    ^^^^^^ versch. Gleitkommaexceptions
}

Set8087CW((Get8087CW and $F3FF) or $0300);
In dem Kommentar ist erklärt, was danach getan wurde.

Mfg
FAlter
Felix Alter
  Mit Zitat antworten Zitat