* fix warning about result not being initialized

git-svn-id: trunk@39880 -

packages/libffi/src/ffi.manager.pp

@@ -157,6 +157,7 @@ function TypeInfoToFFIType(aTypeInfo: PTypeInfo): pffi_type;
 
   function TypeKindName: String;
   begin
+    Result := '';
     WriteStr(Result, aTypeInfo^.Kind);
   end;