--- rpl/src/rpl.c 2010/01/31 19:45:10 1.3 +++ rpl/src/rpl.c 2010/03/04 10:09:31 1.9 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.10 + RPL/2 (R) version 4.0.11 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -247,6 +247,7 @@ rplinit(int argc, char *argv[], unsigned // Initialisation d'une pile de signal pour récupérer les // débordement de pile +# ifndef Cygwin if (((*s_etat_processus).pile_signal.ss_sp = malloc((*s_etat_processus).pile_signal.ss_size = SIGSTKSZ)) == NULL) @@ -283,6 +284,7 @@ rplinit(int argc, char *argv[], unsigned return(EXIT_FAILURE); } +# endif action.sa_sigaction = interruption1; action.sa_flags = SA_ONSTACK | SA_SIGINFO; @@ -1566,8 +1568,6 @@ rplinit(int argc, char *argv[], unsigned &existence, &ouverture, &unite_fichier); } - (*s_etat_processus).recherche_types_speciaux = 'N'; - if (((existence == d_faux) || (erreur_fichier != d_absence_erreur)) && (option_S == d_faux)) { @@ -1644,9 +1644,11 @@ rplinit(int argc, char *argv[], unsigned (*s_etat_processus).test_instruction = 'N'; (*s_etat_processus).nombre_arguments = 0; (*s_etat_processus).affichage_arguments = 'N'; + (*s_etat_processus).autorisation_conversion_chaine = 'Y'; (*s_etat_processus).autorisation_evaluation_nom = 'Y'; (*s_etat_processus).autorisation_empilement_programme = 'N'; (*s_etat_processus).requete_arret = 'N'; + (*s_etat_processus).evaluation_forcee = 'N'; (*s_etat_processus).constante_symbolique = 'N'; (*s_etat_processus).traitement_symbolique = 'N'; @@ -3320,7 +3322,10 @@ rplinit(int argc, char *argv[], unsigned } } +# ifndef Cygwin free((*s_etat_processus).pile_signal.ss_sp); +# endif + closelog(); pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); @@ -3341,6 +3346,10 @@ rplinit(int argc, char *argv[], unsigned sem_destroy(&semaphore_gestionnaires_signaux); sem_destroy(&semaphore_gestionnaires_signaux_atomique); +# ifdef DEBUG_MEMOIRE + debug_memoire_verification(s_etat_processus); +# endif + return((erreur == d_os) ? EXIT_SUCCESS : EXIT_FAILURE); }