[BACK]Return to formateur.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/formateur.c between versions 1.77 and 1.86

version 1.77, 2015/09/18 13:41:09 version 1.86, 2017/07/11 16:04:53
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.23    RPL/2 (R) version 4.1.27
   Copyright (C) 1989-2015 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 42  formateur(struct_processus *s_etat_proce Line 42  formateur(struct_processus *s_etat_proce
     int                         parentheses_groupe_gauche;      int                         parentheses_groupe_gauche;
     int                         parentheses_groupe_droit;      int                         parentheses_groupe_droit;
   
       integer8                    (*__type_disp)(struct_processus *, void **);
   
     logical1                    registre45;      logical1                    registre45;
   
     logical4                    autorisation_parenthese;      logical4                    autorisation_parenthese;
Line 3296  formateur(struct_processus *s_etat_proce Line 3298  formateur(struct_processus *s_etat_proce
   
             if (chaine == NULL)              if (chaine == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme =                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                         d_es_allocation_memoire;  
                 return(NULL);                  return(NULL);
             }              }
   
Line 3306  formateur(struct_processus *s_etat_proce Line 3307  formateur(struct_processus *s_etat_proce
             strcat(chaine, " ]");              strcat(chaine, " ]");
         }          }
     }      }
       else if ((*s_objet).type == NON)
       {
           if ((chaine = malloc((strlen("System object") + 1)
                   * sizeof(unsigned char))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(NULL);
           }
   
           strcpy(chaine, "System object");
       }
       else if ((*s_objet).type == EXT)
       {
           if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,
                   "__type_disp")) == NULL)
           {
               // Symbole externe non affichable
   
               if ((chaine = malloc((strlen("External symbol") + 1)
                       * sizeof(unsigned char))) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(NULL);
               }
   
               strcpy(chaine, "External symbol");
           }
           else
           {
               // Symbole externe affichable
               void        **arg;
   
               arg = (void **) &s_objet;
               __type_disp(s_etat_processus, arg);
               chaine = (unsigned char *) (*arg);
           }
       }
       else
       {
           BUG(1, uprintf("Unknown symbol type\n"));
       }
   
     return(chaine);      return(chaine);
 }  }
Removed from v.1.77  
changed lines
  Added in v.1.86

CVSweb interface <joel.bertrand@systella.fr>