[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.5 and 1.6

version 1.5, 2011/06/24 20:31:41 version 1.6, 2011/06/24 21:01:57
Line 95  conversion_rpl_vers_cas(struct_processus Line 95  conversion_rpl_vers_cas(struct_processus
             {              {
                 unsigned char       *ptr;                  unsigned char       *ptr;
   
                 ptr = reinterpret_cast<unsigned char *>(((struct_fonction *)                  ptr = reinterpret_cast<unsigned char *>(
                           reinterpret_cast<struct_fonction *>(
                         l_element_courant->donnee->objet)->nom_fonction);                          l_element_courant->donnee->objet)->nom_fonction);
   
                 while((*ptr) != d_code_fin_chaine)                  while((*ptr) != d_code_fin_chaine)
Line 152  conversion_cas_vers_rpl(struct_processus Line 153  conversion_cas_vers_rpl(struct_processus
                 // qui n'est pas reconnu comme un mot-clef du RPL/2. S'il                  // qui n'est pas reconnu comme un mot-clef du RPL/2. S'il
                 // s'agit d'un mot-clef de GIAC, on le convertit.                  // s'agit d'un mot-clef de GIAC, on le convertit.
   
                 if (strcmp(const_cast<const char *>(reinterpret_cast<char *>(                  if (strcmp((const char *)
                         ((struct_fonction *) l_element_courant->donnee                          reinterpret_cast<struct_fonction *>(l_element_courant
                         ->objet)->nom_fonction)), "quote") == 0)                          ->donnee->objet)->nom_fonction, "quote") == 0)
                 {                  {
                     liberation(s_etat_processus, l_element_courant->donnee);                      liberation(s_etat_processus, l_element_courant->donnee);
   
Line 176  conversion_cas_vers_rpl(struct_processus Line 177  conversion_cas_vers_rpl(struct_processus
                         return;                          return;
                     }                      }
   
                     strcpy(reinterpret_cast<char *>(((struct_fonction *)                      strcpy(reinterpret_cast<char *>(
                               reinterpret_cast<struct_fonction *>(
                             l_element_courant->donnee->objet)->nom_fonction),                              l_element_courant->donnee->objet)->nom_fonction),
                             "RELAX");                              "RELAX");
                 }                  }
Line 264  interface_cas(struct_processus *s_etat_p Line 266  interface_cas(struct_processus *s_etat_p
   
             registre = s_etat_processus->instruction_courante;              registre = s_etat_processus->instruction_courante;
             s_etat_processus->instruction_courante =              s_etat_processus->instruction_courante =
                     reinterpret_cast<unsigned char*>(const_cast<char *>                      reinterpret_cast<unsigned char *>(const_cast<char *>
                     (chaine.c_str()));                      (chaine.c_str()));
   
             recherche_type(s_etat_processus);              recherche_type(s_etat_processus);
Removed from v.1.5  
changed lines
  Added in v.1.6

CVSweb interface <joel.bertrand@systella.fr>