rpl/src/instructions_d5.c - diff

Return to instructions_d5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_d5.c between versions 1.5 and 1.8

version 1.5, 2010/03/04 10:09:31	version 1.8, 2010/03/09 10:18:45
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.11	RPL/2 (R) version 4.0.13
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1760 instruction_detach(struct_processus *s_e	Line 1760 instruction_detach(struct_processus *s_e
l_element_suivant = (*l_element_courant).suivant;	l_element_suivant = (*l_element_courant).suivant;

fclose((((struct_descripteur_fichier )	fclose((((struct_descripteur_fichier )
(*l_element_courant).donnee)).descripteur);	(*l_element_courant).donnee)).descripteur_c);

	if ((((struct_descripteur_fichier )
	(*l_element_courant).donnee)).type != 'C')
	{
	sqlite3_close((((struct_descripteur_fichier )
	(*l_element_courant).donnee)).descripteur_sqlite);
	}

free((((struct_descripteur_fichier ) (*l_element_courant)	free((((struct_descripteur_fichier ) (*l_element_courant)
.donnee)).nom);	.donnee)).nom);
Line 1979 instruction_detach(struct_processus *s_e	Line 1986 instruction_detach(struct_processus *s_e
l_element_suivant = (*l_element_courant).suivant;	l_element_suivant = (*l_element_courant).suivant;

fclose((((struct_descripteur_fichier )	fclose((((struct_descripteur_fichier )
(*l_element_courant).donnee)).descripteur);	(*l_element_courant).donnee)).descripteur_c);

	if ((((struct_descripteur_fichier )
	(*l_element_courant).donnee)).type != 'C')
	{
	sqlite3_close((((struct_descripteur_fichier )
	(*l_element_courant).donnee)).descripteur_sqlite);
	}

if (((((struct_descripteur_fichier ) (*l_element_courant)	if (((((struct_descripteur_fichier ) (*l_element_courant)
.donnee)).pid == getpid()) &&	.donnee)).pid == getpid()) &&

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.5
changed lines
	Added in v.1.8