paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-07 00:06:12 +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; 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);
{File} {File}
Procedure GetFAttr(var f; var attr: word); Procedure GetFAttr(var f; var attr: word);
@ -481,6 +482,12 @@ begin
end; end;
Procedure FindClose(Var f: SearchRec);
begin
DosError:=0;
end;
procedure swapvectors; procedure swapvectors;
begin begin
DosError:=0; DosError:=0;
@ -784,7 +791,10 @@ End;
end. end.
{ {
$Log$ $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!! - Findclose removed: This is TP incompatible!!
Revision 1.1 1998/12/21 13:07:02 peter 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 + read_text_as_pchar which was not yet in the rtl
} }