Browse Source

* fixup for r27725: limit change to subn

git-svn-id: trunk@27732 -
Jonas Maebe 11 years ago
parent
commit
13fbf5b6ef
1 changed files with 3 additions and 2 deletions
  1. 3 2
      compiler/ncnv.pas

+ 3 - 2
compiler/ncnv.pas

@@ -2502,8 +2502,9 @@ implementation
                 if (nf_internal in n.flags) then
                   begin
                     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
                 else
                   result:=