# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1541630595 -3600
# Node ID 5c6f947c342c1537fe9e78c266c760485ff0336a
# Parent  48b9da0178eb69f6bd9bfa63805e52c6345aeec2
Pas2C: Fix data types of Trunc and Ceil

diff -r 48b9da0178eb -r 5c6f947c342c project_files/hwc/rtl/system.c
--- a/project_files/hwc/rtl/system.c	Wed Nov 07 16:44:16 2018 -0500
+++ b/project_files/hwc/rtl/system.c	Wed Nov 07 23:43:15 2018 +0100
@@ -343,12 +343,12 @@
     *p = malloc(size);
 }
 
-Integer fpcrtl_trunc(extended n) {
-    return (int) n;
+Int64 fpcrtl_trunc(extended n) {
+    return (Int64) n;
 }
 
 Integer fpcrtl_ceil(extended n) {
-    return (int) (ceil(n));
+    return (Integer) (ceil(n));
 }
 
 LongInt str_to_int(char *src)
diff -r 48b9da0178eb -r 5c6f947c342c project_files/hwc/rtl/system.h
--- a/project_files/hwc/rtl/system.h	Wed Nov 07 16:44:16 2018 -0500
+++ b/project_files/hwc/rtl/system.h	Wed Nov 07 23:43:15 2018 +0100
@@ -94,7 +94,7 @@
 #define     fpcrtl_assigned(p)                              ((p) != NULL)
 #define     fpcrtl_Assigned                                 fpcrtl_assigned
 
-Integer     fpcrtl_trunc(extended n);
+Int64       fpcrtl_trunc(extended n);
 Integer     fpcrtl_ceil(extended n);
 
 #define     fpcrtl_val(s, a)                                fpcrtl_val__vars(s, &(a))