[BACK]Return to rplexternals.h CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/rplexternals.h between versions 1.10 and 1.36

version 1.10, 2010/05/25 18:09:45 version 1.36, 2012/04/13 14:13:03
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.16    RPL/2 (R) version 4.1.8
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 124 Line 124
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
   #define DISABLE_SET_BUT_NOT_USED_WARNING(a) if (&a != ((&a) + 1));
   
 #define HEADER \  #define HEADER \
     int             __constante; \      int             __constante; \
     logical1        __evaluation; \      logical1        __evaluation; \
Line 139 Line 141
         (*rpl_arguments).instruction_valide = 'Y'; \          (*rpl_arguments).instruction_valide = 'Y'; \
         (*rpl_arguments).erreur = 0; \          (*rpl_arguments).erreur = 0; \
         __constante = 0; \          __constante = 0; \
         __evaluation = d_faux;          __evaluation = d_faux; \
           DISABLE_SET_BUT_NOT_USED_WARNING(__evaluation); \
           DISABLE_SET_BUT_NOT_USED_WARNING(__type); \
           DISABLE_SET_BUT_NOT_USED_WARNING(__indice_bit); \
           DISABLE_SET_BUT_NOT_USED_WARNING(__indice_bloc); \
           DISABLE_SET_BUT_NOT_USED_WARNING(__taille_bloc); \
           DISABLE_SET_BUT_NOT_USED_WARNING(__masque);
   
 #define FUNCTION \  #define FUNCTION \
     if (__validation_instruction == d_vrai) return; \      if (__validation_instruction == d_vrai) return; \
Line 203 Line 211
         unsigned long i; \          unsigned long i; \
         if (strcmp(version, _d_version_rpl) != 0) \          if (strcmp(version, _d_version_rpl) != 0) \
         { \          { \
               notice(stdout, "Versions mismatch : library %s, expected %s\n", \
                       _d_version_rpl, version); \
             (*nb_symbols) = -1; return(NULL); \              (*nb_symbols) = -1; return(NULL); \
         } \          } \
         (*nb_symbols) = 0; ptr1 = arguments; drapeau = 0; \          (*nb_symbols) = 0; ptr1 = arguments; drapeau = 0; \
Line 1035 Line 1045
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
     Récupération des interruptions et des signaux
   --------------------------------------------------------------------------------
   */
   
   #define pollSignalsAndInterrupts() \
       { scrutation_injection((*rpl_arguments).s_etat_processus); } while(0)
   
   /*
   --------------------------------------------------------------------------------
   Exécution d'une fonction intrinsèque    Exécution d'une fonction intrinsèque
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
Removed from v.1.10  
changed lines
  Added in v.1.36

CVSweb interface <joel.bertrand@systella.fr>