OpenGL oder GLScene setzt FPU-CW um

[user0]

Hallo Leute,

eine Anwendung, die mehrere sehr genaue und komplexe Rechnungen ausführt stellt ihre Ergebnisse u.a. mit GLScene dar. Das Problem ist nun, dass sobald man GLScene startet die FPU Precision auf Double umgestellt wird. Mit hilfe von Set8087CW können wir das zurücksetzten, aber warum macht das GLScene oder OpenGL überhaupt, und wo?

user0

P.S.: Im GLScene Package wird das FPU Control Word immer auf Extended Precision und no Exceptions geschaltet ($133F). Also müsste OpenGL dafür verantwortlich sein. Lädt OpenGL irgend eine DLL? Bekanntlicher weise kann ja das Laden von DLLs das FPUCW umschalten.

[user0]

Jetzt wird´s noch merkwürdiger: Auf mehreren PCs wird das CW nur einmal umgeschaltet. Auf einem mehrfach. :shock:

user0

[turboPASCAL]

Zitat:

Zitat von user0

... Mit hilfe von Set8087CW können wir das zurücksetzten, aber warum macht das GLScene oder OpenGL überhaupt...
Weil in OpenGL sehr viel mit Gleitkommazahlen gearbeited wird die eine hohe Genuigkeit in den Nachkommastellen benötigt.

... und wo?

Na in der OpenGlxx.pas von GLScene. ;)

Delphi-Quellcode:

// IsMesaGL
//
function IsMesaGL : Boolean;
begin
   Result:=(GetProcAddress(Cardinal(GLHandle), 'glResizeBuffersMESA')<>nil);
end;

initialization

  ContextList := TThreadList.Create;
  Set8087CW($133F); // <--<<

finalization

  CloseOpenGL;
  ContextList.Free;
  // We don't need to reset the FPU control word as the previous set call is process specific.
  
end.

Zitat:

Zitat von user0

Jetzt wird´s noch merkwürdiger: Auf mehreren PCs wird das CW nur einmal umgeschaltet. Auf einem mehrfach. :shock:

Liegt das ggf. an deinem Programm ?

[user0]

Hallo turboPASCAL,
erstmal Danke für deine Antwort.

Das Set8087CW($133F); in der OpenGL1x.pas habe ich auch gefunden, aber beim Öffnen des 3D-Fensters wird das CW nicht auf $133F sondern auf $127F bzw. $027F geschaltet. Laut dieser und anderer Websites heißt dass im wesendlichen, das alle Exceptionflags auf 1 (das ist ja gut so), aber die Floatingpoint-Precision auf "reserved" geschaltet (nicht so gut, sollte eigendlich 64-Bit extended sein) wird.
:coder2:

Das Programm lädt GLScene nur einmal. Hätte das nicht funktioniert, hätte es die gesammte 3D-funktionalität abgeschaltet.