rpl/src/instructions_c4.c - diff

Return to instructions_c4.c CVS log

Up to [local] / rpl / src

version 1.85, 2024/01/17 16:57:12	version 1.87, 2025/04/15 10:17:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.36	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2024 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 780 instruction_close(struct_processus *s_et	Line 780 instruction_close(struct_processus *s_et
* Fermeture du fichier	* Fermeture du fichier
*/	*/

if (fclose((*descripteur).descripteur_c) != 0)
{
free(descripteur);
liberation(s_etat_processus, s_objet_argument);

(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
return;
}

if ((*descripteur).type != 'C')	if ((*descripteur).type != 'C')
{	{
if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
Line 830 instruction_close(struct_processus *s_et	Line 821 instruction_close(struct_processus *s_et

free(descripteur);	free(descripteur);
}	}
	else
	{
	if (fclose((*descripteur).descripteur_c) != 0)
	{
	free(descripteur);
	liberation(s_etat_processus, s_objet_argument);

	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
	return;
	}
	}

if ((((struct_fichier ) (*s_objet_argument).objet)).ouverture == 'S')	if ((((struct_fichier ) (*s_objet_argument).objet)).ouverture == 'S')
{	{