瀏覽代碼

* fixup for r27725: limit change to subn

git-svn-id: trunk@27732 -
Jonas Maebe 11 年之前
父節點
當前提交
13fbf5b6ef
共有 1 個文件被更改,包括 3 次插入2 次删除
  1. 3 2
      compiler/ncnv.pas

+ 3 - 2
compiler/ncnv.pas

@@ -2502,8 +2502,9 @@ implementation
                 if (nf_internal in n.flags) then
                 if (nf_internal in n.flags) then
                   begin
                   begin
                     result:=true;
                     result:=true;
-                    { the result could be negative in this case }
-                    gotsint:=true
+                    { the result could become negative in this case }
+                    if n.nodetype=subn then
+                      gotsint:=true
                   end
                   end
                 else
                 else
                   result:=
                   result:=