浏览代码

* check ranges for pred() and succ()

peter 23 年之前
父节点
当前提交
1df5c70e42
共有 1 个文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/ninl.pas

+ 6 - 3
compiler/ninl.pas

@@ -1600,9 +1600,9 @@ implementation
                    if left.nodetype=ordconstn then
                     begin
                       if inlinenumber=in_succ_x then
-                       hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,false)
+                       hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,true)
                       else
-                       hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,false);
+                       hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,true);
                       result:=hp;
                     end;
                 end;
@@ -2380,7 +2380,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.88  2002-09-08 13:01:25  jonas
+  Revision 1.89  2002-09-09 19:41:01  peter
+    * check ranges for pred() and succ()
+
+  Revision 1.88  2002/09/08 13:01:25  jonas
     * first_pi now just generates a constant, added missing calls to firstpass()
 
   Revision 1.87  2002/09/07 20:42:16  carl