--- rpl/src/instructions_f3.c 2010/03/09 10:18:46 1.6 +++ rpl/src/instructions_f3.c 2010/08/26 17:56:20 1.18 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.13 + 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" /* @@ -1788,6 +1788,7 @@ instruction_fuse(struct_processus *s_eta return; } +# ifndef OS2 if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; @@ -1806,6 +1807,7 @@ instruction_fuse(struct_processus *s_eta (*s_etat_processus).erreur_systeme = d_es_processus; return; } +# endif if (pthread_create(&(*s_etat_processus).thread_fusible, &attributs, fusible, s_etat_processus) != 0) @@ -1813,7 +1815,7 @@ instruction_fuse(struct_processus *s_eta (*s_etat_processus).erreur_systeme = d_es_processus; return; } - + if (pthread_attr_destroy(&attributs) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus;