From afb8872fcbbc3ddb92cc693a9499e372703aec49 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Tue, 5 Nov 2024 23:57:26 +0100
Subject: [PATCH] * Remove some unused variables

---
 packages/wasi/src/wasienv.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/packages/wasi/src/wasienv.pas b/packages/wasi/src/wasienv.pas
index 0f165f2..9fef444 100644
--- a/packages/wasi/src/wasienv.pas
+++ b/packages/wasi/src/wasienv.pas
@@ -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);