rpl/src/instructions_a5.c - diff

Return to instructions_a5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_a5.c between versions 1.18.2.3 and 1.73

version 1.18.2.3, 2011/05/09 13:52:13	version 1.73, 2021/03/13 12:50:40
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.24	RPL/2 (R) version 4.1.33
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2021 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 153 instruction_alarm(struct_processus *s_et	Line 153 instruction_alarm(struct_processus *s_et
s_time_actuel = localtime(&(st.time));	s_time_actuel = localtime(&(st.time));

l_element_courant = (*s_objet_argument).objet;	l_element_courant = (*s_objet_argument).objet;
s_time_alarme.tm_hour = (((integer8 ) ((l_element_courant)	s_time_alarme.tm_hour = (int) (((integer8 ) ((l_element_courant)
.donnee).objet));	.donnee).objet));
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
s_time_alarme.tm_min = (((integer8 ) ((l_element_courant)	s_time_alarme.tm_min = (int) (((integer8 ) ((l_element_courant)
.donnee).objet));	.donnee).objet));
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;

Line 164 instruction_alarm(struct_processus *s_et	Line 164 instruction_alarm(struct_processus *s_et

if (l_element_courant != NULL)	if (l_element_courant != NULL)
{	{
s_time_alarme.tm_sec = (((integer8 ) ((l_element_courant)	s_time_alarme.tm_sec = (int) (((integer8 ) ((l_element_courant)
.donnee).objet));	.donnee).objet));
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;

Line 172 instruction_alarm(struct_processus *s_et	Line 172 instruction_alarm(struct_processus *s_et
{	{
specification_date = d_vrai;	specification_date = d_vrai;

s_time_alarme.tm_mday = (((integer8 ) ((l_element_courant)	s_time_alarme.tm_mday = (int) (((integer8 )
.donnee).objet));	((l_element_courant).donnee).objet));
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;

if (l_element_courant != NULL)	if (l_element_courant != NULL)
{	{
s_time_alarme.tm_mon = (((integer8 )	s_time_alarme.tm_mon = (int) ((((integer8 )
((l_element_courant).donnee).objet)) - 1;	((l_element_courant).donnee).objet)) - 1);
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;

if (l_element_courant != NULL)	if (l_element_courant != NULL)
{	{
s_time_alarme.tm_year = (((integer8 )	s_time_alarme.tm_year = (int) ((((integer8 )
((l_element_courant).donnee).objet))	((l_element_courant).donnee).objet))
- 1900;	- 1900);
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}
else	else
Line 215 instruction_alarm(struct_processus *s_et	Line 215 instruction_alarm(struct_processus *s_et
s_time_alarme.tm_year = (*s_time_actuel).tm_year;	s_time_alarme.tm_year = (*s_time_actuel).tm_year;
}	}

s_time_alarme.tm_isdst = 0;	s_time_alarme.tm_isdst = -1;
s_time_registre = s_time_alarme;	s_time_registre = s_time_alarme;
alarme = mktime(&s_time_alarme);	alarme = mktime(&s_time_alarme);

Line 248 instruction_alarm(struct_processus *s_et	Line 248 instruction_alarm(struct_processus *s_et
alarme = mktime(&s_time_alarme);	alarme = mktime(&s_time_alarme);
}	}

attente.tv_nsec = (long) ((duree - (attente.tv_sec =	attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec =
(long) floor(duree))) * 1000000000);	(time_t) floor(duree))) * 1000000000);

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
Line 272 instruction_alarm(struct_processus *s_et	Line 272 instruction_alarm(struct_processus *s_et

scrutation_injection(s_etat_processus);	scrutation_injection(s_etat_processus);

	if (pthread_mutex_lock(&((*s_etat_processus)
	.mutex_interruptions)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}

if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)	if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)
{	{
affectation_interruptions_logicielles(s_etat_processus);	affectation_interruptions_logicielles(s_etat_processus);
}	}

	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_interruptions)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}

if ((*s_etat_processus).nombre_interruptions_en_queue != 0)	if ((*s_etat_processus).nombre_interruptions_en_queue != 0)
{	{
traitement_interruptions_logicielles(s_etat_processus);	traitement_interruptions_logicielles(s_etat_processus);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.18.2.3
changed lines
	Added in v.1.73