mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-05 07:48:59 +02:00
* Remove some unused variables
This commit is contained in:
parent
b3c3e36b75
commit
afb8872fcb
@ -595,7 +595,6 @@ function TWASIHost.CreateWebAssembly(aPath: string; aImportObject: TJSObject
|
||||
|
||||
var
|
||||
Resp : TJSResponse absolute res;
|
||||
err : TJSError;
|
||||
|
||||
begin
|
||||
if (Resp.status div 100)<>2 then
|
||||
@ -1826,7 +1825,7 @@ var
|
||||
NameArray : TJSUint8Array;
|
||||
NameLen : integer;
|
||||
Ptr : TWasmMemoryLocation;
|
||||
Res,Used : Integer;
|
||||
Res : Integer;
|
||||
|
||||
|
||||
begin
|
||||
@ -2496,7 +2495,6 @@ var
|
||||
Resp: TJSResponse;
|
||||
blob : TJSBlob;
|
||||
buf : TJSarrayBuffer;
|
||||
Data : TJSUint8Array;
|
||||
Fails : TLoadFileFailureDynArray;
|
||||
|
||||
procedure AddFailure(aUrl,aError: String);
|
||||
|
Loading…
Reference in New Issue
Block a user