Răsfoiți Sursa

* fixed web bug #2296

Jonas Maebe 22 ani în urmă
părinte
comite
8bbf574e8b
1 a modificat fișierele cu 8 adăugiri și 2 ștergeri
  1. 8 2
      compiler/ninl.pas

+ 8 - 2
compiler/ninl.pas

@@ -516,7 +516,10 @@ implementation
                 { assign the result to a temp and pass this temp as parameter }
                 { This is not very efficient, but write(typedfile,x) is       }
                 { already slow by itself anyway (no buffering) (JM)           }
-                if (para.left.nodetype = calln) then
+                { Actually, thge same goes for every non-simple expression    }
+                { (such as an addition, ...) -> put everything but load nodes }
+                { into temps (JM)                                             }
+                if (para.left.nodetype <> loadn) then
                   begin
                     { create temp for result }
                     temp := ctempcreatenode.create(para.left.resulttype,
@@ -2349,7 +2352,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.103  2002-12-17 22:19:33  peter
+  Revision 1.104  2002-12-30 12:48:07  jonas
+    * fixed web bug 2296
+
+  Revision 1.103  2002/12/17 22:19:33  peter
     * fixed pushing of records>8 bytes with stdcall
     * simplified hightree loading