version 1.70, 2013/03/21 11:30:30
|
version 1.73, 2013/04/01 15:29:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.14 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1276 instruction_smphrtrydecr(struct_processu
|
Line 1276 instruction_smphrtrydecr(struct_processu
|
return; |
return; |
} |
} |
|
|
horodatage.tv_sec += (*((integer8 *) (*s_objet_argument_1).objet)); |
horodatage.tv_sec += (time_t) (*((integer8 *) |
|
(*s_objet_argument_1).objet)); |
} |
} |
else |
else |
{ |
{ |
Line 1290 instruction_smphrtrydecr(struct_processu
|
Line 1291 instruction_smphrtrydecr(struct_processu
|
} |
} |
|
|
partie_entiere = floor((*((real8 *) (*s_objet_argument_1).objet))); |
partie_entiere = floor((*((real8 *) (*s_objet_argument_1).objet))); |
horodatage.tv_sec += (__time_t) partie_entiere; |
horodatage.tv_sec += (time_t) partie_entiere; |
horodatage.tv_usec += ((suseconds_t) ((*((real8 *) |
horodatage.tv_usec += ((suseconds_t) ((*((real8 *) |
(*s_objet_argument_1).objet)) - partie_entiere)) * 1000000; |
(*s_objet_argument_1).objet)) - partie_entiere)) * 1000000; |
|
|