Pārlūkot izejas kodu

fcl-passrc: resolver: different record types are incompatible

git-svn-id: trunk@37192 -
Mattias Gaertner 8 gadi atpakaļ
vecāks
revīzija
b980151f07
1 mainītis faili ar 5 papildinājumiem un 1 dzēšanām
  1. 5 1
      packages/fcl-passrc/src/pasresolver.pp

+ 5 - 1
packages/fcl-passrc/src/pasresolver.pp

@@ -11950,7 +11950,11 @@ begin
         end;
       end;
     end
-  else if RTypeEl.ClassType=TPasEnumType then
+  else if LTypeEl.ClassType=TPasRecordType then
+    begin
+    // records of different type
+    end
+  else if LTypeEl.ClassType=TPasEnumType then
     begin
     // enums of different type
     end