Explorar el Código

* raw interfaces are not handled through IValueData so correctly return their size in GetDataSize

git-svn-id: trunk@37064 -
svenbarth hace 8 años
padre
commit
621316c6dc
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      packages/rtl-objpas/src/inc/rtti.pp

+ 2 - 2
packages/rtl-objpas/src/inc/rtti.pp

@@ -690,6 +690,7 @@ begin
       tkClass,
       tkClass,
       tkHelper,
       tkHelper,
       tkClassRef,
       tkClassRef,
+      tkInterfaceRaw,
       tkPointer:
       tkPointer:
         Result := SizeOf(Pointer);
         Result := SizeOf(Pointer);
       tkUnknown,
       tkUnknown,
@@ -701,8 +702,7 @@ begin
       tkArray,
       tkArray,
       tkRecord,
       tkRecord,
       tkInterface,
       tkInterface,
-      tkDynArray,
-      tkInterfaceRaw:
+      tkDynArray:
         Assert(False);
         Assert(False);
     end;
     end;
   end;
   end;