浏览代码

* avoid Range check errors

carl 23 年之前
父节点
当前提交
766e56fffc
共有 1 个文件被更改,包括 10 次插入7 次删除
  1. 10 7
      compiler/symdef.pas

+ 10 - 7
compiler/symdef.pas

@@ -1769,19 +1769,19 @@ implementation
                 begin
                 begin
                   { low }
                   { low }
                   rttiList.concat(Tai_const.Create_32bit($0));
                   rttiList.concat(Tai_const.Create_32bit($0));
-                  rttiList.concat(Tai_const.Create_32bit($80000000));
+                  rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
                   { high }
                   { high }
-                  rttiList.concat(Tai_const.Create_32bit($ffffffff));
+                  rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
                 end
                 end
               else
               else
                 begin
                 begin
                   { low }
                   { low }
-                  rttiList.concat(Tai_const.Create_32bit($80000000));
+                  rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
                   rttiList.concat(Tai_const.Create_32bit($0));
                   rttiList.concat(Tai_const.Create_32bit($0));
                   { high }
                   { high }
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
                   rttiList.concat(Tai_const.Create_32bit($7fffffff));
-                  rttiList.concat(Tai_const.Create_32bit($ffffffff));
+                  rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
                 end;
                 end;
             end;
             end;
           u64bit :
           u64bit :
@@ -1792,8 +1792,8 @@ implementation
               rttiList.concat(Tai_const.Create_32bit($0));
               rttiList.concat(Tai_const.Create_32bit($0));
               rttiList.concat(Tai_const.Create_32bit($0));
               rttiList.concat(Tai_const.Create_32bit($0));
               { high }
               { 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;
             end;
           bool8bit:
           bool8bit:
             begin
             begin
@@ -5517,7 +5517,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $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)
     * fixed rtti for int64 (merged)
 
 
   Revision 1.102  2002/11/15 01:58:54  peter
   Revision 1.102  2002/11/15 01:58:54  peter