From 6ea06bc7404ebbe3fc3e0274c6aca915b200a48f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 13 Mar 2004 21:23:21 +0000
Subject: [PATCH]   * fixed inlining on arm

---
 compiler/ncgcal.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas
index 9a1a23c9ee..59b865e58f 100644
--- a/compiler/ncgcal.pas
+++ b/compiler/ncgcal.pas
@@ -112,7 +112,7 @@ implementation
            LOC_REFERENCE:
              begin
                { currently, we copy the value always to a secure location }
-               if true then
+               if not(assigned(aktcallnode.inlinecode)) then
                  paramanager.alloctempparaloc(exprasmlist,aktcallnode.procdefinition.proccalloption,paraitem,tempparaloc);
              end;
 {$endif cputargethasfixedstack}
@@ -770,7 +770,7 @@ implementation
              end;
          end;
 
-         procedure freeparas;
+       procedure freeparas;
          var
            ppn : tcgcallparanode;
          begin
@@ -1264,7 +1264,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.162  2004-03-09 16:28:31  peter
+  Revision 1.163  2004-03-13 21:23:21  florian
+    * fixed inlining on arm
+
+  Revision 1.162  2004/03/09 16:28:31  peter
     * fix for sparc that pushes floats in int registers
 
   Revision 1.161  2004/03/09 13:04:12  mazen