Browse Source

* added the fpc_wasi_path_readlink_ansistring helper function to unit wasiutil

Nikolay Nikolov 3 years ago
parent
commit
de3ab7e46b
4 changed files with 6 additions and 8 deletions
  1. 1 1
      rtl/wasi/Makefile
  2. 1 1
      rtl/wasi/Makefile.fpc
  3. 0 6
      rtl/wasi/sysutils.pp
  4. 4 0
      rtl/wasi/wasiutil.pp

+ 1 - 1
rtl/wasi/Makefile

@@ -2665,7 +2665,7 @@ si_prc$(PPUEXT) : si_prc.pp $(SYSTEMUNIT)$(PPUEXT)
 	$(COMPILER) $<
 	$(COMPILER) $<
 wasiapi$(PPUEXT) : wasiapi.pp wasiinc/wasitypes.inc wasiinc/wasiprocs.inc $(SYSTEMUNIT)$(PPUEXT)
 wasiapi$(PPUEXT) : wasiapi.pp wasiinc/wasitypes.inc wasiinc/wasiprocs.inc $(SYSTEMUNIT)$(PPUEXT)
 	$(COMPILER) $< -Fiwasiinc
 	$(COMPILER) $< -Fiwasiinc
-wasiutil$(PPUEXT) : wasiutil.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+wasiutil$(PPUEXT) : wasiutil.pp wasiapi$(PPUEXT) objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 	$(COMPILER) $<
 	$(COMPILER) $<
 ctypes$(PPUEXT) :  $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)
 ctypes$(PPUEXT) :  $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)
 	$(COMPILER) $<
 	$(COMPILER) $<

+ 1 - 1
rtl/wasi/Makefile.fpc

@@ -90,7 +90,7 @@ si_prc$(PPUEXT) : si_prc.pp $(SYSTEMUNIT)$(PPUEXT)
 wasiapi$(PPUEXT) : wasiapi.pp wasiinc/wasitypes.inc wasiinc/wasiprocs.inc $(SYSTEMUNIT)$(PPUEXT)
 wasiapi$(PPUEXT) : wasiapi.pp wasiinc/wasitypes.inc wasiinc/wasiprocs.inc $(SYSTEMUNIT)$(PPUEXT)
         $(COMPILER) $< -Fiwasiinc
         $(COMPILER) $< -Fiwasiinc
 
 
-wasiutil$(PPUEXT) : wasiutil.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+wasiutil$(PPUEXT) : wasiutil.pp wasiapi$(PPUEXT) objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
         $(COMPILER) $<
         $(COMPILER) $<
 
 
 ctypes$(PPUEXT) :  $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)
 ctypes$(PPUEXT) :  $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)

+ 0 - 6
rtl/wasi/sysutils.pp

@@ -52,12 +52,6 @@ implementation
 
 
 {$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
 {$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
 
 
-function fpc_wasi_path_readlink_ansistring(
-                 fd: __wasi_fd_t;
-                 const path: PChar;
-                 path_len: size_t;
-                 out link: rawbytestring): __wasi_errno_t; external name 'FPC_WASI_PATH_READLINK_ANSISTRING';
-
 Function UniversalToEpoch(year,month,day,hour,minute,second:Word):int64;
 Function UniversalToEpoch(year,month,day,hour,minute,second:Word):int64;
 const
 const
   days_in_month: array [boolean, 1..12] of Byte =
   days_in_month: array [boolean, 1..12] of Byte =

+ 4 - 0
rtl/wasi/wasiutil.pp

@@ -19,7 +19,11 @@ unit wasiutil;
 
 
 interface
 interface
 
 
+uses
+  wasiapi;
+
 function ConvertToFdRelativePath(path: RawByteString; out fd: LongInt; out relfd_path: RawByteString): Word; external name 'FPC_WASI_CONVERTTOFDRELATIVEPATH';
 function ConvertToFdRelativePath(path: RawByteString; out fd: LongInt; out relfd_path: RawByteString): Word; external name 'FPC_WASI_CONVERTTOFDRELATIVEPATH';
+function fpc_wasi_path_readlink_ansistring(fd: __wasi_fd_t; const path: PChar; path_len: size_t; out link: rawbytestring): __wasi_errno_t; external name 'FPC_WASI_PATH_READLINK_ANSISTRING';
 
 
 implementation
 implementation