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.67 and 1.69

version 1.67, 2013/03/05 16:20:47	version 1.69, 2013/03/21 11:30:31
Line 44 sequenceur(struct_processus *s_etat_proc	Line 44 sequenceur(struct_processus *s_etat_proc
struct_objet *s_objet_evaluation;	struct_objet *s_objet_evaluation;
struct_objet *s_sous_objet;	struct_objet *s_sous_objet;

	integer8 niveau;
	integer8 position_courante;

logical1 drapeau_appel_definition;	logical1 drapeau_appel_definition;
logical1 drapeau_fin;	logical1 drapeau_fin;
logical1 drapeau_then;	logical1 drapeau_then;
Line 64 sequenceur(struct_processus *s_etat_proc	Line 67 sequenceur(struct_processus *s_etat_proc
unsigned char tampon_retour;	unsigned char tampon_retour;
unsigned char *t_ligne;	unsigned char *t_ligne;

unsigned long niveau;
unsigned long position_courante;

Keymap ancien_keymap;	Keymap ancien_keymap;
Keymap nouveau_keymap;	Keymap nouveau_keymap;

Line 689 sequenceur(struct_processus *s_etat_proc	Line 689 sequenceur(struct_processus *s_etat_proc
(*s_etat_processus).autorisation_empilement_programme =	(*s_etat_processus).autorisation_empilement_programme =
'N';	'N';

uprintf("<A1>\n");
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 722 uprintf("<A1>\n");	Line 721 uprintf("<A1>\n");
.niveau_courant;	.niveau_courant;

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
((((*s_etat_processus)	((((*s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.objet).objet)));	.objet).objet)));
Line 952 uprintf("<A1>\n");	Line 951 uprintf("<A1>\n");
free(instruction_majuscule);	free(instruction_majuscule);
}	}

erreur \|= (((*s_etat_processus).erreur_execution != d_ex)	erreur = (logical1) (erreur \| (((*s_etat_processus)
? d_erreur : d_absence_erreur);	.erreur_execution != d_ex) ? d_erreur : d_absence_erreur));
}	}
else	else
{	{
Line 1066 uprintf("<A1>\n");	Line 1065 uprintf("<A1>\n");
(*s_etat_processus).exception = d_ep;	(*s_etat_processus).exception = d_ep;
erreur = d_absence_erreur;	erreur = d_absence_erreur;

(*s_etat_processus).position_courante -=	(*s_etat_processus).position_courante -= (integer8)
strlen((*s_etat_processus).instruction_courante);	strlen((*s_etat_processus).instruction_courante);
}	}

Line 1156 uprintf("<A1>\n");	Line 1155 uprintf("<A1>\n");
else if ((((*s_etat_processus)	else if ((((*s_etat_processus)
.pointeur_variable_courante).objet).type == ADR)	.pointeur_variable_courante).objet).type == ADR)
{	{
uprintf("<A2>\n");
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 1177 uprintf("<A2>\n");	Line 1175 uprintf("<A2>\n");
.niveau_courant;	.niveau_courant;

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
((((*s_etat_processus)	((((*s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.objet).objet)));	.objet).objet)));
Line 1226 uprintf("<A2>\n");	Line 1224 uprintf("<A2>\n");
== 0) \|\| (strcmp(instruction_majuscule,	== 0) \|\| (strcmp(instruction_majuscule,
"START") == 0))	"START") == 0))
{	{
uprintf("<A3>\n");
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 1239 uprintf("<A3>\n");	Line 1236 uprintf("<A3>\n");
}	}
else	else
{	{
uprintf("<A4>\n");
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)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.67
changed lines
	Added in v.1.69