* fixup for r27725: limit change to subn

git-svn-id: trunk@27732 -
2025-10-23 02:51:32 +02:00 · 2014-05-04 11:40:32 +00:00 · 2014-05-04 11:40:32 +00:00 · 13fbf5b6ef
commit 13fbf5b6ef
parent fab4a91f4d
1 changed files with 3 additions and 2 deletions
--- a/compiler/ncnv.pas
+++ b/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:=