pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

JVCL: JvPascalInterpreter - fix compilation with fpc/main. Patch by michalgw. Resolves Issue #39057.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9026 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2023-11-14 22:08:28 +00:00
parent a5677f896b
commit 3952a66b63
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas
View File

@ -160,13 +160,20 @@ uses
type type
TJvInterpreterReader = class(TReader) TJvInterpreterReader = class(TReader)
protected protected
function FindMethod(Root: TComponent; const MethodName: string): Pointer; {$IF FPC_FULLVERSION >= 30301}
override; function FindMethod(Root: TComponent; const MethodName: RawByteString): CodePointer; override;
{$ELSE}
function FindMethod(Root: TComponent; const MethodName: string): Pointer; override;
{$ENDIF}
end; end;
TJvInterpreterAdapterAccessProtected = class(TJvInterpreterAdapter); 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; function TJvInterpreterReader.FindMethod(Root: TComponent; const MethodName: string): Pointer;
{$ENDIF}
var var
Len: Integer; Len: Integer;
begin begin