From 15ed1f131ea919d68368fd5a7fe5c9b22b4ed106 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 14 Jul 2023 14:51:05 +0200
Subject: [PATCH] * PAnsiChar version of Strdispose must be public

---
 rtl/objpas/sysutils/syspchh.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/objpas/sysutils/syspchh.inc b/rtl/objpas/sysutils/syspchh.inc
index 931e95b474..74d59c7dd6 100644
--- a/rtl/objpas/sysutils/syspchh.inc
+++ b/rtl/objpas/sysutils/syspchh.inc
@@ -39,5 +39,6 @@ function StrPas(Str: PAnsiChar): string;overload;
 function StrPCopy(Dest: PAnsiChar; Const Source: string): PAnsiChar;overload;
 function StrPLCopy(Dest: PAnsiChar; Const Source: string; MaxLen: SizeUInt): PAnsiChar;overload;
 function StrAlloc(Size: cardinal): PAnsiChar;
+procedure StrDispose(Str: PAnsiChar);
 function StrBufSize(Str: PAnsiChar): Cardinal;