--- a/project_files/hwc/rtl/pas2c.h	Fri Nov 09 17:44:19 2018 +0300
+++ b/project_files/hwc/rtl/pas2c.h	Fri Nov 09 16:28:23 2018 +0100
@@ -49,8 +49,8 @@
 typedef LongWord Cardinal;
 
 typedef LongInt Integer;
-typedef float extended;
-typedef float real;
+typedef long double extended;
+typedef double real;
 typedef float single;
 
 typedef bool boolean;