Restore XE2 compatibility

pyscripter · pyscripter · commit 84b50848c12e · 2021-10-14T22:02:27.000+03:00
diff --git a/Source/WrapDelphi.pas b/Source/WrapDelphi.pas
@@ -1162,8 +1162,8 @@ function ValidateClassRef(PyValue: PPyObject; TypeInfo: PTypeInfo;
     if Assigned(LPythonType) and LPythonType.PyObjectClass.InheritsFrom(TPyDelphiObject) then
     begin
       ClassRef := TPyDelphiObjectClass(LPythonType.PyObjectClass).DelphiObjectClass;
-      TypeInfo := TypeInfo^.TypeData^.InstanceType^;
-      if Assigned(TypeInfo) and (ClassRef.InheritsFrom(TypeInfo^.TypeData^.ClassType)) then
+      TypeInfo := GetTypeData(TypeInfo)^.InstanceType^;
+      if Assigned(TypeInfo) and (ClassRef.InheritsFrom(GetTypeData(TypeInfo)^.ClassType)) then
         Result := True
       else
         ErrMsg := rs_IncompatibleClasses;
