1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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.
|
