--- rpl/src/instructions_s10.c 2010/06/19 15:54:51 1.15 +++ rpl/src/instructions_s10.c 2010/08/13 21:00:37 1.21 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.16 + RPL/2 (R) version 4.0.18 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -90,6 +90,19 @@ instruction_spawn(struct_processus *s_et return; } +# ifdef _BROKEN_SIGINFO + if ((*s_etat_processus).langue == 'F') + { + printf("+++Attention : Support des processus multiples indisponible\n"); + } + else + { + printf("+++Attention : Multiprocess unavailable\n"); + } + + return; +# endif + if (test_cfsf(s_etat_processus, 31) == d_vrai) { if (empilement_pile_last(s_etat_processus, 1) == d_erreur) @@ -397,6 +410,7 @@ instruction_spawn(struct_processus *s_et return; } +# ifndef OS2 if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -414,6 +428,7 @@ instruction_spawn(struct_processus *s_et (*s_etat_processus).erreur_systeme = d_es_processus; return; } +# endif /* * Création de l'objet à retourner @@ -496,6 +511,7 @@ instruction_spawn(struct_processus *s_et return; } +# ifndef OS2 if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -514,6 +530,7 @@ instruction_spawn(struct_processus *s_et (*s_etat_processus).erreur_systeme = d_es_processus; return; } +# endif // Attente de l'affectation de la grandeur processus.tid par le thread fils. @@ -898,6 +915,7 @@ instruction_sqldisconnect(struct_process "MYSQL") == 0) { # ifdef MYSQL_SUPPORT + if ((*((struct_connecteur_sql *) (*(*l_element_courant) .donnee).objet)).descripteur.mysql == (*((struct_connecteur_sql *) (*s_objet).objet)) @@ -909,6 +927,7 @@ instruction_sqldisconnect(struct_process { drapeau = d_faux; } + # else if ((*s_etat_processus).langue == 'F') @@ -930,6 +949,7 @@ instruction_sqldisconnect(struct_process .type, "POSTGRESQL") == 0) { # ifdef POSTGRESQL_SUPPORT + if ((*((struct_connecteur_sql *) (*(*l_element_courant) .donnee).objet)).descripteur.postgresql == (*((struct_connecteur_sql *) (*s_objet).objet))