The application freezes at TBESEN.Free after compile error. #30

New issue

Open

opened 2023-09-11 21:17:36 +00:00 by dvilker · 0 comments

dvilker commented

2023-09-11 21:17:36 +00:00

(Migrated from github.com)

As example:

var
  B: TBESEN;
begin
  B := TBESEN.Create;
  try
    try
      B.Execute('+'); // Compile error
    except on E: Exception do
      // Ignore
    end;
  finally
    B.Free; // Hungs here
  end;
end;

Setting:

{$define PurePascal}
{$define PurePascalExecuteByteCode}

Lazarus 2.2.6 (rev Unknown) FPC 3.2.2 x86_64-darwin-cocoa

As example: ```pascal var B: TBESEN; begin B := TBESEN.Create; try try B.Execute('+'); // Compile error except on E: Exception do // Ignore end; finally B.Free; // Hungs here end; end; ``` Setting: ```pascal {$define PurePascal} {$define PurePascalExecuteByteCode} ``` Lazarus 2.2.6 (rev Unknown) FPC 3.2.2 x86_64-darwin-cocoa