paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetDir fixed

Browse Source
This commit is contained in:
Tomas Hajny 2001-03-25 11:06:35 +00:00
parent d111ee7e69
commit b2f174a277
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/template/system.pp
View File

@ -249,16 +249,10 @@ begin
InOutRes:=1;
end;
function GetDirIO (DriveNr: byte; var Dir: ShortString): word;
[public, alias: 'FPC_GETDIRIO'];
begin
GetDirIO:=1;
end;
procedure GetDir (DriveNr: byte; var Dir: ShortString);
begin
InOutRes := GetDirIO (DriveNr, Dir);
InOutRes := 1;
end;
@ -282,7 +276,10 @@ Begin
End.
{
$Log$
Revision 1.3 2001-03-16 20:42:44 hajny
Revision 1.4 2001-03-25 11:06:35 hajny
* GetDir fixed
Revision 1.3 2001/03/16 20:42:44 hajny
* universal FExpand
Revision 1.2 2000/07/13 11:33:56 michael