paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 09:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* heaperror is gone

Browse Source
This commit is contained in:
peter 2004-06-29 20:55:29 +00:00
parent cd35d3fd5e
commit b19edee1d4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test/cg/tcall1.pp
View File

@ -197,10 +197,10 @@ Begin
if globalresult <> GLOBAL_RESULT then
failed:= true;
{$ifdef dummy}
globalresult := GLOBAL_RESULT;
{ secondcalln : class constructor failure, when getmem returns 0,
that will call class_help_fail and abort class construction }
{$ifdef fpc}
heaperror := @myheaperrornil;
try
class_none_fail:=tclass2.create_none;
@ -209,15 +209,12 @@ Begin
end;
if globalresult <> GLOBAL_RESULT then
failed:= true;
{$endif fpc}
globalresult := 0;
{ secondcalln : class constructor failure, getmem gives a runtime error
that will be translated to a exception and the exception shall be catched
here }
{$ifdef fpc}
globalresult := 0;
heaperror := @myheaperrorexception;
{$endif fpc}
try
class_none_fail:=tclass2.create_none;
except
@ -225,7 +222,7 @@ Begin
end;
if globalresult <> GLOBAL_RESULT then
failed:= true;
{$endif dummy}
if failed then
fail
@ -236,7 +233,10 @@ end.
{
$Log$
Revision 1.5 2003-10-03 14:46:37 peter
Revision 1.6 2004-06-29 20:55:29 peter
* heaperror is gone
Revision 1.5 2003/10/03 14:46:37 peter
* popstack to oldfpccall
Revision 1.4 2002/09/07 15:40:52 peter