From d6cf3c98d0e317aeecb5885ad59ea4b06e431a6e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 6 May 2024 18:01:30 +0200
Subject: [PATCH] * Add constants cPI and friends, for delphi compatibility

---
 rtl/objpas/types.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index 203e4c7f93..f6790e6071 100644
--- a/rtl/objpas/types.pp
+++ b/rtl/objpas/types.pp
@@ -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}