Fix for type 'double' cannot be narrowed to 'long' in initializer list

thiagoralves · Oct 20, 2020 · fd6e537 · fd6e537
1 parent e48965d
commit fd6e537
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/runtime/core/lib/iec_std_lib.h b/runtime/core/lib/iec_std_lib.h
@@ -52,6 +52,10 @@
 #define DBG_TYPE(TYPENAME, name)
 #endif
 
+#ifdef __APPLE__
+typedef long time_t;
+#endif
+
 /*
  * Include type defs.
  */
@@ -379,7 +383,7 @@ static inline TIME __time_mul(TIME IN1, LREAL IN2){
   time_t s = (time_t)s_f;
   div_t ns = div((int)((LREAL)IN1.tv_nsec * IN2), 1000000000);
   TIME res = {(long)s + ns.quot,
-		      (long)ns.rem + (s_f - s) * 1000000000 };
+		      (long)((long)ns.rem + (s_f - s) * 1000000000) };
   __normalize_timespec(&res);
   return res;
 }
@@ -537,7 +541,7 @@ static inline LREAL __string_to_real(STRING IN) {
     /*   TO_TIME   */
     /***************/
 static inline TIME    __int_to_time(LINT IN)  {return (TIME){IN, 0};}
-static inline TIME   __real_to_time(LREAL IN) {return (TIME){IN, (IN - (LINT)IN) * 1000000000};}
+static inline TIME   __real_to_time(LREAL IN) {return (TIME){(long)(IN), (long)((IN - (LINT)IN) * 1000000000)};}
 static inline TIME __string_to_time(STRING IN){
     __strlen_t l;
     /* TODO :