try except without end; - breaking compilation

[Alex Bespalov]

program G1;

procedure test;
begin
  try
    PrintLn('a1');
    PrintLn('a2');
  except
    PrintLn('a3');
//  end;
end;

begin
  test();
end.

Compilation stopped without any error or message.

‌

Ofc its not critical, but strange behaviour.

[Eric Grange]

This is because in DWScript this falls under Delphi compatibility mode, the “program” statement is essentially ignored, the final begin..end block to wrap the call is unnecessary, and the “end.” is unnecessary as well, so this stresses the compatibility mode testing

[Eric Grange]

Fixed Issue #227 tighten code that tests & ignore final "end." + tests

→ <<cset 65f57aeaacd5>>

[Alex Bespalov]

edited.

‌

Strange, after re-sync GIT repo problem gone.

Sorry for raising resolved issue :)