paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +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

17
rtl/linux/baseunix.pp
View File

@ -23,9 +23,19 @@ Interface
{$define posixworkaround} // Temporary ugly workaround for signal handler.
// (mainly until baseunix migration is complete)
{$ifndef FPC_USE_LIBC}
{$define FPC_USE_SYSCALL}
{$endif}
{$i errno.inc} { Error numbers }
{$i bunxtype.inc} { Types }
{$i bunxh.inc} { Functions}
{$ifdef FPC_USE_LIBC}
{$i oscdeclh.inc}
{$ELSE}
{$i bunxh.inc} { Functions}
{$ENDIF}
{$i bunxovlh.inc}
function fpgeterrno:longint;
procedure fpseterrno(err:longint);
@ -46,7 +56,10 @@ end.
{
$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
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}
{ $Define AOUT}
{$ifdef BSD}
Unit {$ifdef VER1_0}SysBSD{$else}System{$endif};
{$else}
Unit {$ifdef VER1_0}Syslinux{$else}System{$endif};
{$endif}
Interface
{$define oldreaddir}
{$define usedomain}
{$define posixworkaround}
{$define FPC_IS_SYSTEM}
{$I sysunixh.inc}
@ -136,7 +133,10 @@ End.
{
$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.
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);
end;
{
Function StatFS(Path:Pathstr;Var Info:tstatfs):cint;
{
Get all information on a fileSystem, and return it in Info.
@ -34,7 +35,7 @@ begin
path:=path+#0;
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info)));
end;
}
Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
{
Get all information on a fileSystem, and return it in Info.
@ -110,7 +111,10 @@ end;
{
$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
unix to systypes.inc (which acts as unxtypes.inc)