Некорректный Exit в try...finally (FS > 1.3)
Вроде я не глазливый;) Проверил в демке 1.3 - работает, в
1.4-1.5 нет 8-( Внутри процедур поведение точно такое же.
1.4-1.5 нет 8-( Внутри процедур поведение точно такое же.
begin
ShowMessage('Start!');
try
Exit;
finally
ShowMessage('Finally!');
end;
ShowMessage('Finish!');
end.
Комментарии
Можно пофиксить самому: убрать в fs_iinterpreter.pas
procedure TfsStatement.Execute;
...
// if FProgram.FExitCalled then break;
и ниже, во всех TfsXXXStmt строку
// if FProgram.FExitCalled then Exit;
2.Сейчас роль initialization в модуле выполняет главный блок (begin...end.), а как насчет реализации секций initialization|finalization в модулях? Иногда они хорошо помогают.
2) пока не планируется.
FProgram.FTerminated ?
Смысл понятен, но не посягать же на исходники