From 6ccbbce1495c6fa4389d992b863fc1c7bbfdb2ec Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 14 Nov 2023 22:08:28 +0000
Subject: [PATCH] JVCL: JvPascalInterpreter - fix compilation with fpc/main.
 Patch by michalgw. Resolves Issue #39057.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9026 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../run/JvPascalInterpreter/JvInterpreterFm.pas       | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas b/components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas
index 8423d0471..1962c161a 100644
--- a/components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas
+++ b/components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas
@@ -160,13 +160,20 @@ uses
 type
   TJvInterpreterReader = class(TReader)
   protected
-    function FindMethod(Root: TComponent; const MethodName: string): Pointer;
-      override;
+    {$IF FPC_FULLVERSION >= 30301}
+    function FindMethod(Root: TComponent; const MethodName: RawByteString): CodePointer; override;
+    {$ELSE}
+    function FindMethod(Root: TComponent; const MethodName: string): Pointer; override;
+    {$ENDIF}
   end;
 
   TJvInterpreterAdapterAccessProtected = class(TJvInterpreterAdapter);
 
+{$IF FPC_FULLVERSION >= 30301}
+function TJvInterpreterReader.FindMethod(Root: TComponent; const MethodName: RawByteString): CodePointer;
+{$ELSE}
 function TJvInterpreterReader.FindMethod(Root: TComponent; const MethodName: string): Pointer;
+{$ENDIF}
 var
   Len: Integer;
 begin