Преглед на файлове

* 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
                   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:=