* range checks fixed

compiler/ncginl.pas

@@ -439,7 +439,7 @@ implementation
               else
 {$endif cpu64bit}
                 cg.a_op_const_loc(exprasmlist,addsubop[inlinenumber],
-                  addvalue,tcallparanode(left).left.location);
+                  aint(addvalue),tcallparanode(left).left.location);
             end
            else
              begin
@@ -686,7 +686,10 @@ end.
 
 {
   $Log$
-  Revision 1.61  2004-07-12 17:58:19  peter
+  Revision 1.62  2004-08-16 21:00:15  peter
+    * range checks fixed
+
+  Revision 1.61  2004/07/12 17:58:19  peter
     * remove maxlen field from ansistring/widestrings
 
   Revision 1.60  2004/06/20 08:55:29  florian

compiler/ncgset.pas

@@ -541,9 +541,7 @@ implementation
              genitem(t^.less);
            { need we to test the first value }
            if first and (t^._low>get_min_value(left.resulttype.def)) then
-             begin
-                cg.a_cmp_const_reg_label(exprasmlist,opsize,jmp_lt,t^._low,hregister,elselabel);
-             end;
+             cg.a_cmp_const_reg_label(exprasmlist,opsize,jmp_lt,aint(t^._low),hregister,elselabel);
            if t^._low=t^._high then
              begin
                 if t^._low-last=0 then
@@ -974,7 +972,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.65  2004-07-22 10:07:09  jonas
+  Revision 1.66  2004-08-16 21:00:15  peter
+    * range checks fixed
+
+  Revision 1.65  2004/07/22 10:07:09  jonas
     * fixed relabeling (nextaltnr was never increased)
     * fixed inlining of case statements at the node level