rpl/src/interruptions.c - diff

Return to interruptions.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/interruptions.c between versions 1.80 and 1.85

version 1.80, 2011/09/20 15:45:53	version 1.85, 2011/11/18 09:51:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.3	RPL/2 (R) version 4.1.4
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1510 interruption1(int signal)	Line 1510 interruption1(int signal)
envoi_signal_processus(getpid(), rpl_sigterm);	envoi_signal_processus(getpid(), rpl_sigterm);
break;	break;

case SIGALRM:	case SIGUSR1:
envoi_signal_processus(getpid(), rpl_sigalrm);	envoi_signal_processus(getpid(), rpl_sigalrm);
break;	break;
}	}
Line 1760 interruption3(int signal)	Line 1760 interruption3(int signal)
// l'erreur d'accès à la mémoire. On sort donc du programme quitte à	// l'erreur d'accès à la mémoire. On sort donc du programme quitte à
// ce qu'il reste des processus orphelins.	// ce qu'il reste des processus orphelins.

unsigned char message[] = "+++System : Uncaught access violation\n"	int ios;

	unsigned char message_1[] = "+++System : Uncaught access violation\n"
	"+++System : Aborting !\n";
	unsigned char message_2[] = "+++System : Stack overflow\n"
"+++System : Aborting !\n";	"+++System : Aborting !\n";

test_signal(signal);	test_signal(signal);

if (pid_processus_pere == getpid())	if (pid_processus_pere == getpid())
{	{
kill(pid_processus_pere, SIGALRM);	kill(pid_processus_pere, SIGUSR1);
	}


	if (signal != SIGUSR2)
	{
	ios = write(STDERR_FILENO, message_1, strlen(message_1));
	}
	else
	{
	ios = write(STDERR_FILENO, message_2, strlen(message_2));
}	}

write(STDERR_FILENO, message, strlen(message));
_exit(EXIT_FAILURE);	_exit(EXIT_FAILURE);
}	}

#if 0
// Utiliser libsigsegv	static void
void INTERRUPTION3_A_FIXER()	sortie_interruption_depassement_pile(void arg1, void arg2, void *arg3)
{	{
pthread_t thread;	switch((((volatile int ) arg1)))
	{
	case 1:
	longjmp(contexte_ecriture, -1);
	break;

struct_processus *s_etat_processus;	case 2:
	longjmp(contexte_impression, -1);
	break;
	}

test_signal(signal);	return;
verrouillage_gestionnaire_signaux(s_etat_processus);	}

if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
{
deverrouillage_gestionnaire_signaux(s_etat_processus);
return;
}

if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)	void
	interruption_depassement_pile(int urgence, stackoverflow_context_t scp)
	{
	if ((urgence == 0) && (routine_recursive != 0))
{	{
printf("[%d] SIGSEGV (thread %llu)\n", (int) getpid(),	// On peut tenter de récupérer le dépassement de pile. Si la variable
(unsigned long long) pthread_self());	// 'routine_recursive' est non nulle, on récupère l'erreur.
fflush(stdout);
}

if ((*s_etat_processus).var_volatile_recursivite == -1)	sigsegv_leave_handler(sortie_interruption_depassement_pile,
{	(void *) &routine_recursive, NULL, NULL);
// Segfault dans un appel de fonction récursive
deverrouillage_gestionnaire_signaux(s_etat_processus);
longjmp(contexte, -1);
}	}
else
{
// Segfault dans une routine interne
if (strncmp(getenv("LANG"), "fr", 2) == 0)
{
printf("+++Système : Violation d'accès\n");
}
else
{
printf("+++System : Access violation\n");
}

fflush(stdout);	// Ici, la panique est totale et il vaut mieux quitter l'application.
	interruption3(SIGUSR2);
	return;
	}

(*s_etat_processus).compteur_violation_d_acces++;

if ((*s_etat_processus).compteur_violation_d_acces > 1)	int
{	interruption_violation_access(void *adresse_fautive, int gravite)
// On vient de récupérer plus d'une erreur de segmentation	{
// dans le même processus ou le même thread. L'erreur n'est pas	unsigned char message[] = "+++System : Trying to catch access "
// récupérable et on sort autoritairement du programme. Il peut	"violation\n";
// rester des processus orphelins en attente !

if (strncmp(getenv("LANG"), "fr", 2) == 0)	static int compteur_erreur = 0;
{	int ios;
printf("+++Système : Violation d'accès, tentative de "
"terminaison de la tâche\n");
printf(" (defauts multiples)\n");
}
else
{
printf("+++System : Access violation, trying to kill task "
"(multiple defaults)\n");
}

fflush(stdout);	if ((gravite == 0) && (routine_recursive != 0))
	{
deverrouillage_gestionnaire_signaux(s_etat_processus);	// Il peut s'agir d'un dépassement de pile.
exit(EXIT_FAILURE);
}
else
{
// Première erreur de segmentation. On essaie de terminer
// proprement le thread ou le processus. Le signal ne peut être
// envoyé que depuis le même processus.

if (recherche_thread_principal(getpid(), &thread) == d_vrai)	sigsegv_leave_handler(sortie_interruption_depassement_pile,
{	(void *) &routine_recursive, NULL, NULL);
if (pthread_equal(thread, pthread_self()) != 0)	}
{
deverrouillage_gestionnaire_signaux(s_etat_processus);

if ((*s_etat_processus).pid_processus_pere != getpid())	// On est dans une bonne vieille violation d'accès. On essaie
{	// de fermer au mieux l'application.
// On est dans le thread principal d'un processus.

longjmp(contexte_processus, -1);	compteur_erreur++;
}
else
{
// On est dans le thread principal du processus
// père.

longjmp(contexte_initial, -1);	if (compteur_erreur >= 2)
}	{
}	// Erreurs multiples, on arrête l'application.
else	interruption3(SIGSEGV);
{	return(0);
// On est dans un thread fils d'un thread principal.	}

deverrouillage_gestionnaire_signaux(s_etat_processus);
longjmp(contexte_thread, -1);
}
}

// Là, on ramasse les miettes puisque le thread n'existe plus	ios = write(STDERR_FILENO, message, strlen(message));
// dans la base (corruption de la mémoire).

deverrouillage_gestionnaire_signaux(s_etat_processus);	if (pid_processus_pere == getpid())
longjmp(contexte_initial, -1);	{
}	longjmp(contexte_initial, -1);
	return(1);
	}
	else
	{
	longjmp(contexte_processus, -1);
	return(1);
}	}

deverrouillage_gestionnaire_signaux(s_etat_processus);	// On renvoie 0 parce qu'on décline toute responsabilité quant à la
return;	// suite des événements...
	return(0);
}	}
#endif

// Traitement de rpl_sigstart	// Traitement de rpl_sigstart

Line 2034 signal_inject(struct_processus *s_etat_p	Line 2013 signal_inject(struct_processus *s_etat_p
void	void
interruption5(int signal)	interruption5(int signal)
{	{
	int ios;

unsigned char message[] = "+++System : SIGPIPE\n"	unsigned char message[] = "+++System : SIGPIPE\n"
"+++System : Aborting !\n";	"+++System : Aborting !\n";

Line 2044 interruption5(int signal)	Line 2025 interruption5(int signal)
envoi_signal_processus(pid_processus_pere, rpl_sigalrm);	envoi_signal_processus(pid_processus_pere, rpl_sigalrm);
}	}

write(STDERR_FILENO, message, strlen(message));	ios = write(STDERR_FILENO, message, strlen(message));
return;	return;
}	}

Line 2188 signal_hup(struct_processus *s_etat_proc	Line 2169 signal_hup(struct_processus *s_etat_proc
{	{
fclose(fichier);	fclose(fichier);

freopen(nom, "w", stdout);	stdout = freopen(nom, "w", stdout);
freopen(nom, "w", stderr);	stderr = freopen(nom, "w", stderr);
}	}

freopen("/dev/null", "r", stdin);	stdin = freopen("/dev/null", "r", stdin);

if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
{	{
Line 2433 nom_segment(unsigned char *chemin, pid_t	Line 2414 nom_segment(unsigned char *chemin, pid_t
int	int
envoi_signal_processus(pid_t pid, enum signaux_rpl signal)	envoi_signal_processus(pid_t pid, enum signaux_rpl signal)
{	{
int segment;	# ifndef OS2
	int segment;
	# endif

# ifndef IPCS_SYSV	# ifndef IPCS_SYSV
# ifdef SEMAPHORES_NOMMES	# ifdef SEMAPHORES_NOMMES
sem_t *semaphore;	sem_t *semaphore;
# endif	# endif
# else	# else
int desc;	# ifndef OS2
key_t clef;	int desc;
	key_t clef;
	# endif
# endif	# endif

struct_queue_signaux *queue;	struct_queue_signaux *queue;
Line 2500 envoi_signal_processus(pid_t pid, enum s	Line 2485 envoi_signal_processus(pid_t pid, enum s
return(1);	return(1);
}	}

if ((desc = open(nom, O_RDWR)) == -1)	# ifndef OS2 // SysV
{	if ((desc = open(nom, O_RDWR)) == -1)
free(nom);	{
return(1);	free(nom);
}	return(1);
	}

close(desc);	close(desc);

	if ((clef = ftok(nom, 1)) == -1)
	{
	free(nom);
	return(1);
	}

if ((clef = ftok(nom, 1)) == -1)
{
free(nom);	free(nom);
return(1);
}

free(nom);	if ((segment = shmget(clef, sizeof(struct_queue_signaux), 0))
	== -1)
	{
	return(1);
	}

if ((segment = shmget(clef, sizeof(struct_queue_signaux), 0)) == -1)	queue = shmat(segment, NULL, 0);
{	# else // OS/2
return(1);	if (DosGetNamedSharedMem((PVOID) &queue, nom,
}	PAG_WRITE \| PAG_READ) != 0)
	{
	free(nom);
	return(1);
	}

queue = shmat(segment, NULL, 0);	free(nom);
	# endif
# else // POSIX	# else // POSIX
if ((nom = nom_segment(racine_segment, pid)) == NULL)	if ((nom = nom_segment(racine_segment, pid)) == NULL)
{	{
Line 2618 envoi_signal_processus(pid_t pid, enum s	Line 2615 envoi_signal_processus(pid_t pid, enum s
return(1);	return(1);
}	}

if (shmdt(queue) != 0)	# ifndef OS2 // SysV
{	if (shmdt(queue) != 0)
return(1);	{
}	return(1);
	}
	# else // OS/2
	// Pendant de DosGetNamedSHaredMem()
	# endif
# endif	# endif
}	}

Line 2855 creation_queue_signaux(struct_processus	Line 2856 creation_queue_signaux(struct_processus
return;	return;
}	}

if (DosAllocSharedMem(&ptr_os2, nom, nombre_queues *	if (DosAllocSharedMem((PVOID) &s_queue_signaux, nom,
((2 * longueur_queue) + 4) * sizeof(int),	sizeof(struct_queue_signaux),
PAG_WRITE \| PAG_READ \| PAG_COMMIT) != 0)	PAG_WRITE \| PAG_READ \| PAG_COMMIT) != 0)
{	{
free(nom);	free(nom);
Line 2865 creation_queue_signaux(struct_processus	Line 2866 creation_queue_signaux(struct_processus
}	}

free(nom);	free(nom);
fifos = ptr_os2;
	sem_init(&((*s_queue_signaux).semaphore), 1, 1);
	(*s_queue_signaux).pointeur_lecture = 0;
	(*s_queue_signaux).pointeur_ecriture = 0;
# endif	# endif
# endif	# endif

Line 2934 liberation_queue_signaux(struct_processu	Line 2938 liberation_queue_signaux(struct_processu
void	void
destruction_queue_signaux(struct_processus *s_etat_processus)	destruction_queue_signaux(struct_processus *s_etat_processus)
{	{
unsigned char *nom;	# ifndef OS2
	unsigned char *nom;
	# endif

# ifdef IPCS_SYSV // SystemV	# ifdef IPCS_SYSV // SystemV
# ifndef OS2	# ifndef OS2
Line 2970 destruction_queue_signaux(struct_process	Line 2976 destruction_queue_signaux(struct_process
unlink(nom);	unlink(nom);
free(nom);	free(nom);
# else	# else
if (DosFreeMem(fifos) != 0)	sem_close(&((*s_queue_signaux).semaphore));
	sem_destroy(&((*s_queue_signaux).semaphore));

	if (DosFreeMem(s_queue_signaux) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

// FERMER LE FICHIER

# endif	# endif
# else // POSIX	# else // POSIX
# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.80
changed lines
	Added in v.1.85