paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-24 02:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove some unused variables

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-23 11:33:38 +01:00
parent addc99923d
commit 66b4f8d4fe
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/job/src/job_browser.pp
View File

@ -127,8 +127,6 @@ Type
Implementation Implementation
uses math;
function NewObj(const fn: TJSFunction; const Args: TJSValueDynArray): TJSFunction; assembler; function NewObj(const fn: TJSFunction; const Args: TJSValueDynArray): TJSFunction; assembler;
asm asm
@ -366,8 +364,6 @@ begin
end; end;
function TJSObjectBridge.DecodeUTF8Buffer(Arr: TJSUint8Array): String; function TJSObjectBridge.DecodeUTF8Buffer(Arr: TJSUint8Array): String;
var
enc : string;
begin begin
if FDecoderUTF8=Nil then if FDecoderUTF8=Nil then
@ -791,6 +787,7 @@ begin
Result:=JOBResult_Success; Result:=JOBResult_Success;
end; end;
end; end;
if aFlags=0 then ;
end; end;
function TJSObjectBridge.ReleaseStringResult: TJOBResult; function TJSObjectBridge.ReleaseStringResult: TJOBResult;
@ -818,7 +815,6 @@ var
var var
aCall, aData, aCode: TWasmNativeInt; aCall, aData, aCode: TWasmNativeInt;
Obj : TJSObject absolute Result;
ReRaise : Boolean; ReRaise : Boolean;
function MethodCallBack: jsvalue; function MethodCallBack: jsvalue;
@ -956,7 +952,6 @@ var
function ReadArgArrayOfByte: JSValue; function ReadArgArrayOfByte: JSValue;
var var
Cnt, El: TWasmNativeInt; Cnt, El: TWasmNativeInt;
i: Integer;
begin begin
Cnt:=ReadWasmNativeInt; Cnt:=ReadWasmNativeInt;