paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 13:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compiler warnings/hints

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-23 11:36:29 +01:00
parent 11092a2fd4
commit 73ac60a015
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/wasi/src/wasizenfs.pas
View File

@ -217,6 +217,7 @@ begin
on E : TJSObject do on E : TJSObject do
Result:=ExceptToError(E); Result:=ExceptToError(E);
end; end;
if Flags=[] then;
end; end;
function TWASIZenFS.LinkAt(OldFD: Integer; OldPath: String; NewFD: Integer; function TWASIZenFS.LinkAt(OldFD: Integer; OldPath: String; NewFD: Integer;
@ -481,7 +482,7 @@ var
end; end;
begin begin
if (fdFlags<>0) and (fsFlags<>0) then ; if (fdFlags<>0) and (fsFlags<>0) and (fsRightsInheriting<>0) then ;
lPath:=PrependFD(FD,aPath); lPath:=PrependFD(FD,aPath);
if Not HasFlag(__WASI_OFLAGS_DIRECTORY) then if Not HasFlag(__WASI_OFLAGS_DIRECTORY) then
begin begin