Diff for /rpl/src/instructions_l3.c between versions 1.40 and 1.41

version 1.40, 2013/02/27 17:11:42 version 1.41, 2013/03/20 17:11:45
Line 190  instruction_lsq(struct_processus *s_etat Line 190  instruction_lsq(struct_processus *s_etat
     struct_matrice              s_matrice_tampon_b;      struct_matrice              s_matrice_tampon_b;
     struct_matrice              s_matrice_tampon_x;      struct_matrice              s_matrice_tampon_x;
   
     unsigned long               i;      integer8                    i;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 288  instruction_lsq(struct_processus *s_etat Line 288  instruction_lsq(struct_processus *s_etat
                     (*s_objet_argument_2).objet)).taille;                      (*s_objet_argument_2).objet)).taille;
             s_matrice_tampon_b.nombre_colonnes = 1;              s_matrice_tampon_b.nombre_colonnes = 1;
   
             if ((s_matrice_tampon_b.tableau = malloc(s_matrice_tampon_b              if ((s_matrice_tampon_b.tableau = malloc(((size_t)
                     .nombre_lignes * sizeof(integer8 *))) == NULL)                      s_matrice_tampon_b.nombre_lignes) *
                       sizeof(integer8 *))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 317  instruction_lsq(struct_processus *s_etat Line 318  instruction_lsq(struct_processus *s_etat
                     (*s_objet_argument_2).objet)).taille;                      (*s_objet_argument_2).objet)).taille;
             s_matrice_tampon_b.nombre_colonnes = 1;              s_matrice_tampon_b.nombre_colonnes = 1;
   
             if ((s_matrice_tampon_b.tableau = malloc(s_matrice_tampon_b              if ((s_matrice_tampon_b.tableau = malloc(((size_t)
                     .nombre_lignes * sizeof(real8 *))) == NULL)                      s_matrice_tampon_b.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 384  instruction_lsq(struct_processus *s_etat Line 386  instruction_lsq(struct_processus *s_etat
                 s_matrice_tampon_x.nombre_lignes;                  s_matrice_tampon_x.nombre_lignes;
   
         if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =          if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
                 malloc((*((struct_vecteur *) (*s_objet_resultat).objet)).taille                  malloc(((size_t) (*((struct_vecteur *) (*s_objet_resultat)
                 * 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 433  instruction_lsq(struct_processus *s_etat Line 435  instruction_lsq(struct_processus *s_etat
                     (*s_objet_argument_2).objet)).taille;                      (*s_objet_argument_2).objet)).taille;
             s_matrice_tampon_b.nombre_colonnes = 1;              s_matrice_tampon_b.nombre_colonnes = 1;
   
             if ((s_matrice_tampon_b.tableau = malloc(s_matrice_tampon_b              if ((s_matrice_tampon_b.tableau = malloc(((size_t)
                     .nombre_lignes * sizeof(integer8 *))) == NULL)                      s_matrice_tampon_b.nombre_lignes) * sizeof(integer8 *)))
                       == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 462  instruction_lsq(struct_processus *s_etat Line 465  instruction_lsq(struct_processus *s_etat
                     (*s_objet_argument_2).objet)).taille;                      (*s_objet_argument_2).objet)).taille;
             s_matrice_tampon_b.nombre_colonnes = 1;              s_matrice_tampon_b.nombre_colonnes = 1;
   
             if ((s_matrice_tampon_b.tableau = malloc(s_matrice_tampon_b              if ((s_matrice_tampon_b.tableau = malloc(((size_t)
                     .nombre_lignes * sizeof(real8 *))) == NULL)                      s_matrice_tampon_b.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 491  instruction_lsq(struct_processus *s_etat Line 495  instruction_lsq(struct_processus *s_etat
                     (*s_objet_argument_2).objet)).taille;                      (*s_objet_argument_2).objet)).taille;
             s_matrice_tampon_b.nombre_colonnes = 1;              s_matrice_tampon_b.nombre_colonnes = 1;
   
             if ((s_matrice_tampon_b.tableau = malloc(s_matrice_tampon_b              if ((s_matrice_tampon_b.tableau = malloc(((size_t)
                     .nombre_lignes * sizeof(struct_complexe16 *))) == NULL)                      s_matrice_tampon_b.nombre_lignes) *
                       sizeof(struct_complexe16 *))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 570  instruction_lsq(struct_processus *s_etat Line 575  instruction_lsq(struct_processus *s_etat
                 s_matrice_tampon_x.nombre_lignes;                  s_matrice_tampon_x.nombre_lignes;
   
         if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =          if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau =
                 malloc((*((struct_vecteur *) (*s_objet_resultat).objet)).taille                  malloc(((size_t) (*((struct_vecteur *) (*s_objet_resultat)
                 * sizeof(struct_complexe16))) == NULL)                  .objet)).taille) * sizeof(struct_complexe16))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;

Removed from v.1.40  
changed lines
  Added in v.1.41


CVSweb interface <joel.bertrand@systella.fr>