Explorar o código

* avoid Range check errors

carl %!s(int64=23) %!d(string=hai) anos
pai
achega
766e56fffc
Modificáronse 1 ficheiros con 10 adicións e 7 borrados
  1. 10 7
      compiler/symdef.pas

+ 10 - 7
compiler/symdef.pas

@@ -1769,19 +1769,19 @@ implementation
                 begin
                   { low }
                   rttiList.concat(Tai_const.Create_32bit($0));
-                  rttiList.concat(Tai_const.Create_32bit($80000000));
+                  rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
                   { high }
-                  rttiList.concat(Tai_const.Create_32bit($ffffffff));
+                  rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
                 end
               else
                 begin
                   { low }
-                  rttiList.concat(Tai_const.Create_32bit($80000000));
+                  rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
                   rttiList.concat(Tai_const.Create_32bit($0));
                   { high }
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
-                  rttiList.concat(Tai_const.Create_32bit($ffffffff));
+                  rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
                 end;
             end;
           u64bit :
@@ -1792,8 +1792,8 @@ implementation
               rttiList.concat(Tai_const.Create_32bit($0));
               rttiList.concat(Tai_const.Create_32bit($0));
               { high }
-              rttiList.concat(Tai_const.Create_32bit($ffffffff));
-              rttiList.concat(Tai_const.Create_32bit($ffffffff));
+              rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
+              rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
             end;
           bool8bit:
             begin
@@ -5517,7 +5517,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.103  2002-11-15 16:29:09  peter
+  Revision 1.104  2002-11-16 19:53:18  carl
+    * avoid Range check errors
+
+  Revision 1.103  2002/11/15 16:29:09  peter
     * fixed rtti for int64 (merged)
 
   Revision 1.102  2002/11/15 01:58:54  peter