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

* Epsilon for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-09 14:32:40 +02:00
parent 669d41172c
commit a6d3587432
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/types.pp
View File

@ -33,6 +33,11 @@ const
RT_RCDATA = WinTypes.RT_RCDATA deprecated 'Use WinTypes.RT_RCDATA instead'; RT_RCDATA = WinTypes.RT_RCDATA deprecated 'Use WinTypes.RT_RCDATA instead';
{$endif} {$endif}
Type
Epsilon: Single = 1E-40;
Epsilon2: Single = 1E-30;
type type
TEndian = Objpas.TEndian; TEndian = Objpas.TEndian;
TDirection = (FromBeginning, FromEnd); TDirection = (FromBeginning, FromEnd);