--- rpl/src/instructions_r6.c 2013/03/21 12:07:38 1.49 +++ rpl/src/instructions_r6.c 2013/04/01 15:29:37 1.51 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.13 + RPL/2 (R) version 4.1.14 Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -793,7 +793,8 @@ instruction_rdate(struct_processus *s_et if ((*s_objet_argument).type == INT) { gettimeofday(&horodatage, NULL); - horodatage.tv_sec += (*((integer8 *) (*s_objet_argument).objet)); + horodatage.tv_sec += (time_t) (*((integer8 *) + (*s_objet_argument).objet)); if (horodatage.tv_sec < 0) {