kniffliges Rätsel - Compileroptimierung

[haentschman]

Moin...

Schön, daß ihr die Zeit findet Euch damit zu beschäftigen. Interessant ist das Thema allemal. Wenn man nicht explizit drauf achtet ist mal schnell was wegoptimiert von dem man ausgeht (logischerweise) daß es funktioniert... wer achtet schon wirklich auf die blauen Punkte

Der Knackpunkt liegt ja hier:

Delphi-Quellcode:

function bla: Boolean
begin
    Result:= False
     for i = 0 to 10 do
     begin
        if blabla then
        begin
          WriteLn;
          exit;
        end;
        if blabla1 then
        begin
          WriteLn;
          exit; // wird eincompiliert
        end;
     end;
     Result:= True;
end

zu:

Delphi-Quellcode:

function bla: Boolean
begin
    Result:= False
     for i = 0 to 10 do
     begin
        if blabla then
        begin
          WriteLn;
          exit;
        end;
        if blabla1 then
        begin
          exit; // wird nicht eincompiliert
        end;
     end;
     Result:= True;
end

...das kann wahrscheinlich nur der Programmierer der Optimierung des Compilers beantworten.

[CCRDude]

Es geht auch ohne das WriteLn , z.B. mit einem expliziten Returnwert.

Delphi-Quellcode:

function bla: Boolean;
begin
   Result := false;
   for i := 1 to 10 do begin
      if i = 5 then begin
         Exit;
      end;
      if foo then begin
         Exit(false); // hier gibt es eine Haltpunktmöglichkeit
      end;
   end;
   Result := true;
end;

Oder sobald Exception-Handling in's Spiel kommt:

Delphi-Quellcode:

function bla: Boolean;
begin
   Result := false;
   try
      for i := 1 to 10 do begin
         if i = 5 then begin
            Exit;
         end;
         if foo then begin
            Exit; // hier gibt es eine Haltpunktmöglichkeit
         end;
      end;
      Result := true;
   except
      Result := false;
   end;
end;

So oder so, wegoptimiert ist der Code nicht, sondern lediglich im Debugger nicht als Breakpoint verwendbar.