version 1.43, 2013/03/20 17:11:44
|
version 1.46, 2013/04/01 15:29:35
|
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 43 instruction_alarm(struct_processus *s_et
|
Line 43 instruction_alarm(struct_processus *s_et
|
int code_retour; |
int code_retour; |
int erreur; |
int erreur; |
|
|
|
integer8 nombre_elements; |
|
|
logical1 specification_date; |
logical1 specification_date; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
Line 63 instruction_alarm(struct_processus *s_et
|
Line 65 instruction_alarm(struct_processus *s_et
|
|
|
time_t alarme; |
time_t alarme; |
|
|
unsigned long nombre_elements; |
|
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
if ((*s_etat_processus).affichage_arguments == 'Y') |
if ((*s_etat_processus).affichage_arguments == 'Y') |
Line 249 instruction_alarm(struct_processus *s_et
|
Line 249 instruction_alarm(struct_processus *s_et
|
} |
} |
|
|
attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec = |
attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec = |
(__time_t) floor(duree))) * 1000000000); |
(time_t) floor(duree))) * 1000000000); |
|
|
if ((*s_etat_processus).profilage == d_vrai) |
if ((*s_etat_processus).profilage == d_vrai) |
{ |
{ |