* ensure that a valid reference to the raw data is provided as long as the typeinfo is set

git-svn-id: trunk@39879 -

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

@@ -1855,7 +1855,7 @@ end;
 
 function TValue.GetReferenceToRawData: Pointer;
 begin
-  if IsEmpty then
+  if not Assigned(FData.FTypeInfo) then
     Result := Nil
   else if Assigned(FData.FValueData) then
     Result := FData.FValueData.GetReferenceToRawData