From 73ac60a0153e7e93352780894514a6befaddc14b Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Thu, 23 Jan 2025 11:36:29 +0100
Subject: [PATCH] * Fix compiler warnings/hints

---
 packages/wasi/src/wasizenfs.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/wasi/src/wasizenfs.pas b/packages/wasi/src/wasizenfs.pas
index 95c101a..98de2e3 100644
--- a/packages/wasi/src/wasizenfs.pas
+++ b/packages/wasi/src/wasizenfs.pas
@@ -217,6 +217,7 @@ begin
     on E : TJSObject do
       Result:=ExceptToError(E);
   end;
+  if Flags=[] then;
 end;
 
 function TWASIZenFS.LinkAt(OldFD: Integer; OldPath: String; NewFD: Integer;
@@ -481,7 +482,7 @@ var
   end;
 
 begin
-  if (fdFlags<>0) and (fsFlags<>0) then ;
+  if (fdFlags<>0) and (fsFlags<>0) and (fsRightsInheriting<>0) then ;
   lPath:=PrependFD(FD,aPath);
   if Not HasFlag(__WASI_OFLAGS_DIRECTORY) then
     begin