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

* Remove some unused variables

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-05 23:57:26 +01:00
parent b3c3e36b75
commit afb8872fcb
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/wasi/src/wasienv.pas
View File

@ -595,7 +595,6 @@ function TWASIHost.CreateWebAssembly(aPath: string; aImportObject: TJSObject
var var
Resp : TJSResponse absolute res; Resp : TJSResponse absolute res;
err : TJSError;
begin begin
if (Resp.status div 100)<>2 then if (Resp.status div 100)<>2 then
@ -1826,7 +1825,7 @@ var
NameArray : TJSUint8Array; NameArray : TJSUint8Array;
NameLen : integer; NameLen : integer;
Ptr : TWasmMemoryLocation; Ptr : TWasmMemoryLocation;
Res,Used : Integer; Res : Integer;
begin begin
@ -2496,7 +2495,6 @@ var
Resp: TJSResponse; Resp: TJSResponse;
blob : TJSBlob; blob : TJSBlob;
buf : TJSarrayBuffer; buf : TJSarrayBuffer;
Data : TJSUint8Array;
Fails : TLoadFileFailureDynArray; Fails : TLoadFileFailureDynArray;
procedure AddFailure(aUrl,aError: String); procedure AddFailure(aUrl,aError: String);