From fc1d5c0a98321cf71fc789909b66a05cdd228317 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 29 Oct 2002 10:01:22 +0000
Subject: [PATCH]  * fix crash report as webbug 2174

---
 compiler/pinline.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/compiler/pinline.pas b/compiler/pinline.pas
index 1974ef2540..880a6bfa1d 100644
--- a/compiler/pinline.pas
+++ b/compiler/pinline.pas
@@ -170,6 +170,15 @@ implementation
                 { we need the real called method }
                 { rg.cleartempgen;}
                 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
                  begin
                    if is_new then
@@ -648,7 +657,10 @@ implementation
 end.
 {
   $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
 
   Revision 1.7  2002/09/07 12:16:03  carl