paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 19:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ keep also the fds for the current dirs

Browse Source 
git-svn-id: trunk@49523 -
This commit is contained in:
nickysn 2021-06-22 22:44:20 +00:00
parent d3ce008cd3
commit ba3383f7e3
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/wasi/system.pp
View File

@ -55,6 +55,7 @@ var
preopened_dirs: PPChar;
drives_count: longint;
current_dirs: PPChar;
current_dir_fds: Plongint;
current_drive: longint;
procedure DebugWrite(const P: PChar);
@ -107,6 +108,7 @@ begin
preopened_dirs:=nil;
drives_count:=0;
current_dirs:=nil;
current_dir_fds:=nil;
current_drive:=0;
fd:=3;
repeat
@ -133,14 +135,21 @@ begin
begin
drives_count:=drive_nr+1;
if current_dirs=nil then
current_dirs:=AllocMem(drives_count*SizeOf(PChar))
begin
current_dirs:=AllocMem(drives_count*SizeOf(PChar));
current_dir_fds:=AllocMem(drives_count*SizeOf(longint));
end
else
begin
ReAllocMem(current_dirs,drives_count*SizeOf(PChar));
ReAllocMem(current_dir_fds,drives_count*SizeOf(longint));
end;
end;
if current_dirs[drive_nr]=nil then
begin
current_dirs[drive_nr]:=GetMem(1+StrLen(prestat_dir_name));
Move(prestat_dir_name^,current_dirs[drive_nr]^,StrLen(prestat_dir_name)+1);
current_dir_fds[drive_nr]:=fd;
end;
end
else