paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 23:49:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Thierry Gayet to fix compilation of tests

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-26 14:52:46 +01:00
parent 8971103a00
commit 14d4b0808b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/webidl/tests/tcwebidl2wasmjob.pas
View File

@ -24,7 +24,7 @@ type
procedure TestWebIDL(const WebIDLSrc, ExpectedPascalSrc: array of string); virtual; procedure TestWebIDL(const WebIDLSrc, ExpectedPascalSrc: array of string); virtual;
procedure CheckDiff(Msg, Expected, Actual: string); virtual; procedure CheckDiff(Msg, Expected, Actual: string); virtual;
property WebIDLToPas: TWebIDLToPasWasmJob read FWebIDLToPas; property WebIDLToPas: TWebIDLToPasWasmJob read FWebIDLToPas;
property HeaderSrc: String read FHeaderSrc write FHeaderSrc; property HeaderSrc: TIDLString read FHeaderSrc write FHeaderSrc;
end; end;
{ TTestWebIDL2WasmJob } { TTestWebIDL2WasmJob }
@ -48,7 +48,7 @@ type
procedure TestWJ_IntfFunction_ArgAny; procedure TestWJ_IntfFunction_ArgAny;
end; end;
function LinesToStr(Args: array of const): string; function LinesToStr(Args: array of const): TIDLString;
function CheckSrcDiff(Expected, Actual: string; out Msg: string): boolean; function CheckSrcDiff(Expected, Actual: string; out Msg: string): boolean;
implementation implementation