Browse Source

* explicit typecast added to avoid range check error

Tomas Hajny 21 years ago
parent
commit
39d6a252e2
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/x86/nx86cnv.pas

+ 5 - 2
compiler/x86/nx86cnv.pas

@@ -264,7 +264,7 @@ implementation
                    Consts.concat(Tai_label.Create(l1));
                    Consts.concat(Tai_label.Create(l1));
                    { I got this constant from a test program (FK) }
                    { I got this constant from a test program (FK) }
                    Consts.concat(Tai_const.Create_32bit(0));
                    Consts.concat(Tai_const.Create_32bit(0));
-                   Consts.concat(Tai_const.Create_32bit($80000000));
+                   Consts.concat(Tai_const.Create_32bit(longint ($80000000)));
                    Consts.concat(Tai_const.Create_32bit($0000403f));
                    Consts.concat(Tai_const.Create_32bit($0000403f));
                    reference_reset_symbol(href,l1,0);
                    reference_reset_symbol(href,l1,0);
                    exprasmList.concat(Taicpu.Op_ref(A_FLD,S_FX,href));
                    exprasmList.concat(Taicpu.Op_ref(A_FLD,S_FX,href));
@@ -292,7 +292,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.15  2004-09-26 09:12:50  florian
+  Revision 1.16  2004-09-30 19:32:19  hajny
+    * explicit typecast added to avoid range check error
+
+  Revision 1.15  2004/09/26 09:12:50  florian
     * fixed qword -> float conversion for x86
     * fixed qword -> float conversion for x86
 
 
   Revision 1.14  2004/09/25 14:23:55  peter
   Revision 1.14  2004/09/25 14:23:55  peter