From 6592c96e70dd4dad2d2c7d153cf8a9e47b03a726 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 8 Sep 2002 13:01:25 +0000
Subject: [PATCH]   * first_pi now just generates a constant, added missing
 calls to firstpass()

---
 compiler/ninl.pas | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 4630da06e3..419f76f6ae 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -2247,7 +2247,8 @@ implementation
                begin
                  { we need a valid node, so insert a nothingn }
                  result:=cnothingnode.create;
-               end
+                 firstpass(result);
+              end
               else
                begin
                  registers32:=left.registers32;
@@ -2277,12 +2278,8 @@ implementation
 
      function tinlinenode.first_pi : tnode;
       begin
-        { create the call to the helper }
-        first_pi := ccallnode.createintern('fpc_pi',nil);
-        { now left is nil, nothing left, so no second pass
-          required.
-        }
-        left := nil;
+        result := crealconstnode.create(pi,pbestrealtype^);
+        firstpass(result);
       end;
 
 
@@ -2295,6 +2292,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2307,6 +2305,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2319,6 +2318,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2331,6 +2331,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2343,6 +2344,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2355,6 +2357,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2367,6 +2370,7 @@ implementation
         { now left is nil, nothing left, so no second pass
           required.
         }
+        firstpass(result);
         left := nil;
       end;
 
@@ -2376,7 +2380,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.87  2002-09-07 20:42:16  carl
+  Revision 1.88  2002-09-08 13:01:25  jonas
+    * first_pi now just generates a constant, added missing calls to firstpass()
+
+  Revision 1.87  2002/09/07 20:42:16  carl
     * cardinal -> longword
 
   Revision 1.86  2002/09/07 12:16:04  carl