version 1.43, 2012/10/04 15:21:26
|
version 1.53, 2013/03/20 17:11:45
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 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 59 instruction_fleche(struct_processus *s_e
|
Line 59 instruction_fleche(struct_processus *s_e
|
unsigned char *tampon; |
unsigned char *tampon; |
unsigned char test_instruction; |
unsigned char test_instruction; |
|
|
unsigned long i; |
integer8 i; |
unsigned long nombre_variables; |
integer8 nombre_variables; |
|
|
void (*fonction)(); |
void (*fonction)(); |
|
|
Line 549 instruction_fleche(struct_processus *s_e
|
Line 549 instruction_fleche(struct_processus *s_e
|
(*s_etat_processus).objet_courant; |
(*s_etat_processus).objet_courant; |
} |
} |
|
|
if (pthread_mutex_lock(&((*(*s_etat_processus) |
if (pthread_mutex_lock(&mutex_creation_variable_partagee) != 0) |
.s_liste_variables_partagees).mutex)) != 0) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
Line 559 instruction_fleche(struct_processus *s_e
|
Line 558 instruction_fleche(struct_processus *s_e
|
if (recherche_variable_partagee(s_etat_processus, s_variable.nom, |
if (recherche_variable_partagee(s_etat_processus, s_variable.nom, |
position_variable, |
position_variable, |
((*s_etat_processus).mode_execution_programme == 'Y') |
((*s_etat_processus).mode_execution_programme == 'Y') |
? 'P' : 'E') == d_vrai) |
? 'P' : 'E') != NULL) |
{ |
{ |
// Variable partagée à utiliser |
// Variable partagée à utiliser |
|
|
|
if (pthread_mutex_unlock(&mutex_creation_variable_partagee) |
|
!= 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
|
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
.s_liste_variables_partagees).mutex)) != 0) |
.pointeur_variable_partagee_courante).mutex)) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
Line 587 instruction_fleche(struct_processus *s_e
|
Line 593 instruction_fleche(struct_processus *s_e
|
} |
} |
else |
else |
{ |
{ |
// Variable partagée à utiliser |
|
// Variable partagee à créer |
// Variable partagee à créer |
|
|
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
Line 596 instruction_fleche(struct_processus *s_e
|
Line 601 instruction_fleche(struct_processus *s_e
|
+ 1) * sizeof(unsigned char))) == NULL) |
+ 1) * sizeof(unsigned char))) == NULL) |
{ |
{ |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
.s_liste_variables_partagees).mutex)) != 0) |
.pointeur_variable_partagee_courante).mutex)) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
Line 648 instruction_fleche(struct_processus *s_e
|
Line 653 instruction_fleche(struct_processus *s_e
|
if (creation_variable_partagee(s_etat_processus, |
if (creation_variable_partagee(s_etat_processus, |
&s_variable_partagee) == d_erreur) |
&s_variable_partagee) == d_erreur) |
{ |
{ |
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
|
.s_liste_variables_partagees).mutex)) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
|
|
return; |
return; |
} |
} |
|
|
if (pthread_mutex_unlock(&((*(*s_etat_processus) |
s_variable.objet = NULL; |
.s_liste_variables_partagees).mutex)) != 0) |
|
|
if (pthread_mutex_unlock(&mutex_creation_variable_partagee) |
|
!= 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
} |
} |
|
|
s_variable.objet = NULL; |
|
} |
} |
} |
} |
else |
else |
Line 840 instruction_fleche_list(struct_processus
|
Line 838 instruction_fleche_list(struct_processus
|
return; |
return; |
} |
} |
|
|
if ((unsigned long) nombre_elements >= |
if (nombre_elements >= (*s_etat_processus).hauteur_pile_operationnelle) |
(*s_etat_processus).hauteur_pile_operationnelle) |
|
{ |
{ |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
return; |
return; |
Line 1846 instruction_fact(struct_processus *s_eta
|
Line 1843 instruction_fact(struct_processus *s_eta
|
for (i = 1; i <= (*((integer8 *) (*s_objet_argument).objet)); |
for (i = 1; i <= (*((integer8 *) (*s_objet_argument).objet)); |
i++) |
i++) |
{ |
{ |
produit *= i; |
produit *= (real8) i; |
} |
} |
|
|
if ((s_objet_resultat = allocation(s_etat_processus, REL)) |
if ((s_objet_resultat = allocation(s_etat_processus, REL)) |
Line 2170 instruction_floor(struct_processus *s_et
|
Line 2167 instruction_floor(struct_processus *s_et
|
return; |
return; |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*((integer8 *) (*s_objet_resultat).objet)) = (integer8) |
floor((*((real8 *) (*s_objet_argument).objet))); |
floor((*((real8 *) (*s_objet_argument).objet))); |
|
|
if (!((((*((integer8 *) (*s_objet_resultat).objet)) < |
if (!((((*((integer8 *) (*s_objet_resultat).objet)) < |
Line 2802 instruction_fix(struct_processus *s_etat
|
Line 2799 instruction_fix(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
(*((logical8 *) (*s_objet).objet)) = |
(*((logical8 *) (*s_objet).objet)) = (logical8) |
(*((integer8 *) (*s_objet_argument).objet)); |
(*((integer8 *) (*s_objet_argument).objet)); |
|
|
i43 = test_cfsf(s_etat_processus, 43); |
i43 = test_cfsf(s_etat_processus, 43); |
Line 2840 instruction_fix(struct_processus *s_etat
|
Line 2837 instruction_fix(struct_processus *s_etat
|
{ |
{ |
if (valeur_binaire[i] == '0') |
if (valeur_binaire[i] == '0') |
{ |
{ |
cf(s_etat_processus, j++); |
cf(s_etat_processus, (unsigned char) j++); |
} |
} |
else |
else |
{ |
{ |
sf(s_etat_processus, j++); |
sf(s_etat_processus, (unsigned char) j++); |
} |
} |
} |
} |
|
|
for(; j <= 56; cf(s_etat_processus, j++)); |
for(; j <= 56; cf(s_etat_processus, (unsigned char) j++)); |
|
|
sf(s_etat_processus, 49); |
sf(s_etat_processus, 49); |
cf(s_etat_processus, 50); |
cf(s_etat_processus, 50); |