Browse Source

* Fix compiler warnings/hints

Michael Van Canneyt 7 months ago
parent
commit
73ac60a015
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/wasi/src/wasizenfs.pas

+ 2 - 1
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