Diff for /rpl/src/instructions_q1.c between versions 1.5 and 1.41

version 1.5, 2010/03/09 10:18:48 version 1.41, 2013/03/20 22:24:37
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.13    RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
   
 /*  /*
Line 53  instruction_qr(struct_processus *s_etat_ Line 53  instruction_qr(struct_processus *s_etat_
     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;
     unsigned long               k;      integer8                    k;
     unsigned long               nombre_reflecteurs_elementaires;      integer8                    nombre_reflecteurs_elementaires;
   
     void                        *tau;      void                        *tau;
   
Line 248  instruction_qr(struct_processus *s_etat_ Line 248  instruction_qr(struct_processus *s_etat_
                     (*((struct_matrice *) (*s_copie_argument).objet))                      (*((struct_matrice *) (*s_copie_argument).objet))
                     .nombre_lignes;                      .nombre_lignes;
   
             if ((vecteur_reel = malloc((*((struct_matrice *) (*s_objet).objet))              if ((vecteur_reel = malloc(((size_t) (*((struct_matrice *)
                     .nombre_lignes * sizeof(real8))) == NULL)                      (*s_objet).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 274  instruction_qr(struct_processus *s_etat_ Line 274  instruction_qr(struct_processus *s_etat_
             }              }
   
             if (((*((struct_matrice *) (*s_objet).objet)).tableau =              if (((*((struct_matrice *) (*s_objet).objet)).tableau =
                     malloc((*((struct_matrice *) (*s_objet).objet))                      malloc(((size_t) (*((struct_matrice *) (*s_objet).objet))
                     .nombre_lignes * sizeof(real8 *))) == NULL)                      .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 285  instruction_qr(struct_processus *s_etat_ Line 285  instruction_qr(struct_processus *s_etat_
                     .nombre_lignes; j++)                      .nombre_lignes; j++)
             {              {
                 if ((((real8 **) (*((struct_matrice *) (*s_objet).objet))                  if ((((real8 **) (*((struct_matrice *) (*s_objet).objet))
                         .tableau)[j] = malloc((*((struct_matrice *) (*s_objet)                          .tableau)[j] = malloc(((size_t) (*((struct_matrice *)
                         .objet)).nombre_lignes * sizeof(real8))) == NULL)                          (*s_objet).objet)).nombre_lignes) * sizeof(real8)))
                           == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 542  instruction_qr(struct_processus *s_etat_ Line 543  instruction_qr(struct_processus *s_etat_
                     (*((struct_matrice *) (*s_copie_argument).objet))                      (*((struct_matrice *) (*s_copie_argument).objet))
                     .nombre_lignes;                      .nombre_lignes;
   
             if ((vecteur_complexe = malloc((*((struct_matrice *)              if ((vecteur_complexe = malloc(((size_t) (*((struct_matrice *)
                     (*s_objet).objet)).nombre_lignes * sizeof(complex16)))                      (*s_objet).objet)).nombre_lignes) * sizeof(complex16)))
                     == NULL)                      == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 575  instruction_qr(struct_processus *s_etat_ Line 576  instruction_qr(struct_processus *s_etat_
             }              }
   
             if (((*((struct_matrice *) (*s_objet).objet)).tableau =              if (((*((struct_matrice *) (*s_objet).objet)).tableau =
                     malloc((*((struct_matrice *) (*s_objet).objet))                      malloc(((size_t) (*((struct_matrice *) (*s_objet).objet))
                     .nombre_lignes * sizeof(complex16 *))) == NULL)                      .nombre_lignes) * sizeof(complex16 *))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                 return;                  return;
Line 586  instruction_qr(struct_processus *s_etat_ Line 587  instruction_qr(struct_processus *s_etat_
                     .nombre_lignes; j++)                      .nombre_lignes; j++)
             {              {
                 if ((((complex16 **) (*((struct_matrice *) (*s_objet).objet))                  if ((((complex16 **) (*((struct_matrice *) (*s_objet).objet))
                         .tableau)[j] = malloc((*((struct_matrice *) (*s_objet)                          .tableau)[j] = malloc(((size_t) (*((struct_matrice *)
                         .objet)).nombre_lignes * sizeof(complex16))) == NULL)                          (*s_objet).objet)).nombre_lignes) * sizeof(complex16)))
                           == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;

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


CVSweb interface <joel.bertrand@systella.fr>