lazarus/components/lazdebuggergdbmi/test/TestApps/ExceptPrgStep.pas

program ExceptPrgStep;
uses sysutils;

var
  i: integer;

procedure foo;
begin
  raise Exception.create('a');
  Freemem(GetMem(1));
end;

begin
  try
    foo;
    Freemem(GetMem(1));
    foo;
    foo;
  except
    Freemem(GetMem(1));  // TEST_BREAKPOINT=BREAK_LINE_EXCEPT_1
  end;
  Freemem(GetMem(2));

  try
    try
      foo;
      Freemem(GetMem(1));
      foo;
      foo;
    except
      Freemem(GetMem(1));  // TEST_BREAKPOINT=BREAK_LINE_EXCEPT_2
    end;
  Freemem(GetMem(2));
  except
    Freemem(GetMem(1));  // TEST_BREAKPOINT=BREAK_LINE_EXCEPT_3
  end;

  try
    try
      raise Exception.create('a');
      Freemem(GetMem(1));
      Freemem(GetMem(1));
      Freemem(GetMem(1));
    finally
      Freemem(GetMem(1));
    end;
  raise Exception.create('xxx');
  Freemem(GetMem(2));
  except
    Freemem(GetMem(1));  // TEST_BREAKPOINT=BREAK_LINE_EXCEPT_4
  end;

  Freemem(GetMem(2));
  Freemem(GetMem(2));  // TEST_BREAKPOINT=BREAK_LINE_EXCEPT_END
  Freemem(GetMem(2));

end.