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

* merged dossearchrec2searchrec() fix from fixes branch

Browse Source
This commit is contained in:
Jonas Maebe 2000-07-22 12:24:55 +00:00
parent 069a3ae31d
commit 7c914c429f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/go32v2/dos.pp
View File

@ -634,7 +634,11 @@ procedure dossearchrec2searchrec(var f : searchrec);
var var
len : longint; len : longint;
begin begin
len:=StrLen(@f.Name); { Check is necessary!! OS/2's VDM doesn't clear the name with #0 if the }
{ file doesn't exist! (JM) }
if dosError = 0 then
len:=StrLen(@f.Name)
else len := 0;
Move(f.Name[0],f.Name[1],Len); Move(f.Name[0],f.Name[1],Len);
f.Name[0]:=chr(len); f.Name[0]:=chr(len);
end; end;
@ -1139,7 +1143,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-07-14 10:33:09 michael Revision 1.4 2000-07-22 12:24:55 jonas
* merged dossearchrec2searchrec() fix from fixes branch
Revision 1.3 2000/07/14 10:33:09 michael
+ Conditionals fixed + Conditionals fixed
Revision 1.2 2000/07/13 11:33:39 michael Revision 1.2 2000/07/13 11:33:39 michael