From 628dd4679717612516a99d7f9641aa5e9a556b1e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 6 Aug 2020 13:00:01 +0000
Subject: [PATCH] * Fix missing reference to procedure streaming

---
 packages/rtl/classes.pas   | 4 ++--
 packages/rtl/rtlconsts.pas | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index e69fc84..6ee65c9 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -7719,7 +7719,7 @@ begin
         if TTypeInfoSet(PropType).CompType.Kind=tkEnumeration then
           SetOrdProp(Instance, PropInfo, FDriver.ReadSet(TTypeInfoEnum(TTypeInfoSet(PropType).CompType)));
       end;
-    tkMethod:
+    tkMethod, tkRefToProcVar:
       if FDriver.NextValue = vaNil then
       begin
         FDriver.ReadValue;
@@ -7776,7 +7776,7 @@ begin
     {tkint64:
       SetInt64Prop(Instance, PropInfo, ReadInt64);}
     else
-      raise EReadError.CreateFmt(SUnknownPropertyType, [Ord(PropType.Kind)]);
+      raise EReadError.CreateFmt(SUnknownPropertyType, [Str(PropType.Kind)]);
   end;
 end;
 
diff --git a/packages/rtl/rtlconsts.pas b/packages/rtl/rtlconsts.pas
index 27a452a..cbf25bd 100644
--- a/packages/rtl/rtlconsts.pas
+++ b/packages/rtl/rtlconsts.pas
@@ -60,7 +60,7 @@ Resourcestring
   SInvalidPropertyValue           = 'Invalid value for property';
   SInvalidImage                   = 'Invalid stream format';
   SUnknownProperty                = 'Unknown property: "%s"';
-  SUnknownPropertyType            = 'Unknown property type %d';
+  SUnknownPropertyType            = 'Unknown property type %s';
   SAncestorNotFound               = 'Ancestor class for "%s" not found.';
   SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';
   SPropertyException              = 'Error reading %s%s%s: %s';