Diff for /rpl/src/instructions_c3.c between versions 1.36 and 1.66

version 1.36, 2012/01/05 10:19:00 version 1.66, 2017/07/17 21:37:41
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.5    RPL/2 (R) version 4.1.27
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 63  instruction_clmf(struct_processus *s_eta Line 63  instruction_clmf(struct_processus *s_eta
         return;          return;
     }      }
   
       if (test_cfsf(s_etat_processus, 31) == d_vrai)
       {
           if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
           {
               return;
           }
       }
   
     affichage_pile(s_etat_processus, (*s_etat_processus).l_base_pile, 1);      affichage_pile(s_etat_processus, (*s_etat_processus).l_base_pile, 1);
   
     return;      return;
Line 109  instruction_cont(struct_processus *s_eta Line 117  instruction_cont(struct_processus *s_eta
         return;          return;
     }      }
   
       if (test_cfsf(s_etat_processus, 31) == d_vrai)
       {
           if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
           {
               return;
           }
       }
   
     (*s_etat_processus).debug_programme = d_faux;      (*s_etat_processus).debug_programme = d_faux;
     (*s_etat_processus).execution_pas_suivant = d_vrai;      (*s_etat_processus).execution_pas_suivant = d_vrai;
   
Line 143  instruction_cnrm(struct_processus *s_eta Line 159  instruction_cnrm(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;
   
     void                        *accumulateur;      void                        *accumulateur;
   
Line 206  instruction_cnrm(struct_processus *s_eta Line 222  instruction_cnrm(struct_processus *s_eta
         for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille;          for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille;
                 i++)                  i++)
         {          {
               if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument).objet))
                       .tableau)[i] == INT64_MIN)
               {
                   depassement = d_vrai;
                   break;
               }
   
             entier_courant = abs(((integer8 *) (*((struct_vecteur *)              entier_courant = abs(((integer8 *) (*((struct_vecteur *)
                     (*s_objet_argument).objet)).tableau)[i]);                      (*s_objet_argument).objet)).tableau)[i]);
   
Line 237  instruction_cnrm(struct_processus *s_eta Line 260  instruction_cnrm(struct_processus *s_eta
             for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet))              for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet))
                     .taille; i++)                      .taille; i++)
             {              {
                 cumul_reel += (real8) abs(((integer8 *) (*((struct_vecteur *)                  cumul_reel += abs((real8) ((integer8 *) (*((struct_vecteur *)
                         (*s_objet_argument).objet)).tableau)[i]);                          (*s_objet_argument).objet)).tableau)[i]);
             }              }
   
Line 260  instruction_cnrm(struct_processus *s_eta Line 283  instruction_cnrm(struct_processus *s_eta
             return;              return;
         }          }
   
         if ((accumulateur = malloc((*((struct_vecteur *)          if ((accumulateur = malloc(((size_t) (*((struct_vecteur *)
                 (*s_objet_argument).objet)).taille * sizeof(real8))) == NULL)                  (*s_objet_argument).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 296  instruction_cnrm(struct_processus *s_eta Line 319  instruction_cnrm(struct_processus *s_eta
             return;              return;
         }          }
   
         if ((accumulateur = malloc((*((struct_vecteur *)          if ((accumulateur = malloc(((size_t) (*((struct_vecteur *)
                 (*s_objet_argument).objet)).taille * sizeof(real8))) == NULL)                  (*s_objet_argument).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 345  instruction_cnrm(struct_processus *s_eta Line 368  instruction_cnrm(struct_processus *s_eta
         for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))          for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))
                 .nombre_lignes; i++)                  .nombre_lignes; i++)
         {          {
               if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet))
                       .tableau)[i][0] == 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)[i][0]);                      .tableau)[i][0]);
Line 371  instruction_cnrm(struct_processus *s_eta Line 401  instruction_cnrm(struct_processus *s_eta
                 for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))                  for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))
                         .nombre_lignes; i++)                          .nombre_lignes; i++)
                 {                  {
                       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]);
   
Line 411  instruction_cnrm(struct_processus *s_eta Line 449  instruction_cnrm(struct_processus *s_eta
                 return;                  return;
             }              }
   
             if ((accumulateur = malloc((*((struct_matrice *)              if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
                     (*s_objet_argument).objet)).nombre_lignes * sizeof(real8)))                      (*s_objet_argument).objet)).nombre_lignes) * sizeof(real8)))
                     == NULL)                      == NULL)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;                  (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 427  instruction_cnrm(struct_processus *s_eta Line 465  instruction_cnrm(struct_processus *s_eta
                 for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))                  for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))
                         .nombre_lignes; i++)                          .nombre_lignes; i++)
                 {                  {
                     ((real8 *) accumulateur)[i] = fabs((real8) ((integer8 **)                      ((real8 *) accumulateur)[i] = abs((real8) ((integer8 **)
                             (*((struct_matrice *)                              (*((struct_matrice *)
                             (*s_objet_argument).objet)).tableau)[i][j]);                              (*s_objet_argument).objet)).tableau)[i][j]);
                 }                  }
Line 461  instruction_cnrm(struct_processus *s_eta Line 499  instruction_cnrm(struct_processus *s_eta
             return;              return;
         }          }
   
         if ((accumulateur = malloc((*((struct_matrice *)          if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
                 (*s_objet_argument).objet)).nombre_lignes * sizeof(real8)))                  (*s_objet_argument).objet)).nombre_lignes) * sizeof(real8)))
                 == NULL)                  == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 477  instruction_cnrm(struct_processus *s_eta Line 515  instruction_cnrm(struct_processus *s_eta
             for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))              for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet))
                     .nombre_lignes; i++)                      .nombre_lignes; i++)
             {              {
                 ((real8 *) accumulateur)[i] = fabs(((real8 **)                  ((real8 *) accumulateur)[i] = abs(((real8 **)
                         (*((struct_matrice *)                          (*((struct_matrice *)
                         (*s_objet_argument).objet)).tableau)[i][j]);                          (*s_objet_argument).objet)).tableau)[i][j]);
             }              }
Line 509  instruction_cnrm(struct_processus *s_eta Line 547  instruction_cnrm(struct_processus *s_eta
             return;              return;
         }          }
   
         if ((accumulateur = malloc((*((struct_matrice *)          if ((accumulateur = malloc(((size_t) (*((struct_matrice *)
                 (*s_objet_argument).objet)).nombre_lignes * sizeof(real8)))                  (*s_objet_argument).objet)).nombre_lignes) * sizeof(real8)))
                 == NULL)                  == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 701  instruction_chr(struct_processus *s_etat Line 739  instruction_chr(struct_processus *s_etat
                 }                  }
   
                 ((unsigned char *) (*s_objet_resultat).objet)[0] =                  ((unsigned char *) (*s_objet_resultat).objet)[0] =
                         (*((integer8 *) (*s_objet_argument).objet));                          (unsigned char) (*((integer8 *)
                           (*s_objet_argument).objet));
                 ((unsigned char *) (*s_objet_resultat).objet)[1] =                  ((unsigned char *) (*s_objet_resultat).objet)[1] =
                         d_code_fin_chaine;                          d_code_fin_chaine;
             }              }

Removed from v.1.36  
changed lines
  Added in v.1.66


CVSweb interface <joel.bertrand@systella.fr>