paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed LFNFindfirst on network drives

Browse Source
This commit is contained in:
peter 1999-04-02 00:01:29 +00:00
parent 2b3a509d52
commit 8d213b0cc7
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/go32v2/dos.pp
View File

@ -498,7 +498,11 @@ begin
for i:=0 to strlen(path) do for i:=0 to strlen(path) do
if path[i]='/' then path[i]:='\'; if path[i]='/' then path[i]:='\';
dosregs.si:=1; { use ms-dos time } dosregs.si:=1; { use ms-dos time }
dosregs.ecx:=attr; { don't include the label if not asked for it, needed for network drives }
if attr=$8 then
dosregs.ecx:=8
else
dosregs.ecx:=attr and (not 8);
dosregs.edx:=tb_offset+Sizeof(LFNSearchrec)+1; dosregs.edx:=tb_offset+Sizeof(LFNSearchrec)+1;
dosmemput(tb_segment,tb_offset+Sizeof(LFNSearchrec)+1,path^,strlen(path)+1); dosmemput(tb_segment,tb_offset+Sizeof(LFNSearchrec)+1,path^,strlen(path)+1);
dosregs.ds:=tb_segment; dosregs.ds:=tb_segment;
@ -990,7 +994,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-03-01 15:40:48 peter Revision 1.5 1999-04-02 00:01:29 peter
* fixed LFNFindfirst on network drives
Revision 1.4 1999/03/01 15:40:48 peter
* use external names * use external names
* removed all direct assembler modes * removed all direct assembler modes