(const Param:Integer)oder(Param:Integer)-Unterschied?

[jbg]

Delphi's Code Optimierung ändert nicht die Symantik.

Zitat:

Wohlmöglich sehen bei dir die Assemblerbefehle nur anders aus weil in deinem Beispiel etwas optimiert wird.

Prüfe das bitte nochmal nach, werde ich auch machen, obwohl ich das ja schon gemacht habe bevor ich mein Gegenbeispiel gepostet habe (in Delphi 7)

MyFunc und ShowThat sind aber schon gleich deklarariert?

[jbg]

Delphi-Quellcode:

function EBP: Cardinal; asm mov eax, ebp end;

// {$O-}
function ShowThat(const Param: Integer): Boolean;
begin
  PInteger(@Param)^ := 9;
  if Cardinal(@Param) <= EBP then // Stack wird von der größeren zur kleineren Adresse hin aufgebaut
    ShowMessage('Param liegt im Stackframe von ShowThat');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  V: Integer;
begin
  V := SpinEdit1.Value;
  ShowThat(V);
  ShowMessage(IntToStr(V));
end;

Da kommt bei mir für SpinEdit1.Value=1 in der MessageBox ein "1" heraus.

Das kann man auch noch anders Beweisen, indem man @Param mit dem EBP-Register vergleicht. Ist @Param kleiner gleich EBP, dann liegt @Param im Stackframe von ShowThat und nicht im Stackframe von Button1Click.