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

Diff for /rpl/src/instructions_s7.c between versions 1.40 and 1.68

version 1.40, 2013/02/26 19:56:16 version 1.68, 2021/03/13 12:50:47
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.12    RPL/2 (R) version 4.1.33
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2021 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 185  instruction_slicescale(struct_processus Line 185  instruction_slicescale(struct_processus
         {          {
             if ((*(*l_element_courant).donnee).type == CHN)              if ((*(*l_element_courant).donnee).type == CHN)
             {              {
                 if ((tampon = conversion_majuscule((unsigned char *)                  if ((tampon = conversion_majuscule(s_etat_processus,
                         (*(*l_element_courant).donnee).objet)) == NULL)                          (unsigned char *) (*(*l_element_courant).donnee).objet))
                           == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 463  instruction_sx(struct_processus *s_etat_ Line 464  instruction_sx(struct_processus *s_etat_
   
     struct_vecteur                      *resultat;      struct_vecteur                      *resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 553  instruction_sx(struct_processus *s_etat_ Line 554  instruction_sx(struct_processus *s_etat_
             return;              return;
         }          }
   
         if ((resultat = sommation_colonne_statistique(          if ((resultat = sommation_colonne_statistique(s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet,                  (struct_matrice *) (*s_objet_statistique).objet,
                 (*s_etat_processus).colonne_statistique_1)) == NULL)                  (*s_etat_processus).colonne_statistique_1)) == NULL)
         {          {
Line 628  instruction_sy(struct_processus *s_etat_ Line 629  instruction_sy(struct_processus *s_etat_
   
     struct_vecteur                      *resultat;      struct_vecteur                      *resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 718  instruction_sy(struct_processus *s_etat_ Line 719  instruction_sy(struct_processus *s_etat_
             return;              return;
         }          }
   
         if ((resultat = sommation_colonne_statistique(          if ((resultat = sommation_colonne_statistique(s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet,                  (struct_matrice *) (*s_objet_statistique).objet,
                 (*s_etat_processus).colonne_statistique_2)) == NULL)                  (*s_etat_processus).colonne_statistique_2)) == NULL)
         {          {
Line 793  instruction_sxy(struct_processus *s_etat Line 794  instruction_sxy(struct_processus *s_etat
   
     struct_vecteur                      *resultat;      struct_vecteur                      *resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 886  instruction_sxy(struct_processus *s_etat Line 887  instruction_sxy(struct_processus *s_etat
         }          }
   
         if ((resultat = sommation_produits_colonnes_statistiques(          if ((resultat = sommation_produits_colonnes_statistiques(
                   s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet,                  (struct_matrice *) (*s_objet_statistique).objet,
                 (*s_etat_processus).colonne_statistique_1,                  (*s_etat_processus).colonne_statistique_1,
                 (*s_etat_processus).colonne_statistique_2)) == NULL)                  (*s_etat_processus).colonne_statistique_2)) == NULL)
Line 961  instruction_sx2(struct_processus *s_etat Line 963  instruction_sx2(struct_processus *s_etat
   
     struct_vecteur                      *resultat;      struct_vecteur                      *resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1052  instruction_sx2(struct_processus *s_etat Line 1054  instruction_sx2(struct_processus *s_etat
         }          }
   
         if ((resultat = sommation_produits_colonnes_statistiques(          if ((resultat = sommation_produits_colonnes_statistiques(
                   s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet,                  (struct_matrice *) (*s_objet_statistique).objet,
                 (*s_etat_processus).colonne_statistique_1,                  (*s_etat_processus).colonne_statistique_1,
                 (*s_etat_processus).colonne_statistique_1)) == NULL)                  (*s_etat_processus).colonne_statistique_1)) == NULL)
Line 1127  instruction_sy2(struct_processus *s_etat Line 1130  instruction_sy2(struct_processus *s_etat
   
     struct_vecteur                      *resultat;      struct_vecteur                      *resultat;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1218  instruction_sy2(struct_processus *s_etat Line 1221  instruction_sy2(struct_processus *s_etat
         }          }
   
         if ((resultat = sommation_produits_colonnes_statistiques(          if ((resultat = sommation_produits_colonnes_statistiques(
                   s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet,                  (struct_matrice *) (*s_objet_statistique).objet,
                 (*s_etat_processus).colonne_statistique_2,                  (*s_etat_processus).colonne_statistique_2,
                 (*s_etat_processus).colonne_statistique_2)) == NULL)                  (*s_etat_processus).colonne_statistique_2)) == NULL)
Removed from v.1.40  
changed lines
  Added in v.1.68

CVSweb interface <joel.bertrand@systella.fr>