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

* Add constants cPI and friends, for delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-06 18:01:30 +02:00
parent a04d2b59f6
commit d6cf3c98d0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/types.pp
View File

@ -531,6 +531,13 @@ type
end;
{$endif}
Const
cPI: Single = 3.141592654;
cPIdiv180: Single = 0.017453292;
cPIdiv2: Single = 1.570796326;
cPIdiv4: Single = 0.785398163;
implementation
{$IFDEF FPC_DOTTEDUNITS}