Некорректный Exit в try...finally (FS > 1.3)

Georgy

Вроде я не глазливый;) Проверил в демке 1.3 - работает, в
1.4-1.5 нет 8-( Внутри процедур поведение точно такое же.

begin
  ShowMessage('Start!');
  try
    Exit;
  finally
    ShowMessage('Finally!');
  end;
  ShowMessage('Finish!');
end.

AlexTZ

Нда, последствия введения метода Terminate

Можно пофиксить самому: убрать в fs_iinterpreter.pas

procedure TfsStatement.Execute;
...
// if FProgram.FExitCalled then break;

и ниже, во всех TfsXXXStmt строку

// if FProgram.FExitCalled then Exit;

Georgy

Спасибо!

Georgy

1.Уточняю, спасибо за ответ! - т.к. выполняется только 1й оператор после finally:

begin
  ShowMessage('Start!');
  try
    Exit;
  finally
    ShowMessage('Finally 1!');
    ShowMessage('Finally 2!');
    ShowMessage('Finally 3!');
  end;
  ShowMessage('Finish!');
end.

Впрочем, 1.3 болел тем же, я не проверил по-боевому - поспешил порадоваться

2.Сейчас роль initialization в модуле выполняет главный блок (begin...end.), а как насчет реализации секций initialization|finalization в модулях? Иногда они хорошо помогают.

AlexTZ

Тогда так:

procedure TfsTryStmt.Execute;
var
  SaveExitCalled: Boolean;
begin
  RunLine;
  if FProgram.FTerminated then Exit;
  if IsExcept then
  begin
    try
      inherited Execute;
    except
      ExceptStmt.Execute;
    end;
  end
  else
  begin
    try
      inherited Execute;
    finally
      SaveExitCalled := FProgram.FExitCalled;
      FProgram.FExitCalled := False;
      ExceptStmt.Execute;
      FProgram.FExitCalled := SaveExitCalled;
    end
  end;
end;

2) пока не планируется.

Georgy

Спасибо, но:
FProgram.FTerminated ?
Смысл понятен, но не посягать же на исходники

AlexTZ

Пока эту строку можно пропустить

Georgy

Спасибо, я проинтуичил