rpl/src/optimisation.c - diff

Return to optimisation.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/optimisation.c between versions 1.11 and 1.23

version 1.11, 2010/06/24 10:10:46	version 1.23, 2011/06/20 17:54:21
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.17	RPL/2 (R) version 4.1.0.prerelease.1
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 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
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

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.11
changed lines
	Added in v.1.23