From c3d01e19a33b26764c40d67e6f3f86efbd86b203 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Fri, 18 Jul 2014 09:31:36 +0000 Subject: s-os_lib.ads, [...] (GM_Time_Of): New routine to create an OS_Time from time parts. 2014-07-18 Pascal Obry * s-os_lib.ads, s-os_lib.adb (GM_Time_Of): New routine to create an OS_Time from time parts. * adaint.h, adaint.c (__gnat_to_os_time): New routine. From-SVN: r212788 --- gcc/ada/adaint.c | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'gcc/ada/adaint.c') diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 607ba82..6e0e4a3d 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -503,6 +503,25 @@ __gnat_to_gm_time (OS_Time *p_time, int *p_year, int *p_month, int *p_day, *p_year = *p_month = *p_day = *p_hours = *p_mins = *p_secs = 0; } +void +__gnat_to_os_time (OS_Time *p_time, int year, int month, int day, + int hours, int mins, int secs) +{ + struct tm v; + + v.tm_year = year; + v.tm_mon = month; + v.tm_mday = day; + v.tm_hour = hours; + v.tm_min = mins; + v.tm_sec = secs; + v.tm_isdst = 0; + + /* returns -1 of failing, this is s-os_lib Invalid_Time */ + + *p_time = (OS_Time) mktime (&v); +} + /* Place the contents of the symbolic link named PATH in the buffer BUF, which has size BUFSIZ. If PATH is a symbolic link, then return the number of characters of its content in BUF. Otherwise, return -1. -- cgit v1.1