From c1a482a13ef5a651ff76ba1301b524f6bbe1cf96 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Mon, 19 Aug 2024 15:08:34 +0200
Subject: [PATCH] * No double seek,

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

diff --git a/packages/wasi/src/wasienv.pas b/packages/wasi/src/wasienv.pas
index aca41d9..93226ef 100644
--- a/packages/wasi/src/wasienv.pas
+++ b/packages/wasi/src/wasienv.pas
@@ -1581,8 +1581,7 @@ begin
       end;
       Result:=FS.Seek(fd,Offset,lWhence,NewPos);
       if Result=WASI_ESUCCESS then
-        Result:=FS.Seek(fd,Offset,lWhence,NewPos);
-      SetMemInfoInt64(newOffsetPtr,NewPos);
+        SetMemInfoInt64(newOffsetPtr,NewPos);
     except
       On E : Exception do
         Result:=ErrorToCode(E);