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

* FindClose correction

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-15 20:44:18 +00:00
parent e5736660df
commit 9126b8380f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/sysutils.pp
View File

@ -320,18 +320,19 @@ end;
procedure FindClose (var F: TSearchrec);
{ var SR: PSearchRec; }
var SR: PSearchRec;
begin
if os_mode = osOS2 then
begin
DosFindClose (F.FindHandle);
end
{ else
else
begin
SR := PSearchRec (F.FindHandle);
DOS.FindClose (SR^);
FreeMem (SR, SizeOf (SearchRec));
end};
end;
F.FindHandle := 0;
end;
@ -756,7 +757,10 @@ Finalization
end.
{
$Log$
Revision 1.5 2000-09-29 21:49:41 jonas
Revision 1.6 2000-10-15 20:44:18 hajny
* FindClose correction
Revision 1.5 2000/09/29 21:49:41 jonas
* removed warnings
Revision 1.4 2000/08/30 06:30:55 michael