Quellcode durchsuchen

* fix crash report as webbug 2174

pierre vor 23 Jahren
Ursprung
Commit
fc1d5c0a98
1 geänderte Dateien mit 13 neuen und 1 gelöschten Zeilen
  1. 13 1
      compiler/pinline.pas

+ 13 - 1
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