paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 00:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more info on memory holes

Browse Source
This commit is contained in:
pierre 2002-11-05 17:23:12 +00:00
parent 68952b80b0
commit fa934bd43f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/texception3.pp
View File

@ -769,8 +769,11 @@ begin
if i<>2 then
do_error(1119);
if memavail<>startmemavail then
do_error(99999);
if memavail<startmemavail then
begin
writeln('exception generates memory holes');
do_error(99999);
end;
writeln('Test successfully passed');
halt(0);
end.