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

Diff for /rpl/src/instructions_d5.c between versions 1.99 and 1.105

version 1.99, 2012/12/18 13:19:36 version 1.105, 2013/03/26 09:04:32
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.12    RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2012 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 40  instruction_dft(struct_processus *s_etat Line 40  instruction_dft(struct_processus *s_etat
 {  {
     integer4                    erreur;      integer4                    erreur;
     integer4                    inverse;      integer4                    inverse;
       integer4                    longueur_dft;
     integer4                    nombre_colonnes;      integer4                    nombre_colonnes;
     integer4                    nombre_lignes;      integer4                    nombre_lignes;
   
     logical1                    presence_longueur_dft;      logical1                    presence_longueur_dft;
   
     long                        longueur_dft_signee;      integer8                    longueur_dft_signee;
   
     struct_complexe16           *matrice_f77;      struct_complexe16           *matrice_f77;
   
Line 53  instruction_dft(struct_processus *s_etat Line 54  instruction_dft(struct_processus *s_etat
     struct_objet                *s_objet_longueur_dft;      struct_objet                *s_objet_longueur_dft;
     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               longueur_dft;  
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 135  instruction_dft(struct_processus *s_etat Line 135  instruction_dft(struct_processus *s_etat
             return;              return;
         }          }
   
         longueur_dft = longueur_dft_signee;          longueur_dft = (integer4) longueur_dft_signee;
     }      }
     else      else
     {      {
Line 170  instruction_dft(struct_processus *s_etat Line 170  instruction_dft(struct_processus *s_etat
     {      {
         if (presence_longueur_dft == d_faux)          if (presence_longueur_dft == d_faux)
         {          {
             longueur_dft = (*((struct_vecteur *)              longueur_dft = (integer4) (*((struct_vecteur *)
                     (*s_objet_argument).objet)).taille;                      (*s_objet_argument).objet)).taille;
         }          }
   
         if ((matrice_f77 = malloc(longueur_dft *          if ((matrice_f77 = malloc(((size_t) longueur_dft) *
                 sizeof(struct_complexe16))) == NULL)                  sizeof(struct_complexe16))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 260  instruction_dft(struct_processus *s_etat Line 260  instruction_dft(struct_processus *s_etat
     {      {
         if (presence_longueur_dft == d_faux)          if (presence_longueur_dft == d_faux)
         {          {
             longueur_dft = (*((struct_matrice *)              longueur_dft = (integer4) (*((struct_matrice *)
                     (*s_objet_argument).objet)).nombre_colonnes;                      (*s_objet_argument).objet)).nombre_colonnes;
         }          }
   
         if ((matrice_f77 = malloc(longueur_dft *          if ((matrice_f77 = malloc(((size_t) longueur_dft) * ((size_t)
                 (*((struct_matrice *) (*s_objet_argument).objet))                  (*((struct_matrice *) (*s_objet_argument).objet))
                 .nombre_lignes * sizeof(struct_complexe16))) == NULL)                  .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 342  instruction_dft(struct_processus *s_etat Line 342  instruction_dft(struct_processus *s_etat
             }              }
         }          }
   
         nombre_lignes = (*((struct_matrice *) (*s_objet_argument).objet))          nombre_lignes = (integer4) (*((struct_matrice *) (*s_objet_argument)
                 .nombre_lignes;                  .objet)).nombre_lignes;
         nombre_colonnes = longueur_dft;          nombre_colonnes = longueur_dft;
         inverse = 0;          inverse = 0;
   
Line 371  instruction_dft(struct_processus *s_etat Line 371  instruction_dft(struct_processus *s_etat
                 longueur_dft;                  longueur_dft;
   
         if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =          if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
                 malloc((*((struct_matrice *) (*s_objet_resultat).objet))                  malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat)
                 .nombre_lignes * sizeof(struct_complexe16 *))) == NULL)                  .objet)).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 383  instruction_dft(struct_processus *s_etat Line 383  instruction_dft(struct_processus *s_etat
         {          {
             if ((((struct_complexe16 **) (*((struct_matrice *)              if ((((struct_complexe16 **) (*((struct_matrice *)
                     (*s_objet_resultat).objet)).tableau)[i] =                      (*s_objet_resultat).objet)).tableau)[i] =
                     malloc((*((struct_matrice *)                      malloc(((size_t) (*((struct_matrice *)
                     (*s_objet_resultat).objet)).nombre_colonnes *                      (*s_objet_resultat).objet)).nombre_colonnes) *
                     sizeof(struct_complexe16))) == NULL)                      sizeof(struct_complexe16))) == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 859  instruction_detach(struct_processus *s_e Line 859  instruction_detach(struct_processus *s_e
   
     unsigned int                        erreur;      unsigned int                        erreur;
   
     unsigned long                       i;      integer8                            i;
   
     volatile logical1                   variable_partagee;      volatile logical1                   variable_partagee;
   
Line 1999  instruction_detach(struct_processus *s_e Line 1999  instruction_detach(struct_processus *s_e
                     }                      }
                     else                      else
                     {                      {
                         if (((*s_etat_processus).var_volatile_alarme == 0)                          if (((*s_etat_processus).arret_depuis_abort == 0)
                                 && ((*s_etat_processus).arret_depuis_abort == 0)  
                                 && ((*s_etat_processus).at_exit != NULL))                                  && ((*s_etat_processus).at_exit != NULL))
                         {                          {
                             (*s_etat_processus).var_volatile_requete_arret = 0;                              (*s_etat_processus).var_volatile_requete_arret = 0;
                               (*s_etat_processus).var_volatile_alarme = 0;
   
                             if (evaluation(s_etat_processus,                              if (evaluation(s_etat_processus,
                                     (*s_etat_processus).at_exit, 'E') ==                                      (*s_etat_processus).at_exit, 'E') ==
Line 2028  instruction_detach(struct_processus *s_e Line 2028  instruction_detach(struct_processus *s_e
                     }                      }
                     else                      else
                     {                      {
                         if (((*s_etat_processus).var_volatile_alarme == 0)                          if (((*s_etat_processus).arret_depuis_abort == 0)
                                 && ((*s_etat_processus).arret_depuis_abort == 0)  
                                 && ((*s_etat_processus).at_exit != NULL))                                  && ((*s_etat_processus).at_exit != NULL))
                         {                          {
                             (*s_etat_processus).var_volatile_requete_arret = 0;                              (*s_etat_processus).var_volatile_requete_arret = 0;
                               (*s_etat_processus).var_volatile_alarme = 0;
   
                             if (evaluation(s_etat_processus,                              if (evaluation(s_etat_processus,
                                     (*s_etat_processus).at_exit, 'E') ==                                      (*s_etat_processus).at_exit, 'E') ==
Line 2377  instruction_detach(struct_processus *s_e Line 2377  instruction_detach(struct_processus *s_e
                     .var_volatile_traitement_retarde_stop;                      .var_volatile_traitement_retarde_stop;
             (*s_etat_processus).var_volatile_traitement_retarde_stop = 1;              (*s_etat_processus).var_volatile_traitement_retarde_stop = 1;
   
             for(i = 0; i < (unsigned long) (*(*((struct_processus_fils *)              for(i = 0; i < (*(*((struct_processus_fils *)
                     (*(*l_element_courant)                      (*(*l_element_courant)
                     .donnee).objet)).thread).nombre_objets_dans_pipe; i++)                      .donnee).objet)).thread).nombre_objets_dans_pipe; i++)
             {              {
Removed from v.1.99  
changed lines
  Added in v.1.105

CVSweb interface <joel.bertrand@systella.fr>