Explorar o código

* fixup for r27725: limit change to subn

git-svn-id: trunk@27732 -
Jonas Maebe %!s(int64=11) %!d(string=hai) anos
pai
achega
13fbf5b6ef
Modificáronse 1 ficheiros con 3 adicións e 2 borrados
  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:=