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

* fix crash report as webbug 2174

Browse Source
This commit is contained in:
pierre 2002-10-29 10:01:22 +00:00
parent 010beefd28
commit fc1d5c0a98
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pinline.pas
View File

@ -170,6 +170,15 @@ implementation
{ we need the real called method } { we need the real called method }
{ rg.cleartempgen;} { rg.cleartempgen;}
do_resulttypepass(p2); do_resulttypepass(p2);
if p2.nodetype<>calln then
begin
if is_new then
CGMessage(parser_e_expr_have_to_be_constructor_call)
else
CGMessage(parser_e_expr_have_to_be_destructor_call);
end;
if not codegenerror then if not codegenerror then
begin begin
if is_new then if is_new then
@ -648,7 +657,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.8 2002-10-02 18:20:52 peter Revision 1.9 2002-10-29 10:01:22 pierre
* fix crash report as webbug 2174
Revision 1.8 2002/10/02 18:20:52 peter
* Copy() is now internal syssym that calls compilerprocs * Copy() is now internal syssym that calls compilerprocs
Revision 1.7 2002/09/07 12:16:03 carl Revision 1.7 2002/09/07 12:16:03 carl