Diff for /rpl/src/instructions_c1.c between versions 1.28 and 1.67

version 1.28, 2011/07/25 07:44:55 version 1.67, 2019/10/31 15:40:08
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.2    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2019 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 425  instruction_ceil(struct_processus *s_eta Line 425  instruction_ceil(struct_processus *s_eta
             return;              return;
         }          }
   
         (*((integer8 *) (*s_objet_resultat).objet)) =          (*((integer8 *) (*s_objet_resultat).objet)) = (integer8)
                 ceil((*((real8 *) (*s_objet_argument).objet)));                  ceil((*((real8 *) (*s_objet_argument).objet)));
   
         if (!(((((*((integer8 *) (*s_objet_resultat).objet)) - 1) <          if (!(((((*((integer8 *) (*s_objet_resultat).objet)) - 1) <
Line 802  instruction_c_vers_r(struct_processus *s Line 802  instruction_c_vers_r(struct_processus *s
     struct_objet                    *s_objet_resultat_1;      struct_objet                    *s_objet_resultat_1;
     struct_objet                    *s_objet_resultat_2;      struct_objet                    *s_objet_resultat_2;
   
     unsigned long                   i;      integer8                        i;
     unsigned long                   j;      integer8                        j;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 909  instruction_c_vers_r(struct_processus *s Line 909  instruction_c_vers_r(struct_processus *s
         }          }
   
         if (((*((struct_vecteur *) (*s_objet_resultat_1).objet)).tableau =          if (((*((struct_vecteur *) (*s_objet_resultat_1).objet)).tableau =
                 malloc((*(((struct_vecteur *) (*s_objet_argument)                  malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument)
                 .objet))).taille * sizeof(real8))) == NULL)                  .objet))).taille) * sizeof(real8))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
         }          }
   
         if (((*((struct_vecteur *) (*s_objet_resultat_2).objet)).tableau =          if (((*((struct_vecteur *) (*s_objet_resultat_2).objet)).tableau =
                 malloc((*(((struct_vecteur *) (*s_objet_argument)                  malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument)
                 .objet))).taille * sizeof(real8))) == NULL)                  .objet))).taille) * sizeof(real8))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 965  instruction_c_vers_r(struct_processus *s Line 965  instruction_c_vers_r(struct_processus *s
         }          }
   
         if (((*((struct_matrice *) (*s_objet_resultat_1).objet)).tableau =          if (((*((struct_matrice *) (*s_objet_resultat_1).objet)).tableau =
                 malloc((*(((struct_matrice *) (*s_objet_argument)                  malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument)
                 .objet))).nombre_lignes * sizeof(real8 *))) == NULL)                  .objet))).nombre_lignes) * sizeof(real8 *))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
         }          }
   
         if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau =          if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau =
                 malloc((*(((struct_matrice *) (*s_objet_argument)                  malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument)
                 .objet))).nombre_lignes * sizeof(real8 *))) == NULL)                  .objet))).nombre_lignes) * sizeof(real8 *))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 995  instruction_c_vers_r(struct_processus *s Line 995  instruction_c_vers_r(struct_processus *s
                 .nombre_lignes; i++)                  .nombre_lignes; i++)
         {          {
             if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_1)              if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_1)
                     .objet)).tableau)[i] = malloc(                      .objet)).tableau)[i] = malloc(((size_t)
                     (*(((struct_matrice *) (*s_objet_argument).objet)))                      (*(((struct_matrice *) (*s_objet_argument).objet)))
                     .nombre_colonnes * sizeof(real8))) == NULL)                      .nombre_colonnes) * sizeof(real8))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
             }              }
   
             if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2)              if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2)
                     .objet)).tableau)[i] = malloc(                      .objet)).tableau)[i] = malloc(((size_t)
                     (*(((struct_matrice *) (*s_objet_argument).objet)))                      (*(((struct_matrice *) (*s_objet_argument).objet)))
                     .nombre_colonnes * sizeof(real8))) == NULL)                      .nombre_colonnes) * sizeof(real8))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 1082  instruction_conj(struct_processus *s_eta Line 1082  instruction_conj(struct_processus *s_eta
     struct_objet                *s_objet_argument;      struct_objet                *s_objet_argument;
     struct_objet                *s_objet_resultat;      struct_objet                *s_objet_resultat;
   
     unsigned long               i;      integer8                    i;
     unsigned long               j;      integer8                    j;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   

Removed from v.1.28  
changed lines
  Added in v.1.67


CVSweb interface <joel.bertrand@systella.fr>