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

* Dotted filenames for package libc

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:02 +01:00
parent 3f78ba87a3
commit 88ba748ef0
7 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libc/namespaced/Api.Kerneldefs.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Kerneldefs;
{$DEFINE FPC_DOTTEDUNITS}
{$i kerneldefs.pp}

3
packages/libc/namespaced/Api.Kernelioctl.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Kernelioctl;
{$DEFINE FPC_DOTTEDUNITS}
{$i kernelioctl.pp}

3
packages/libc/namespaced/Api.Libc.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Libc;
{$DEFINE FPC_DOTTEDUNITS}
{$i libc.pp}

5
packages/libc/namespaces.lst Normal file
View File

@ -0,0 +1,5 @@
src/libc.pp=namespaced/Api.Libc.pp
{s*:src/}=namespaced/
{i+:src/}
src/kerneldefs.pp=namespaced/Api.Kerneldefs.pp
src/kernelioctl.pp=namespaced/Api.Kernelioctl.pp

2
packages/libc/src/kerneldefs.pp
View File

@ -5,7 +5,9 @@
{$error The KernelDefs unit is a legacy Kylix-compatibility unit that is only supported on Linux/i386. It is known not to work in various ways on other OSes and architectures (including Linux/x86_64). }
{$endif}
{$IFNDEF FPC_DOTTEDUNITS}
unit kerneldefs;
{$ENDIF FPC_DOTTEDUNITS}
interface
// Translated from asm/types.h (i386)

2
packages/libc/src/kernelioctl.pp
View File

@ -5,7 +5,9 @@
{$error The KernelIoctl unit is a legacy Kylix-compatibility unit that is only supported on Linux/i386. It is known not to work in various ways on other OSes and architectures (including Linux/x86_64). }
{$endif}
{$IFNDEF FPC_DOTTEDUNITS}
Unit kernelioctl;
{$ENDIF FPC_DOTTEDUNITS}
Interface

10
packages/libc/src/libc.pp
View File

@ -6,11 +6,17 @@
{$error The KernelDefs unit is a legacy Kylix-compatibility unit that is only supported on Linux/i386. It is known not to work in various ways on other OSes and architectures (including Linux/x86_64). }
{$endif}
{$IFNDEF FPC_DOTTEDUNITS}
unit libc deprecated 'Unportable Kylix legacy unit that only exists on Linux/x86. see http://wiki.freepascal.org/libc_unit ';
{$ENDIF FPC_DOTTEDUNITS}
Interface
{$IFDEF FPC_DOTTEDUNITS}
uses UnixApi.Types,Api.Kerneldefs;
{$ELSE FPC_DOTTEDUNITS}
uses unixtype,kerneldefs;
{$ENDIF FPC_DOTTEDUNITS}
Const
clib = 'c';
@ -230,7 +236,11 @@ Const
Implementation
{$IFDEF FPC_DOTTEDUNITS}
uses Api.Kernelioctl;
{$ELSE FPC_DOTTEDUNITS}
uses kernelioctl;
{$ENDIF FPC_DOTTEDUNITS}
{$i types.inc} // types.h macros.
{$i cerrno.inc} // errno.h asm/errno.h bits/errno.h macros.