Diff for /rpl/src/instructions_p5.c between versions 1.43 and 1.44

version 1.43, 2013/02/27 17:11:43 version 1.44, 2013/03/20 22:24:36
Line 245  instruction_putc(struct_processus *s_eta Line 245  instruction_putc(struct_processus *s_eta
     struct_objet                    *s_objet_argument_2;      struct_objet                    *s_objet_argument_2;
     struct_objet                    *s_objet_argument_3;      struct_objet                    *s_objet_argument_3;
   
     unsigned long                   i;      integer8                        i;
     unsigned long                   j;      integer8                        j;
     unsigned long                   nombre_elements;      integer8                        nombre_elements;
   
     void                            *tampon;      void                            *tampon;
   
Line 468  instruction_putc(struct_processus *s_eta Line 468  instruction_putc(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(real8))) == NULL)                          sizeof(real8))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)
Line 516  instruction_putc(struct_processus *s_eta Line 516  instruction_putc(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(complex16))) == NULL)                          sizeof(complex16))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)
Line 563  instruction_putc(struct_processus *s_eta Line 563  instruction_putc(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(complex16))) == NULL)                          sizeof(complex16))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)
Line 1168  instruction_putr(struct_processus *s_eta Line 1168  instruction_putr(struct_processus *s_eta
     struct_objet                    *s_objet_argument_2;      struct_objet                    *s_objet_argument_2;
     struct_objet                    *s_objet_argument_3;      struct_objet                    *s_objet_argument_3;
   
     unsigned long                   i;      integer8                        i;
     unsigned long                   j;      integer8                        j;
     unsigned long                   nombre_elements;      integer8                        nombre_elements;
   
     void                            *tampon;      void                            *tampon;
   
Line 1401  instruction_putr(struct_processus *s_eta Line 1401  instruction_putr(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(real8))) == NULL)                          sizeof(real8))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)
Line 1449  instruction_putr(struct_processus *s_eta Line 1449  instruction_putr(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(complex16))) == NULL)                          sizeof(complex16))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)
Line 1496  instruction_putr(struct_processus *s_eta Line 1496  instruction_putr(struct_processus *s_eta
                         .tableau[i];                          .tableau[i];
   
                 if (((*((struct_matrice *) (*s_objet_argument_3).objet))                  if (((*((struct_matrice *) (*s_objet_argument_3).objet))
                         .tableau[i] = malloc((*((struct_matrice *)                          .tableau[i] = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_argument_3).objet)).nombre_colonnes *                          (*s_objet_argument_3).objet)).nombre_colonnes) *
                         sizeof(complex16))) == NULL)                          sizeof(complex16))) == NULL)
                 {                  {
                     if (variable_partagee == d_vrai)                      if (variable_partagee == d_vrai)

Removed from v.1.43  
changed lines
  Added in v.1.44


CVSweb interface <joel.bertrand@systella.fr>