rpl/src/instructions_c6.c - diff

Return to instructions_c6.c CVS log

Up to [local] / rpl / src

version 1.16, 2011/03/06 16:44:10	version 1.20, 2011/06/20 17:54:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.21	RPL/2 (R) version 4.1.0.prerelease.1
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 38	Line 38
void	void
instruction_clusr(struct_processus *s_etat_processus)	instruction_clusr(struct_processus *s_etat_processus)
{	{
unsigned long i;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

if ((*s_etat_processus).affichage_arguments == 'Y')	if ((*s_etat_processus).affichage_arguments == 'Y')
Line 72 instruction_clusr(struct_processus *s_et	Line 70 instruction_clusr(struct_processus *s_et
return;	return;
}	}
}	}
	/*
	* Utiliser la pile des variables par niveau
for(i = 0; i < (*s_etat_processus).nombre_variables; i++)	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
{	{
if (((*s_etat_processus).s_liste_variables[i]).niveau == 1)	if (((*s_etat_processus).s_liste_variables[i]).niveau == 1)
Line 85 instruction_clusr(struct_processus *s_et	Line 84 instruction_clusr(struct_processus *s_et
}	}
}	}
}	}
	*/

return;	return;
}	}