瀏覽代碼

fcl-js: fixed compile with pas2js

mattias 3 年之前
父節點
當前提交
925dc4bc75
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-js/src/jstree.pp

+ 2 - 2
packages/fcl-js/src/jstree.pp

@@ -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 }