paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 23:38:06 +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

13
rtl/go32v2/dos.pp
View File

@ -634,7 +634,11 @@ procedure dossearchrec2searchrec(var f : searchrec);
var
len : longint;
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);
f.Name[0]:=chr(len);
end;
@ -1139,10 +1143,13 @@ End;
end.
{
$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
Revision 1.2 2000/07/13 11:33:39 michael
+ removed logs
}