rpl/src/instructions_t1.c - diff

Return to instructions_t1.c CVS log

Up to [local] / rpl / src

version 1.10, 2010/07/12 15:55:01	version 1.12, 2010/07/13 09:39:14
Line 345 instruction_then(struct_processus *s_eta	Line 345 instruction_then(struct_processus *s_eta
return;	return;
}	}

if (((*s_objet).type == INT) \|\|	if (((s_objet).type == INT) \|\| ((s_objet).type == REL))
((*s_objet).type == REL))
{	{
if ((*s_objet).type == INT)	if ((*s_objet).type == INT)
{	{
Line 367 instruction_then(struct_processus *s_eta	Line 366 instruction_then(struct_processus *s_eta
* THEN et ELSE ou END.	* THEN et ELSE ou END.
*/	*/

if (((s_etat_processus).l_base_pile_systeme).clause !=	if ((((s_etat_processus).l_base_pile_systeme).clause ==
'K')	'I') \|\| (((s_etat_processus).l_base_pile_systeme).clause
	== 'X'))
{	{
((s_etat_processus).l_base_pile_systeme).clause = 'T';	((s_etat_processus).l_base_pile_systeme).clause = 'T';
}	}