From c04024506bd2231d49b371e9814907de5dc01d58 Mon Sep 17 00:00:00 2001
From: Hunter200165 <hunter200165@gmail.com>
Date: Thu, 13 Feb 2025 01:48:32 +0000
Subject: [PATCH] Fixed infinite recursion in `ASNFetchOID` in fpasn.pp

---
 packages/fcl-hash/src/fpasn.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-hash/src/fpasn.pp b/packages/fcl-hash/src/fpasn.pp
index edb39040e8..06c5fd2a4b 100644
--- a/packages/fcl-hash/src/fpasn.pp
+++ b/packages/fcl-hash/src/fpasn.pp
@@ -873,7 +873,7 @@ end;
 function ASNFetchOID(var Buffer: PByte; BufferEnd: PByte; out OID: AnsiString): Boolean; overload;
 
 Var
-  OIDS : String;
+  OIDS : UnicodeString;
 
 begin
   Result:=ASNFetchOID(Buffer,BufferEnd,OIDS);