version 1.58, 2012/05/20 17:28:26
|
version 1.62, 2012/10/01 11:05:06
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.8 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1292 instruction_smphrtrydecr(struct_processu
|
Line 1292 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 += partie_entiere; |
horodatage.tv_sec += partie_entiere; |
horodatage.tv_usec += (*((real8 *) (*s_objet_argument_1).objet)) |
horodatage.tv_usec += ((suseconds_t) ((*((real8 *) |
- partie_entiere; |
(*s_objet_argument_1).objet)) - partie_entiere)) * 1000000; |
|
|
if (horodatage.tv_usec > 1000000) |
if (horodatage.tv_usec > 1000000) |
{ |
{ |