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

* Dotted filenames for package libffi

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:56 +01:00
parent 52c051d954
commit 6cdf023a21
5 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libffi/namespaced/Api.Ffi.manager.pp Normal file
View File

@ -0,0 +1,3 @@
unit Api.Ffi.manager;
{$DEFINE FPC_DOTTEDUNITS}
{$i ffi.manager.pp}

3
packages/libffi/namespaced/Api.Ffi.pp Normal file
View File

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

4
packages/libffi/namespaces.lst Normal file
View File

@ -0,0 +1,4 @@
src/ffi.pp=namespaced/Api.Ffi.pp
{s*:src/}=namespaced/
{i+:src/}
src/ffi.manager.pp=namespaced/Api.Ffi.manager.pp

7
packages/libffi/src/ffi.manager.pp
View File

@ -12,7 +12,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit ffi.manager;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$H+}
@ -20,8 +22,13 @@ interface
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.TypInfo, System.Rtti, Api.Ffi;
{$ELSE FPC_DOTTEDUNITS}
uses
TypInfo, Rtti, ffi;
{$ENDIF FPC_DOTTEDUNITS}
type
Tpffi_typeArray = array of pffi_type;

7
packages/libffi/src/ffi.pp
View File

@ -39,12 +39,19 @@
http://gcc.gnu.org/ml/java/1999-q3/msg00174.html
-------------------------------------------------------------------- *)
{$IFNDEF FPC_DOTTEDUNITS}
unit ffi;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{
from the various ffitarget.h