paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 18:10:23 +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 } { TJSFunction }
destructor TJSFunctionDeclarationStatement.Destroy; destructor TJSFunctionStatement.Destroy;
begin begin
FreeAndNil(FFuncDef); FreeAndNil(FFuncDef);
inherited Destroy; inherited Destroy;
@ -3607,7 +3607,7 @@ Var
begin begin
FParams.Clear; FParams.Clear;
For I:=0 to TypedParams.Count-1 do 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; end;
{ TJSBracketMemberExpression } { TJSBracketMemberExpression }