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.3 and 1.7

version 1.3, 2010/02/10 10:14:21	version 1.7, 2010/03/06 18:29:07
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.11	RPL/2 (R) version 4.0.12
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()) &&
Line 2515 instruction_detach(struct_processus *s_e	Line 2529 instruction_detach(struct_processus *s_e

liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);

	# ifndef Cygwin
free((*s_etat_processus).pile_signal.ss_sp);	free((*s_etat_processus).pile_signal.ss_sp);
free((*s_etat_processus).definitions_chainees);	# endif

	free((*s_etat_processus).definitions_chainees);
free((*s_etat_processus).nom_fichier_historique);	free((*s_etat_processus).nom_fichier_historique);

for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)	for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)
Line 2573 instruction_detach(struct_processus *s_e	Line 2589 instruction_detach(struct_processus *s_e
sem_destroy(&semaphore_gestionnaires_signaux_atomique);	sem_destroy(&semaphore_gestionnaires_signaux_atomique);

clear_history();	clear_history();

	# ifdef DEBUG_MEMOIRE
	debug_memoire_verification(s_etat_processus);
	# endif

exit(EXIT_SUCCESS);	exit(EXIT_SUCCESS);
}	}
else	else

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.3
changed lines
	Added in v.1.7