paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +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); procedure FindClose (var F: TSearchrec);
{ var SR: PSearchRec; } var SR: PSearchRec;
begin begin
if os_mode = osOS2 then if os_mode = osOS2 then
begin begin
DosFindClose (F.FindHandle); DosFindClose (F.FindHandle);
end end
{ else else
begin begin
SR := PSearchRec (F.FindHandle);
DOS.FindClose (SR^); DOS.FindClose (SR^);
FreeMem (SR, SizeOf (SearchRec)); FreeMem (SR, SizeOf (SearchRec));
end}; end;
F.FindHandle := 0; F.FindHandle := 0;
end; end;
@ -756,7 +757,10 @@ Finalization
end. end.
{ {
$Log$ $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 * removed warnings
Revision 1.4 2000/08/30 06:30:55 michael Revision 1.4 2000/08/30 06:30:55 michael