rpl/src/sequenceur.c - diff

Return to sequenceur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.92 and 1.106

CVSweb interface <joel.bertrand@systella.fr>

version 1.92, 2015/11/26 11:44:43	version 1.106, 2019/02/09 13:36:43
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.24	RPL/2 (R) version 4.1.31
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 134 sequenceur(struct_processus *s_etat_proc	Line 134 sequenceur(struct_processus *s_etat_proc
*/	*/

action.sa_handler = SIG_IGN;	action.sa_handler = SIG_IGN;
action.sa_flags = SA_NODEFER \| SA_ONSTACK;	action.sa_flags = 0;

(*s_etat_processus).execution_pas_suivant = d_faux;	(*s_etat_processus).execution_pas_suivant = d_faux;
(*s_etat_processus).traitement_instruction_halt = d_vrai;	(*s_etat_processus).traitement_instruction_halt = d_vrai;
Line 541 sequenceur(struct_processus *s_etat_proc	Line 541 sequenceur(struct_processus *s_etat_proc
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

	(*s_etat_processus).instruction_sensible = 'N';

analyse(s_etat_processus, NULL);	analyse(s_etat_processus, NULL);

if ((*s_etat_processus).traitement_cycle_exit != 'N')	if ((*s_etat_processus).traitement_cycle_exit != 'N')
Line 740 sequenceur(struct_processus *s_etat_proc	Line 742 sequenceur(struct_processus *s_etat_proc
}	}
}	}

	(*s_etat_processus).debug_programme = d_faux;

((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.adresse_retour = (*s_etat_processus)	.adresse_retour = (*s_etat_processus)
.position_courante;	.position_courante;
Line 933 sequenceur(struct_processus *s_etat_proc	Line 937 sequenceur(struct_processus *s_etat_proc
(((struct_fonction ) (*s_objet).objet))	(((struct_fonction ) (*s_objet).objet))
.nombre_arguments = 0;	.nombre_arguments = 0;

if ((*s_etat_processus).instruction_intrinseque == 'Y')	if (((*s_etat_processus).instruction_intrinseque == 'Y') &&
	((*s_etat_processus).instruction_sensible == 'N'))
{	{
if (((((struct_fonction ) (*s_objet).objet))	if (((((struct_fonction ) (*s_objet).objet))
.nom_fonction = conversion_majuscule(	.nom_fonction = conversion_majuscule(
Line 1524 sequenceur(struct_processus *s_etat_proc	Line 1529 sequenceur(struct_processus *s_etat_proc
if ((*s_etat_processus).var_volatile_processus_pere == 0)	if ((*s_etat_processus).var_volatile_processus_pere == 0)
{	{
envoi_signal_processus((*s_etat_processus).pid_processus_pere,	envoi_signal_processus((*s_etat_processus).pid_processus_pere,
rpl_sigalrm);	rpl_sigalrm, d_faux);
}	}
else	else
{	{

Removed from v.1.92
changed lines
	Added in v.1.106