Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Access Violation bei Compiler-Option $O+ (https://www.delphipraxis.net/172199-access-violation-bei-compiler-option-%24o.html)

Manfred D2009 18. Dez 2012 14:55

Delphi-Version: XE2

Access Violation bei Compiler-Option $O+
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich habe einen komischen Laufzeitfehler in meinem Programm, der seit der Umstellung von Delphi2009 auf XE2 auftritt.
Für ein Testprogramm habe ich mal versucht, nur das Wichtigste zu implementieren.
Bitte nicht den Sinn hinterfragen, in meinem Programm schaut´s ganz anders aus!

Schaltet man die Compiler-Option {$O+} (Optimierung) ein, so kommt beim Aufruf einer Berechnungsmethode eine Zugriffsverletzung.
Die Bestimmung der Zieladresse funktioniert nur, wenn man für das compilieren die Optimierung herausnimmt.

Ist das ein Compiler-Fehler oder müsste ich da was anders machen?
Manfred

TiGü 18. Dez 2012 15:59

AW: Access Violation bei Compiler-Option $O+
 
Delphi-Quellcode:
function Calc(AclsPart : TObject; dblX1, dblX2 : double; blnParam : boolean) : boolean;
var
  MyClsPart : TclsPart;
  MyClsData : TclsData;

  function Equal(dblX1, dblX2 : double) : boolean;
  begin
    Result := Abs(dblX1 - dblX2) < 0.00001;
  end;

begin
  MyClsPart := nil;
  MyClsData := nil;
  Result := False;
  if Assigned(AclsPart) and (AclsPart is TclsPart) then
  begin
    MyClsPart := TclsPart(AclsPart);

    if Assigned(MyClsPart.Data) and (MyClsPart.Data is TclsData) then
    begin
      MyClsData := TclsData(MyClsPart.Data);
      MyClsData.MyField := blnParam;

      if Equal(dblX1, dblX2) then
        Result := MyClsData.CalcSomething1x(dblX1)
      else
        Result := MyClsData.CalcSomething2x(dblX1, dblX2); // <-- geht jetzt!
    end;
  end;
end;

EWeiss 18. Dez 2012 16:01

AW: Access Violation bei Compiler-Option $O+
 
Zitat:

Zitat von TiGü (Beitrag 1195922)
...

+++

Manfred D2009 18. Dez 2012 16:17

AW: Access Violation bei Compiler-Option $O+
 
Danke TiGü,

...das hatte ich auch schon so probiert (was auch in meinem eigentlichen Projekt mit Optimierung funktioniert). Es ist halt kribbelig, wenn bestehende Sourcen mit einem anderen Compiler plötzlich nicht mehr funktionieren. Ich weiß ja nicht, was in meinem Projekt sonst noch alles optimiert wird...

Das blöde war erst mal die Suche, ob nicht doch irgendwo ein Objekt fälschlicherweise doch freigegeben wurde. Und wenn Self im Debugger dann NIL ist, ist das schon seltsam...
Und da ich mir jetzt auch nicht mehr sicher bin, wollte ich das hier hinterfragen, ob es evtl. außer meinem beschriebenen Problem evtl. öfter solche "Optimierungs-Problemchen" gibt.

Ich habe auch mal eine Anfrage an Embarcadero geschickt, halte euch auf dem Laufenden...


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz