version 1.58, 2012/12/13 16:59:42
|
version 1.62, 2013/02/26 19:56:16
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.12 |
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 3223 instruction_sto(struct_processus *s_etat
|
Line 3223 instruction_sto(struct_processus *s_etat
|
(*(*s_etat_processus).pointeur_variable_courante).nom, |
(*(*s_etat_processus).pointeur_variable_courante).nom, |
(*(*s_etat_processus).pointeur_variable_courante) |
(*(*s_etat_processus).pointeur_variable_courante) |
.variable_partagee, (*(*s_etat_processus) |
.variable_partagee, (*(*s_etat_processus) |
.pointeur_variable_courante).origine) == d_faux) |
.pointeur_variable_courante).origine) == NULL) |
{ |
{ |
if (((*s_etat_processus).autorisation_nom_implicite == 'N') && |
if (((*s_etat_processus).autorisation_nom_implicite == 'N') && |
((*((struct_nom *) (*s_objet_1).objet)).symbole |
((*((struct_nom *) (*s_objet_1).objet)).symbole |