From 54d692c7d657dd6a7da2b1c9984b9a6cf2deb080 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 8 Nov 2023 11:50:49 +0100
Subject: [PATCH] * Add SkipValue to TReader

---
 rtl/objpas/classes/classesh.inc | 1 +
 rtl/objpas/classes/reader.inc   | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 9be347524d..48aaaa4f54 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -1864,6 +1864,7 @@ type
     function EndOfList: Boolean;
     procedure EndReferences;
     procedure FixupReferences;
+    procedure SkipValue;
     function NextValue: TValueType;
     //Please don't use read, better use ReadBinary whenever possible
     //uuups, ReadBinary is protected ..
diff --git a/rtl/objpas/classes/reader.inc b/rtl/objpas/classes/reader.inc
index 016e3d02b2..913ee5dfc8 100644
--- a/rtl/objpas/classes/reader.inc
+++ b/rtl/objpas/classes/reader.inc
@@ -1070,6 +1070,12 @@ begin
   end;
 end;
 
+procedure TReader.SkipValue;
+
+begin
+  FDriver.SkipValue;
+end;
+
 procedure TReader.ReadData(Instance: TComponent);
 var
   SavedOwner, SavedParent: TComponent;