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

* universal FExpand

Browse Source
This commit is contained in:
Tomas Hajny 2001-03-16 20:42:44 +00:00
parent d5e9273b9b
commit cd6847e499
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/template/system.pp
View File

@ -249,11 +249,19 @@ begin
InOutRes:=1;
end;
procedure getdir(drivenr : byte;var dir : shortstring);
function GetDirIO (DriveNr: byte; var Dir: ShortString): word;
[public, alias: 'FPC_GETDIRIO'];
begin
InOutRes:=1;
GetDirIO:=1;
end;
procedure GetDir (DriveNr: byte; var Dir: ShortString);
begin
InOutRes := GetDirIO (DriveNr, Dir);
end;
{*****************************************************************************
SystemUnit Initialization
*****************************************************************************}
@ -274,7 +282,10 @@ Begin
End.
{
$Log$
Revision 1.2 2000-07-13 11:33:56 michael
Revision 1.3 2001-03-16 20:42:44 hajny
* universal FExpand
Revision 1.2 2000/07/13 11:33:56 michael
+ removed logs
}