Diff for /rpl/src/interface_cas.cpp between versions 1.32 and 1.55

version 1.32, 2013/02/27 17:11:45 version 1.55, 2017/08/03 17:17:49
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.28
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 28 Line 28
 #   ifdef IPCS_SYSV  #   ifdef IPCS_SYSV
 //      NetBSD : _SEMAPHORE_H_  //      NetBSD : _SEMAPHORE_H_
 #       define _SEMAPHORE_H_  #       define _SEMAPHORE_H_
   //      Linux : _SEMAPHORE_H
   #       define _SEMAPHORE_H
 #   endif  #   endif
   
   #   pragma GCC diagnostic push
   #   pragma GCC diagnostic ignored "-Wstrict-aliasing"
   #   pragma GCC diagnostic ignored "-Wunused-parameter"
   #   pragma GCC diagnostic ignored "-Wempty-body"
   #   pragma GCC diagnostic ignored "-Wunknown-pragmas"
 #   include "giac.h"  #   include "giac.h"
   #   pragma GCC diagnostic pop
   
 #   undef PACKAGE  #   undef PACKAGE
 #   undef PACKAGE_NAME  #   undef PACKAGE_NAME
Line 412  conversion_cas_vers_rpl(struct_processus Line 420  conversion_cas_vers_rpl(struct_processus
 ================================================================================  ================================================================================
 */  */
   
   #pragma GCC diagnostic push
   #pragma GCC diagnostic ignored "-Wunused-parameter"
 void  void
 interface_cas(struct_processus *s_etat_processus,  interface_cas(struct_processus *s_etat_processus,
         enum t_rplcas_commandes commande)          enum t_rplcas_commandes commande)
 {  {
 #   ifdef RPLCAS  #ifdef RPLCAS
     struct_objet            *s_objet_argument_1;      struct_objet            *s_objet_argument_1;
     struct_objet            *s_objet_argument_2;      struct_objet            *s_objet_argument_2;
     struct_objet            *s_objet_temporaire;      struct_objet            *s_objet_temporaire;
Line 696  interface_cas(struct_processus *s_etat_p Line 706  interface_cas(struct_processus *s_etat_p
     }      }
   
     return;      return;
   
 #else  #else
   
     if (s_etat_processus->langue == 'F')      if (s_etat_processus->langue == 'F')
Line 714  interface_cas(struct_processus *s_etat_p Line 723  interface_cas(struct_processus *s_etat_p
   
 #endif  #endif
 }  }
   #pragma GCC diagnostic pop
   
 // vim: ts=4  // vim: ts=4

Removed from v.1.32  
changed lines
  Added in v.1.55


CVSweb interface <joel.bertrand@systella.fr>