rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

version 1.40, 2012/04/03 13:38:26	version 1.43, 2012/06/22 10:12:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.7	RPL/2 (R) version 4.1.9
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 1497 formateur_fichier(struct_processus *s_et	Line 1497 formateur_fichier(struct_processus *s_et
}	}

position_3 = strlen(format_chaine);	position_3 = strlen(format_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;	format_chaine[--position_3] = d_code_fin_chaine;

position_2 = position_1;	position_2 = position_1;