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

Diff for /rpl/src/instructions_r3.c between versions 1.49 and 1.50

version 1.49, 2013/02/27 17:11:44 version 1.50, 2013/03/16 11:31:41
Line 410  instruction_rnrm(struct_processus *s_eta Line 410  instruction_rnrm(struct_processus *s_eta
   
     if ((*s_objet_argument).type == VIN)      if ((*s_objet_argument).type == VIN)
     {      {
         if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL)          depassement = d_faux;
   
           for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille;
                   i++)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument)
             return;                      .objet)).tableau)[i] == INT64_MIN)
               {
                   depassement = d_vrai;
                   break;
               }
         }          }
   
         (*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *)          if (depassement == d_faux)
                 (*((struct_vecteur *) (*s_objet_argument).objet)).tableau)[0]);          {
               if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return;
               }
   
         for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille;              (*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *)
                 i++)                      (*((struct_vecteur *) (*s_objet_argument).objet))
                       .tableau)[0]);
   
               for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet))
                       .taille; i++)
               {
                   if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument)
                           .objet)).tableau)[i]) > (*((integer8 *)
                           (*s_objet_resultat).objet)))
                   {
                       (*((integer8 *) (*s_objet_resultat).objet)) =
                               abs(((integer8 *) (*((struct_vecteur *)
                               (*s_objet_argument).objet)).tableau)[i]);
                   }
               }
           }
           else
         {          {
             if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument)              if ((s_objet_resultat = allocation(s_etat_processus, REL)) == NULL)
                     .objet)).tableau)[i]) > (*((integer8 *)  
                     (*s_objet_resultat).objet)))  
             {              {
                 (*((integer8 *) (*s_objet_resultat).objet)) =                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                         abs(((integer8 *) (*((struct_vecteur *)                  return;
                         (*s_objet_argument).objet)).tableau)[i]);              }
   
               (*((real8 *) (*s_objet_resultat).objet)) = abs((real8) ((integer8 *)
                       (*((struct_vecteur *) (*s_objet_argument).objet))
                       .tableau)[0]);
   
               for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet))
                       .taille; i++)
               {
                   if (abs((real8) ((integer8 *) (*((struct_vecteur *)
                           (*s_objet_argument).objet)).tableau)[i]) > (*((real8 *)
                           (*s_objet_resultat).objet)))
                   {
                       (*((real8 *) (*s_objet_resultat).objet)) =
                               abs((real8) ((integer8 *) (*((struct_vecteur *)
                               (*s_objet_argument).objet)).tableau)[i]);
                   }
             }              }
         }          }
     }      }
Line 501  instruction_rnrm(struct_processus *s_eta Line 543  instruction_rnrm(struct_processus *s_eta
         for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet))          for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet))
                 .nombre_colonnes; j++)                  .nombre_colonnes; j++)
         {          {
               if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet))
                       .tableau)[0][j] == INT64_MIN)
               {
                   depassement = d_vrai;
                   break;
               }
   
             entier_courant = abs(((integer8 **)              entier_courant = abs(((integer8 **)
                     (*((struct_matrice *) (*s_objet_argument).objet))                      (*((struct_matrice *) (*s_objet_argument).objet))
                     .tableau)[0][j]);                      .tableau)[0][j]);
Line 525  instruction_rnrm(struct_processus *s_eta Line 574  instruction_rnrm(struct_processus *s_eta
                 for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet))                  for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet))
                         .nombre_colonnes; j++)                          .nombre_colonnes; j++)
                 {                  {
                       if (((integer8 **) (*((struct_matrice *)
                               (*s_objet_argument).objet)).tableau)[i][j]
                               == INT64_MIN)
                       {
                           depassement = d_vrai;
                           break;
                       }
   
                     entier_courant = abs(((integer8 **) (*((struct_matrice *)                      entier_courant = abs(((integer8 **) (*((struct_matrice *)
                             (*s_objet_argument).objet)).tableau)[i][j]);                              (*s_objet_argument).objet)).tableau)[i][j]);
   
Removed from v.1.49  
changed lines
  Added in v.1.50

CVSweb interface <joel.bertrand@systella.fr>