paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small additions for getcwd what we need for FPC_USE_LIBC

Browse Source
This commit is contained in:
marco 2003-12-31 20:20:57 +00:00
parent 62e256d07e
commit b447c92828
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/linux/system.pp
View File

@ -29,6 +29,9 @@ Interface
{$define usedomain}
{$define posixworkaround}
{$define FPC_IS_SYSTEM}
{$ifdef FPC_USE_LIBC}
{$define usegetcwd}
{$endif}
{$I sysunixh.inc}
@ -84,6 +87,17 @@ end;
{$I errno.inc} // error numbers
{$I bunxtype.inc} // c-types, unix base types, unix
// base structures
{*****************************************************************************
Extra cdecl declarations for FPC_USE_LIBC for this os
*****************************************************************************}
{$ifdef FPC_USE_LIBC}
Function fpReadLink(name,linkname:pchar;maxlen:cint):cint; cdecl; external name 'readlink';
function fpgetcwd(buf:pchar;_size:size_t):pchar; external name 'getcwd';
{$endif}
{$I ossysc.inc} // base syscalls
{$I osmain.inc} // base wrappers *nix RTL (derivatives)
@ -104,13 +118,6 @@ end;
{$i typefile.inc}
{*****************************************************************************
Extra cdecl declarations for FPC_USE_LIBC for this os
*****************************************************************************}
{$ifdef FPC_USE_LIBC}
Function fpReadLink(name,linkname:pchar;maxlen:cint):cint; cdecl; external name 'readlink';
{$endif}
procedure SysInitStdIO;
begin
@ -164,7 +171,10 @@ End.
{
$Log$
Revision 1.11 2003-12-30 16:26:10 marco
Revision 1.12 2003-12-31 20:20:57 marco
* small additions for getcwd what we need for FPC_USE_LIBC
Revision 1.11 2003/12/30 16:26:10 marco
* some more fixes. Testing on idefix
Revision 1.10 2003/12/30 15:43:20 marco