paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 17:27:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Epsilon for Delphi compatibility

Browse Source 
(cherry picked from commit a6d3587432)
This commit is contained in:
Michaël Van Canneyt 2023-07-09 14:32:40 +02:00 committed by marcoonthegit
parent 72eee6001f
commit 99f246f982
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';
{$endif}
Type
Epsilon: Single = 1E-40;
Epsilon2: Single = 1E-30;
type
TEndian = Objpas.TEndian;
TDirection = (FromBeginning, FromEnd);