فهرست منبع

* auto-converting from int64 to real is again allowed for all modes
(it's allowed in Delphi too)

Jonas Maebe 24 سال پیش
والد
کامیت
388e8a76a8
1فایلهای تغییر یافته به همراه7 افزوده شده و 8 حذف شده
  1. 7 8
      compiler/types.pas

+ 7 - 8
compiler/types.pas

@@ -1391,13 +1391,8 @@ implementation
                    begin { ordinal to real }
                      if is_integer(def_from) then
                        begin
-                          { in delphi int64 can not be converted to real }
-                          if not((m_tp in aktmodeswitches) and
-                                 (torddef(def_from).typ in [u64bit,s64bit])) then
-                           begin
-                             doconv:=tc_int_2_real;
-                             b:=1;
-                           end;
+                         doconv:=tc_int_2_real;
+                         b:=1;
                        end;
                    end;
                  floatdef :
@@ -1784,7 +1779,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.47  2001-09-03 13:27:41  jonas
+  Revision 1.48  2001-10-16 17:15:44  jonas
+    * auto-converting from int64 to real is again allowed for all modes
+      (it's allowed in Delphi too)
+
+  Revision 1.47  2001/09/03 13:27:41  jonas
     * compilerproc implementation of set addition/substraction/...
     * changed the declaration of some set helpers somewhat to accomodate the
       above change