From 7fdc498fbe659d8c728b35ae2b268b3318b7fb86 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 7 Dec 2002 14:15:33 +0000
Subject: [PATCH]   + add some explicit typecasts to remove some warnings

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

diff --git a/compiler/ptconst.pas b/compiler/ptconst.pas
index a778768e64..a9e7fb5f08 100644
--- a/compiler/ptconst.pas
+++ b/compiler/ptconst.pas
@@ -213,9 +213,9 @@ implementation
 
               case tfloatdef(t.def).typ of
                  s32real :
-                   curconstSegment.concat(Tai_real_32bit.Create(value));
+                   curconstSegment.concat(Tai_real_32bit.Create(ts32real(value)));
                  s64real :
-                   curconstSegment.concat(Tai_real_64bit.Create(value));
+                   curconstSegment.concat(Tai_real_64bit.Create(ts64real(value)));
                  s80real :
                    curconstSegment.concat(Tai_real_80bit.Create(value));
                  s64comp :
@@ -985,7 +985,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.61  2002-11-25 18:43:33  carl
+  Revision 1.62  2002-12-07 14:15:33  carl
+    + add some explicit typecasts to remove some warnings
+
+  Revision 1.61  2002/11/25 18:43:33  carl
    - removed the invalid if <> checking (Delphi is strange on this)
    + implemented abstract warning on instance creation of class with
       abstract methods.