version 1.185, 2016/08/26 08:57:56
|
version 1.192, 2017/06/28 09:20:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.25 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 2028 sortie_interruption_depassement_pile(voi
|
Line 2028 sortie_interruption_depassement_pile(voi
|
return; |
return; |
} |
} |
|
|
|
#ifdef HAVE_SIGSEGV_RECOVERY |
void |
void |
interruption_depassement_pile(int urgence, stackoverflow_context_t scp) |
interruption_depassement_pile(int urgence, stackoverflow_context_t scp) |
{ |
{ |
Line 2044 interruption_depassement_pile(int urgenc
|
Line 2045 interruption_depassement_pile(int urgenc
|
interruption3(SIGUSR2); |
interruption3(SIGUSR2); |
return; |
return; |
} |
} |
|
#endif |
|
|
int |
int |
interruption_violation_access(void *adresse_fautive, int gravite) |
interruption_violation_access(void *adresse_fautive, int gravite) |
Line 2057 interruption_violation_access(void *adre
|
Line 2059 interruption_violation_access(void *adre
|
{ |
{ |
// Il peut s'agir d'un dépassement de pile. |
// Il peut s'agir d'un dépassement de pile. |
|
|
sigsegv_leave_handler(sortie_interruption_depassement_pile, |
# ifdef HAVE_SIGSEGV_RECOVERY |
(void *) &routine_recursive, NULL, NULL); |
sigsegv_leave_handler(sortie_interruption_depassement_pile, |
|
(void *) &routine_recursive, NULL, NULL); |
|
# else |
|
sortie_interruption_depassement_pile((void *) &routine_recursive, |
|
NULL, NULL); |
|
# endif |
} |
} |
|
|
// On est dans une bonne vieille violation d'accès. On essaie |
// On est dans une bonne vieille violation d'accès. On essaie |