--- rpl/src/analyse.c 2010/07/13 13:01:21 1.22 +++ rpl/src/analyse.c 2010/08/13 21:01:10 1.28 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.17 + 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" /* @@ -715,6 +715,7 @@ initialisation_instructions(struct_proce INSTRUCTION("APPEND", instruction_append); INSTRUCTION("ARRY->", instruction_array_fleche); INSTRUCTION("ATEXIT", instruction_atexit); + INSTRUCTION("ATPOKE", instruction_atpoke); INSTRUCTION("BESSEL", instruction_bessel); INSTRUCTION("CLRERR", instruction_clrerr); INSTRUCTION("CLRMTX", instruction_clrmtx); @@ -836,6 +837,7 @@ initialisation_instructions(struct_proce INSTRUCTION("BACKSPACE", instruction_backspace); INSTRUCTION("BACKTRACE", instruction_backtrace); INSTRUCTION("CLRATEXIT", instruction_clratexit); + INSTRUCTION("CLRATPOKE", instruction_clratpoke); INSTRUCTION("COPYRIGHT", instruction_copyright); //INSTRUCTION("CYLINDRIC"); INSTRUCTION("DAEMONIZE", instruction_daemonize); @@ -882,7 +884,10 @@ initialisation_instructions(struct_proce } -extern inline void * +#ifndef OS2 +extern inline +#endif +void * analyse_instruction(struct_processus *s_etat_processus, unsigned char *ptr) { int pointeur; @@ -1142,6 +1147,7 @@ analyse(struct_processus *s_etat_process -------------------------------------------------------------------------------- */ +# ifndef OS2 if ((*s_etat_processus).pourcentage_maximal_cpu < 100) { getrusage(RUSAGE_SELF, &usage_final); @@ -1197,6 +1203,7 @@ analyse(struct_processus *s_etat_process usage_initial = usage_final; } } +# endif /* --------------------------------------------------------------------------------