paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-14 19:33:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Daniel removal of findclose reverted

Browse Source
This commit is contained in:
pierre 1999-01-22 16:22:09 +00:00
parent 3ebb26894c
commit f851a800c9
1 changed files with 872 additions and 861 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/go32v1/dos.pp
View File

@ -109,6 +109,7 @@ Function DiskFree(drive: byte) : longint;
Function DiskSize(drive: byte) : longint;
Procedure FindFirst(const path: pathstr; attr: word; var f: searchRec);
Procedure FindNext(var f: searchRec);
Procedure FindClose(Var f: SearchRec);
{File}
Procedure GetFAttr(var f; var attr: word);
@ -481,6 +482,12 @@ begin
end;
Procedure FindClose(Var f: SearchRec);
begin
DosError:=0;
end;
procedure swapvectors;
begin
DosError:=0;
@ -784,7 +791,10 @@ End;
end.
{
$Log$
Revision 1.2 1999-01-22 10:07:02 daniel
Revision 1.3 1999-01-22 16:22:09 pierre
* Daniel removal of findclose reverted
Revision 1.2 1999/01/22 10:07:02 daniel
- Findclose removed: This is TP incompatible!!
Revision 1.1 1998/12/21 13:07:02 peter
@ -861,3 +871,4 @@ end.
+ read_text_as_pchar which was not yet in the rtl
}