rpl/src/instructions_f1.c - diff

Return to instructions_f1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_f1.c between versions 1.55 and 1.63

version 1.55, 2013/03/22 10:20:35	version 1.63, 2014/04/25 07:37:31
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.18
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2014 Dr. BERTRAND Joël

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

Line 53 instruction_fleche(struct_processus *s_e	Line 53 instruction_fleche(struct_processus *s_e
logical1 fin_scrutation;	logical1 fin_scrutation;
logical1 presence_expression_algebrique;	logical1 presence_expression_algebrique;

	pthread_mutexattr_t attributs_mutex;

union_position_variable position_variable;	union_position_variable position_variable;

unsigned char instruction_valide;	unsigned char instruction_valide;
Line 593 instruction_fleche(struct_processus *s_e	Line 595 instruction_fleche(struct_processus *s_e
}	}
else	else
{	{
// Variable partagee à créer	// Variable partagée à créer

(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;

if ((s_variable_partagee.nom = malloc((strlen(s_variable.nom)	if ((s_variable_partagee.nom = malloc((strlen(s_variable.nom)
+ 1) * sizeof(unsigned char))) == NULL)	+ 1) * sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)
.pointeur_variable_partagee_courante).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
return;	return;
Line 647 instruction_fleche(struct_processus *s_e	Line 642 instruction_fleche(struct_processus *s_e
(*s_etat_processus).objet_courant;	(*s_etat_processus).objet_courant;
}	}

	// Création du mutex

	pthread_mutexattr_init(&attributs_mutex);
	pthread_mutexattr_settype(&attributs_mutex,
	PTHREAD_MUTEX_RECURSIVE);
	pthread_mutex_init(&(s_variable_partagee.mutex),
	&attributs_mutex);
	pthread_mutexattr_destroy(&attributs_mutex);

s_variable_partagee.objet = (*l_emplacement_valeurs).donnee;	s_variable_partagee.objet = (*l_emplacement_valeurs).donnee;
(*l_emplacement_valeurs).donnee = NULL;	(*l_emplacement_valeurs).donnee = NULL;

Line 1004 instruction_for(struct_processus *s_etat	Line 1008 instruction_for(struct_processus *s_etat
return;	return;
}	}

if (((*s_objet_2).type != INT) &&	if (((s_objet_2).type != INT) && ((s_objet_2).type != REL))
((*s_objet_2).type != REL))
{	{
liberation(s_etat_processus, s_objet_1);	liberation(s_etat_processus, s_objet_1);
liberation(s_etat_processus, s_objet_2);	liberation(s_etat_processus, s_objet_2);
Line 1014 instruction_for(struct_processus *s_etat	Line 1017 instruction_for(struct_processus *s_etat
return;	return;
}	}

tampon = (*s_etat_processus).instruction_courante;
test_instruction = (*s_etat_processus).test_instruction;
instruction_valide = (*s_etat_processus).instruction_valide;
(*s_etat_processus).test_instruction = 'Y';

empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
Line 1028 instruction_for(struct_processus *s_etat	Line 1026 instruction_for(struct_processus *s_etat

if ((*s_etat_processus).mode_execution_programme == 'Y')	if ((*s_etat_processus).mode_execution_programme == 'Y')
{	{
	tampon = (*s_etat_processus).instruction_courante;
	test_instruction = (*s_etat_processus).test_instruction;
	instruction_valide = (*s_etat_processus).instruction_valide;
	(*s_etat_processus).test_instruction = 'Y';

if (recherche_instruction_suivante(s_etat_processus) == d_erreur)	if (recherche_instruction_suivante(s_etat_processus) == d_erreur)
{	{
return;	return;
Line 1042 instruction_for(struct_processus *s_etat	Line 1045 instruction_for(struct_processus *s_etat

free((*s_etat_processus).instruction_courante);	free((*s_etat_processus).instruction_courante);
(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;
	(*s_etat_processus).instruction_valide = instruction_valide;
	(*s_etat_processus).test_instruction = test_instruction;

depilement_pile_systeme(s_etat_processus);	depilement_pile_systeme(s_etat_processus);

Line 1053 instruction_for(struct_processus *s_etat	Line 1058 instruction_for(struct_processus *s_etat

free((*s_etat_processus).instruction_courante);	free((*s_etat_processus).instruction_courante);
(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;
	(*s_etat_processus).instruction_valide = instruction_valide;
	(*s_etat_processus).test_instruction = test_instruction;

if ((*s_etat_processus).erreur_execution != d_ex)	if ((*s_etat_processus).erreur_execution != d_ex)
{	{
Line 1144 instruction_for(struct_processus *s_etat	Line 1151 instruction_for(struct_processus *s_etat

liberation(s_etat_processus, s_objet_3);	liberation(s_etat_processus, s_objet_3);

(*s_etat_processus).test_instruction = test_instruction;
(*s_etat_processus).instruction_valide = instruction_valide;

((s_etat_processus).l_base_pile_systeme).limite_indice_boucle = s_objet_1;	((s_etat_processus).l_base_pile_systeme).limite_indice_boucle = s_objet_1;

if ((*s_etat_processus).mode_execution_programme == 'Y')	if ((*s_etat_processus).mode_execution_programme == 'Y')

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.55
changed lines
	Added in v.1.63