# HG changeset patch
# User unc0rr
# Date 1428763063 -10800
# Node ID df11dea7470112250093d98fea668dfa8ec37e34
# Parent  594f59bd1751970c9347fe918e632c0aca0a8320
Add ceil() function to fpcrtl of pas2c

diff -r 594f59bd1751 -r df11dea74701 project_files/hwc/rtl/system.c
--- a/project_files/hwc/rtl/system.c	Sat Apr 11 15:34:07 2015 +0300
+++ b/project_files/hwc/rtl/system.c	Sat Apr 11 17:37:43 2015 +0300
@@ -300,6 +300,10 @@
     return (int) n;
 }
 
+Integer fpcrtl_ceil(extended n) {
+    return (int) (ceil(n));
+}
+
 LongInt str_to_int(char *src)
 {
     int i;
diff -r 594f59bd1751 -r df11dea74701 project_files/hwc/rtl/system.h
--- a/project_files/hwc/rtl/system.h	Sat Apr 11 15:34:07 2015 +0300
+++ b/project_files/hwc/rtl/system.h	Sat Apr 11 17:37:43 2015 +0300
@@ -93,6 +93,7 @@
 #define     fpcrtl_Assigned                                 fpcrtl_assigned
 
 Integer     fpcrtl_trunc(extended n);
+Integer     fpcrtl_ceil(extended n);
 
 #define     fpcrtl_val(s, a)                                fpcrtl_val__vars(s, &(a))
 void        __attribute__((overloadable))                   fpcrtl_val__vars(string255 s, LongInt *a);