--- rpl/src/date.c 2010/01/27 22:22:10 1.2 +++ rpl/src/date.c 2020/01/10 11:15:41 1.66 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.32 + Copyright (C) 1989-2020 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -64,7 +64,7 @@ formateur_date(struct_processus *s_etat_ * Récupération de la structure tm */ - stm = localtime(&((*horodatage).tv_sec)); + stm = localtime((const time_t *) &((*horodatage).tv_sec)); if ((s_objet = allocation(s_etat_processus, LST)) == NULL) { @@ -438,14 +438,14 @@ formateur_date(struct_processus *s_etat_ jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4)) + 2 + ((integer8) (y / 400)) - ((integer8) (y / 100)); - heure_julienne = floor(((real8) 0.6001) * (m + 1)) + - (((real8 ) heures) / 24) + (((real8) minutes) / 1440) + - (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000)) - / 86400) + ((real8) 0.5); + heure_julienne = floor(((real8) 0.6001) * ((real8) m + 1)) + + (((real8) heures) / 24) + (((real8) minutes) / 1440) + + (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000)) / + 86400) + ((real8) 0.5); offset_julien = floor(heure_julienne); - jour_julien += offset_julien; + jour_julien += (integer8) offset_julien; heure_julienne -= offset_julien; (*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;