Browse Source

- removed copying of all paras when secondpassing a callnode (this used
to be necessary for inlinign support, but currently the whole inlined
procedure is already copied in advance). Note that the compiler crashes
when compiling ucomplex with -dTEST_INLINE (also after fixing the
syntax errors), but that was also the case before this change.

Jonas Maebe 22 years ago
parent
commit
e206a74439
1 changed files with 9 additions and 10 deletions
  1. 9 10
      compiler/ncgcal.pas

+ 9 - 10
compiler/ncgcal.pas

@@ -841,9 +841,8 @@ implementation
          if not assigned(procdefinition) then
          if not assigned(procdefinition) then
           exit;
           exit;
 
 
-         { Deciding whether we may still need the parameters happens next (JM) }
          if assigned(left) then
          if assigned(left) then
-           params:=left.getcopy
+           params:=left
          else
          else
            params := nil;
            params := nil;
 
 
@@ -1190,13 +1189,6 @@ implementation
               pp:=tbinarynode(pp.right);
               pp:=tbinarynode(pp.right);
            end;
            end;
 
 
-         { Parameters are not needed anymore }
-         if assigned(params) then
-          begin
-            params.free;
-            params:=nil;
-          end;
-
          if inlined then
          if inlined then
            begin
            begin
              if (resulttype.def.size>0) then
              if (resulttype.def.size>0) then
@@ -1422,7 +1414,14 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.44  2003-04-10 17:57:52  peter
+  Revision 1.45  2003-04-21 13:53:16  jonas
+    - removed copying of all paras when secondpassing a callnode (this used
+      to be necessary for inlinign support, but currently the whole inlined
+      procedure is already copied in advance). Note that the compiler crashes
+      when compiling ucomplex with -dTEST_INLINE (also after fixing the
+      syntax errors), but that was also the case before this change.
+
+  Revision 1.44  2003/04/10 17:57:52  peter
     * vs_hidden released
     * vs_hidden released
 
 
   Revision 1.43  2003/04/06 21:11:23  olle
   Revision 1.43  2003/04/06 21:11:23  olle