paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-17 09:39:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ findclose added

Browse Source
This commit is contained in:
pierre 1999-01-22 16:25:58 +00:00
parent f851a800c9
commit ec93b43e64
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/os2/dos.pas
View File

@ -134,6 +134,7 @@ function diskfree(drive:byte):longint;
function disksize(drive:byte):longint; function disksize(drive:byte):longint;
procedure findfirst(const path:pathstr;attr:word;var f:searchRec); procedure findfirst(const path:pathstr;attr:word;var f:searchRec);
procedure findnext(var f:searchRec); procedure findnext(var f:searchRec);
procedure findclose(var f:searchRec);
{Is a dummy:} {Is a dummy:}
procedure swapvectors; procedure swapvectors;
@ -755,6 +756,10 @@ begin
dossearchrec2searchrec(f); dossearchrec2searchrec(f);
end; end;
procedure findclose(var f:searchRec);
begin
end;
procedure swapvectors; procedure swapvectors;
{For TP compatibility, this exists.} {For TP compatibility, this exists.}
@ -980,7 +985,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.11 1999-01-18 16:22:51 jonas Revision 1.12 1999-01-22 16:25:58 pierre
+ findclose added
Revision 1.11 1999/01/18 16:22:51 jonas
- removed "noattcdq" define - removed "noattcdq" define
Revision 1.10 1998/12/10 16:05:39 daniel Revision 1.10 1998/12/10 16:05:39 daniel