Explorar el Código

* fixup for r27725: limit change to subn

git-svn-id: trunk@27732 -
Jonas Maebe hace 11 años
padre
commit
13fbf5b6ef
Se han modificado 1 ficheros con 3 adiciones y 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:=