From ecb32b0ef03e69e31d0fd064a492b8afe2e34f52 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Wed, 14 Aug 2002 19:19:14 +0000
Subject: [PATCH]   * first_int_to_real moved to i386 (other one is generic)

---
 compiler/i386/n386cnv.pas | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/compiler/i386/n386cnv.pas b/compiler/i386/n386cnv.pas
index 118c37e0f4..f9514f3a8d 100644
--- a/compiler/i386/n386cnv.pas
+++ b/compiler/i386/n386cnv.pas
@@ -40,6 +40,7 @@ interface
          { procedure second_pointer_to_array;override; }
          { procedure second_chararray_to_string;override; }
          { procedure second_char_to_string;override; }
+          function first_int_to_real: tnode; override;
           procedure second_int_to_real;override;
          { procedure second_real_to_real;override; }
          { procedure second_cord_to_pointer;override; }
@@ -73,6 +74,16 @@ implementation
                              SecondTypeConv
 *****************************************************************************}
 
+    function ti386typeconvnode.first_int_to_real : tnode;
+
+      begin
+        first_int_to_real:=nil;
+         if registersfpu<1 then
+          registersfpu:=1;
+        location.loc:=LOC_FPUREGISTER;
+      end;
+
+
     procedure ti386typeconvnode.second_int_to_real;
 
       var
@@ -365,7 +376,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.47  2002-08-11 14:32:30  peter
+  Revision 1.48  2002-08-14 19:19:14  carl
+    * first_int_to_real moved to i386 (other one is generic)
+
+  Revision 1.47  2002/08/11 14:32:30  peter
     * renamed current_library to objectlibrary
 
   Revision 1.46  2002/08/11 13:24:16  peter