rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

version 1.41, 2012/04/13 14:12:48	version 1.47, 2012/12/18 13:19:34
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.8	RPL/2 (R) version 4.1.12
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1496 formateur_fichier(struct_processus *s_et	Line 1496 formateur_fichier(struct_processus *s_et
return(NULL);	return(NULL);
}	}

position_3 = strlen(format_chaine);	position_3 = strlen(format_chaine) - 1;
format_chaine[--position_3] = d_code_fin_chaine;
	if (format_chaine[position_3] != ')')
	{
	free(chaine);
	free(format_chaine);

	(*s_etat_processus).erreur_execution =
	d_ex_erreur_format_fichier;
	return(NULL);
	}

	format_chaine[position_3] = d_code_fin_chaine;

position_2 = position_1;	position_2 = position_1;