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

* fixed wrong check in r10432 causing an internalerror for ppc/ppc64

git-svn-id: trunk@10433 -
Jonas Maebe преди 17 години
родител
ревизия
7524d9f8ca
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      compiler/ppcgen/ngppcadd.pas

+ 2 - 1
compiler/ppcgen/ngppcadd.pas

@@ -384,7 +384,8 @@ implementation
 
         { when a setdef is passed, it has to be a smallset }
         if not is_smallset(left.resultdef) or
-           not is_smallset(right.resultdef) then
+           (not is_smallset(right.resultdef) and
+            (right.nodetype<>setelementn)) then
          internalerror(200203301);
 
         opdone := false;