[BACK]Return to interface_cas.cpp CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/interface_cas.cpp between versions 1.16 and 1.23

version 1.16, 2011/09/16 16:37:08 version 1.23, 2012/01/17 14:44:12
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.3    RPL/2 (R) version 4.1.6
   Copyright (C) 1989-2011 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 21 Line 21
   
   
 #ifdef RPLCAS  #ifdef RPLCAS
   
   // Giac inclut <semaphore.h> et définit sem_t. Or l'émulation
   // des IPCS POSIX requiert une redéfinition de sem_t.
   
   #   ifdef IPCS_SYSV
   //      NetBSD : _SEMAPHORE_H_
   #       define _SEMAPHORE_H_
   #   endif
   
 #   include "giac.h"  #   include "giac.h"
   
 #   undef PACKAGE  #   undef PACKAGE
Line 67  liberation_contexte_cas(struct_processus Line 76  liberation_contexte_cas(struct_processus
     return;      return;
 }  }
   
   #ifdef RPLCAS
 static unsigned char *  static unsigned char *
 conversion_rpl_vers_cas(struct_processus *s_etat_processus,  conversion_rpl_vers_cas(struct_processus *s_etat_processus,
         struct_objet **s_objet)          struct_objet **s_objet)
Line 74  conversion_rpl_vers_cas(struct_processus Line 84  conversion_rpl_vers_cas(struct_processus
     logical1                drapeau;      logical1                drapeau;
   
     struct_liste_chainee    *l_element_courant;      struct_liste_chainee    *l_element_courant;
     struct_liste_chainee    *l_element_precedent;  
   
     struct_objet            *s_objet_temporaire;      struct_objet            *s_objet_temporaire;
   
Line 205  conversion_rpl_vers_cas(struct_processus Line 214  conversion_rpl_vers_cas(struct_processus
                 }                  }
             }              }
   
             l_element_precedent = l_element_courant;  
             l_element_courant = l_element_courant->suivant;              l_element_courant = l_element_courant->suivant;
         }          }
     }      }
Line 259  conversion_cas_vers_rpl(struct_processus Line 267  conversion_cas_vers_rpl(struct_processus
     logical1                    drapeau;      logical1                    drapeau;
   
     struct_liste_chainee        *l_element_courant;      struct_liste_chainee        *l_element_courant;
     struct_liste_chainee        *l_element_precedent;  
   
     struct_objet                *s_objet;      struct_objet                *s_objet;
   
Line 332  conversion_cas_vers_rpl(struct_processus Line 339  conversion_cas_vers_rpl(struct_processus
   
     if ((s_objet->type == ALG) || (s_objet->type == RPN))      if ((s_objet->type == ALG) || (s_objet->type == RPN))
     {      {
         l_element_precedent = NULL;  
         l_element_courant = reinterpret_cast<struct_liste_chainee *>(          l_element_courant = reinterpret_cast<struct_liste_chainee *>(
                 s_objet->objet);                  s_objet->objet);
   
Line 378  conversion_cas_vers_rpl(struct_processus Line 384  conversion_cas_vers_rpl(struct_processus
                 }                  }
             }              }
   
             l_element_precedent = l_element_courant;  
             l_element_courant = l_element_courant->suivant;              l_element_courant = l_element_courant->suivant;
         }          }
     }      }
Line 391  conversion_cas_vers_rpl(struct_processus Line 396  conversion_cas_vers_rpl(struct_processus
   
     return;      return;
 }  }
   #endif
   
   
 /*  /*
Line 563  interface_cas(struct_processus *s_etat_p Line 569  interface_cas(struct_processus *s_etat_p
             l_element_courant = reinterpret_cast<struct_liste_chainee *>              l_element_courant = reinterpret_cast<struct_liste_chainee *>
                     (s_objet_argument_1->objet);                      (s_objet_argument_1->objet);
             position = 1;              position = 1;
               argument_1 = NULL;
               argument_3 = NULL;
             argument_4 = NULL;              argument_4 = NULL;
   
             while(l_element_courant != NULL)              while(l_element_courant != NULL)
Removed from v.1.16  
changed lines
  Added in v.1.23

CVSweb interface <joel.bertrand@systella.fr>