rpl/src/optimisation.c - diff

Return to optimisation.c CVS log

Up to [local] / rpl / src

version 1.15, 2010/08/26 19:07:41	version 1.22, 2011/06/10 11:35:13
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.19	RPL/2 (R) version 4.1.0.prerelease.0
Copyright (C) 1989-2010 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 53 sequenceur_optimise(struct_processus *s_	Line 53 sequenceur_optimise(struct_processus *s_
{	{
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
printf("[%d] Optimisation\n", (int) getpid());	printf("+++Optimisation [%d]\n", (int) getpid());
}	}
else	else
{	{
Line 72 sequenceur_optimise(struct_processus *s_	Line 72 sequenceur_optimise(struct_processus *s_
(*s_etat_processus).autorisation_empilement_programme = 'Y';	(*s_etat_processus).autorisation_empilement_programme = 'Y';
(*s_etat_processus).mode_execution_programme = 'N';	(*s_etat_processus).mode_execution_programme = 'N';

	BUG(1);
	#if 0
for(i = 0; i < (long) (*s_etat_processus).nombre_variables; i++)	for(i = 0; i < (long) (*s_etat_processus).nombre_variables; i++)
{	{
if ((*s_etat_processus).s_liste_variables[i].niveau == 0)	if ((*s_etat_processus).s_liste_variables[i].niveau == 0)
Line 257 sequenceur_optimise(struct_processus *s_	Line 259 sequenceur_optimise(struct_processus *s_
}	}

return(erreur);	return(erreur);
	#endif
}	}

// vim: ts=4	// vim: ts=4