paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: fixed compile with pas2js

Browse Source
This commit is contained in:
mattias 2022-02-12 21:13:41 +01:00
parent 51ce1e883f
commit 925dc4bc75
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/fcl-js/src/jstree.pp
View File

@ -3543,7 +3543,7 @@ end;
{ TJSFunction }
destructor TJSFunctionDeclarationStatement.Destroy;
destructor TJSFunctionStatement.Destroy;
begin
FreeAndNil(FFuncDef);
inherited Destroy;
@ -3607,7 +3607,7 @@ Var
begin
FParams.Clear;
For I:=0 to TypedParams.Count-1 do
FParams.Add(UTF8Encode(TypedParams.Names[i]));
FParams.Add({$ifdef FPC_HAS_CPSTRING}UTF8Encode(TypedParams.Names[i]){$ELSE}TypedParams.Names[i]{$ENDIF});
end;
{ TJSBracketMemberExpression }