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

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

version 1.86, 2017/07/11 16:04:53 version 1.89, 2018/05/30 09:27:31
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.27    RPL/2 (R) version 4.1.29
   Copyright (C) 1989-2017 Dr. BERTRAND Joël    Copyright (C) 1989-2018 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 3320  formateur(struct_processus *s_etat_proce Line 3320  formateur(struct_processus *s_etat_proce
     }      }
     else if ((*s_objet).type == EXT)      else if ((*s_objet).type == EXT)
     {      {
         if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,          l_element_courant = (*s_etat_processus).s_bibliotheques;
                 "__type_disp")) == NULL)  
           while(l_element_courant != NULL)
           {
               if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
                       .descripteur == (*s_objet).descripteur_bibliotheque)
               {
                   if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,
                           "__type_disp")) == NULL)
                   {
                       // Symbole externe non affichable
   
                       if ((chaine = malloc((strlen(
                               "External symbol (disp function not found)") + 1)
                               * sizeof(unsigned char))) == NULL)
                       {
                           (*s_etat_processus).erreur_systeme =
                                   d_es_allocation_memoire;
                           return(NULL);
                       }
   
                       strcpy(chaine, "External symbol (disp function not found)");
                   }
                   else
                   {
                       // Symbole externe affichable
                       void        **arg;
   
                       arg = (void **) &s_objet;
                       __type_disp(s_etat_processus, arg);
                       chaine = (unsigned char *) (*arg);
                   }
   
                   break;
               }
   
               l_element_courant = (*l_element_courant).suivant;
           }
   
           if (l_element_courant == NULL)
         {          {
             // Symbole externe non affichable              // Symbole externe non affichable
   
             if ((chaine = malloc((strlen("External symbol") + 1)              if ((chaine = malloc((strlen("External symbol") + 1)
                     * sizeof(unsigned char))) == NULL)                      * sizeof(unsigned char))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme =
                           d_es_allocation_memoire;
                 return(NULL);                  return(NULL);
             }              }
   
             strcpy(chaine, "External symbol");              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      else
     {      {
Removed from v.1.86  
changed lines
  Added in v.1.89

CVSweb interface <joel.bertrand@systella.fr>