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

* FPC_USE_LIBC

Browse Source
This commit is contained in:
marco 2003-12-30 12:36:56 +00:00
parent ed32411ea4
commit d657b168c7
3 changed files with 26 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/baseunix.pp
View File

@ -23,9 +23,19 @@ Interface
{$define posixworkaround} // Temporary ugly workaround for signal handler. {$define posixworkaround} // Temporary ugly workaround for signal handler.
// (mainly until baseunix migration is complete) // (mainly until baseunix migration is complete)
{$ifndef FPC_USE_LIBC}
{$define FPC_USE_SYSCALL}
{$endif}
{$i errno.inc} { Error numbers } {$i errno.inc} { Error numbers }
{$i bunxtype.inc} { Types } {$i bunxtype.inc} { Types }
{$ifdef FPC_USE_LIBC}
{$i oscdeclh.inc}
{$ELSE}
{$i bunxh.inc} { Functions} {$i bunxh.inc} { Functions}
{$ENDIF}
{$i bunxovlh.inc}
function fpgeterrno:longint; function fpgeterrno:longint;
procedure fpseterrno(err:longint); procedure fpseterrno(err:longint);
@ -46,7 +56,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2003-12-11 18:20:50 florian Revision 1.6 2003-12-30 12:36:56 marco
* FPC_USE_LIBC
Revision 1.5 2003/12/11 18:20:50 florian
* replaced VER1_0 by HASGLOBALPROPERTY * replaced VER1_0 by HASGLOBALPROPERTY
Revision 1.4 2003/12/10 17:14:06 marco Revision 1.4 2003/12/10 17:14:06 marco

10
rtl/linux/system.pp
View File

@ -22,16 +22,13 @@
{ If you use an aout system, set the conditional AOUT} { If you use an aout system, set the conditional AOUT}
{ $Define AOUT} { $Define AOUT}
{$ifdef BSD}
Unit {$ifdef VER1_0}SysBSD{$else}System{$endif};
{$else}
Unit {$ifdef VER1_0}Syslinux{$else}System{$endif}; Unit {$ifdef VER1_0}Syslinux{$else}System{$endif};
{$endif}
Interface Interface
{$define oldreaddir} {$define oldreaddir}
{$define usedomain} {$define usedomain}
{$define posixworkaround} {$define posixworkaround}
{$define FPC_IS_SYSTEM}
{$I sysunixh.inc} {$I sysunixh.inc}
@ -136,7 +133,10 @@ End.
{ {
$Log$ $Log$
Revision 1.8 2003-09-14 20:15:01 marco Revision 1.9 2003-12-30 12:36:56 marco
* FPC_USE_LIBC
Revision 1.8 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.7 2003/04/30 22:11:06 florian Revision 1.7 2003/04/30 22:11:06 florian

8
rtl/linux/unixsysc.inc
View File

@ -24,6 +24,7 @@ begin
flock:=do_Syscall(Syscall_nr_flock,fd,mode); flock:=do_Syscall(Syscall_nr_flock,fd,mode);
end; end;
{
Function StatFS(Path:Pathstr;Var Info:tstatfs):cint; Function StatFS(Path:Pathstr;Var Info:tstatfs):cint;
{ {
Get all information on a fileSystem, and return it in Info. Get all information on a fileSystem, and return it in Info.
@ -34,7 +35,7 @@ begin
path:=path+#0; path:=path+#0;
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info))); StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info)));
end; end;
}
Function fStatFS(Fd:cint;Var Info:tstatfs):cint; Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
{ {
Get all information on a fileSystem, and return it in Info. Get all information on a fileSystem, and return it in Info.
@ -110,7 +111,10 @@ end;
{ {
$Log$ $Log$
Revision 1.21 2003-11-19 11:46:55 marco Revision 1.22 2003-12-30 12:36:56 marco
* FPC_USE_LIBC
Revision 1.21 2003/11/19 11:46:55 marco
* changes due to the previous *BSD changes. Mainly moving constants from * changes due to the previous *BSD changes. Mainly moving constants from
unix to systypes.inc (which acts as unxtypes.inc) unix to systypes.inc (which acts as unxtypes.inc)