rpl/src/instructions_i2.c - diff

Return to instructions_i2.c CVS log

Up to [local] / rpl / src

version 1.29, 2011/07/25 07:44:57	version 1.31, 2011/08/09 11:31:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.2	RPL/2 (R) version 4.1.3
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1049 instruction_int(struct_processus *s_etat	Line 1049 instruction_int(struct_processus *s_etat

printf(" 2: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG);	printf(" 2: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG);
printf(" 1: %s\n", d_NOM);	printf(" 1: %s\n", d_NOM);
printf("-> 1: %s, %s\n", d_INT, d_ALG);	printf("-> 1: %s, %s, %s, %s\n", d_INT, d_REL, d_NOM, d_ALG);
return;	return;
}	}
else if ((*s_etat_processus).test_instruction == 'Y')	else if ((*s_etat_processus).test_instruction == 'Y')
Line 1070 instruction_int(struct_processus *s_etat	Line 1070 instruction_int(struct_processus *s_etat

if (test_cfsf(s_etat_processus, 31) == d_vrai)	if (test_cfsf(s_etat_processus, 31) == d_vrai)
{	{
if (empilement_pile_last(s_etat_processus, 3) == d_erreur)	if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
{	{
return;	return;
}	}