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

* Dotted filenames for package gmp

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:06 +01:00
parent db83f9ea44
commit dc096609ff
5 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/gmp/namespaced/Api.Gmp.pas Normal file
View File

@ -0,0 +1,3 @@
unit Api.Gmp;
{$DEFINE FPC_DOTTEDUNITS}
{$i gmp.pas}

3
packages/gmp/namespaced/Api.Libgmp.pp Normal file
View File

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

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

@ -0,0 +1,4 @@
src/gmp.pas=namespaced/Api.Gmp.pas
{s*:src/}=namespaced/
{i+:src/}
src/libgmp.pp=namespaced/Api.Libgmp.pp

12
packages/gmp/src/gmp.pas
View File

@ -13,7 +13,9 @@
}
{$IFNDEF FPC_DOTTEDUNITS}
unit gmp;
{$ENDIF FPC_DOTTEDUNITS}
{$mode objfpc}{$h+}
{$packrecords c}
@ -51,8 +53,13 @@ unit gmp;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
sysutils;
{$ENDIF FPC_DOTTEDUNITS}
const
BASE10 = 10;
@ -1582,8 +1589,13 @@ operator >= (op1: MPRational; op2: MPRational): boolean; inline;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Math;
{$ELSE FPC_DOTTEDUNITS}
uses
math;
{$ENDIF FPC_DOTTEDUNITS}
{$ifndef NO_GMP_GLOBVARS}
var

12
packages/gmp/src/libgmp.pp
View File

@ -14,11 +14,18 @@
**********************************************************************}
{$mode objfpc}
{$IFNDEF FPC_DOTTEDUNITS}
unit libgmp;
{$ENDIF FPC_DOTTEDUNITS}
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes;
{$ELSE FPC_DOTTEDUNITS}
uses
ctypes;
{$ENDIF FPC_DOTTEDUNITS}
{
Automatically converted by H2Pas 1.0.0 from libgmp.h
@ -597,8 +604,13 @@ function libgmpLoaded: boolean;
implementation
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils, System.DynLibs;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils, dynlibs;
{$ENDIF FPC_DOTTEDUNITS}
var
hlib : tlibhandle;