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

Diff for /rpl/src/instructions_c5.c between versions 1.44 and 1.75

version 1.44, 2013/03/20 17:11:44 version 1.75, 2025/04/15 10:17:52
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 436  instruction_col_plus(struct_processus *s Line 436  instruction_col_plus(struct_processus *s
             return;              return;
         }          }
   
         if ((position < 1) || (position > ((signed long) (*((struct_matrice *)          if ((position < 1) || (position > (*((struct_matrice *)
                 (*s_copie_argument_3).objet)).nombre_colonnes + 1)))                  (*s_copie_argument_3).objet)).nombre_colonnes + 1))
         {          {
             if (variable_partagee == d_vrai)              if (variable_partagee == d_vrai)
             {              {
Line 491  instruction_col_plus(struct_processus *s Line 491  instruction_col_plus(struct_processus *s
             for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)              for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                     .objet)).nombre_colonnes; j++)                      .objet)).nombre_colonnes; j++)
             {              {
                 if ((signed long) j == (position - 1))                  if (j == (position - 1))
                 {                  {
                     ((integer8 **) (*((struct_matrice *) (*s_copie_argument_3)                      ((integer8 **) (*((struct_matrice *) (*s_copie_argument_3)
                             .objet)).tableau)[i][j] = ((integer8 **)                              .objet)).tableau)[i][j] = ((integer8 **)
Line 550  instruction_col_plus(struct_processus *s Line 550  instruction_col_plus(struct_processus *s
                 return;                  return;
             }              }
   
             if ((position < 1) || (position > ((signed long)              if ((position < 1) || (position >
                     (*((struct_matrice *) (*s_copie_argument_3).objet))                      (*((struct_matrice *) (*s_copie_argument_3).objet))
                     .nombre_colonnes + 1)))                      .nombre_colonnes + 1))
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
                 {                  {
Line 608  instruction_col_plus(struct_processus *s Line 608  instruction_col_plus(struct_processus *s
                 for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)                  for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                         .objet)).nombre_colonnes; j++)                          .objet)).nombre_colonnes; j++)
                 {                  {
                     if ((signed long) j == (position - 1))                      if (j == (position - 1))
                     {                      {
                         ((real8 **) (*((struct_matrice *) (*s_copie_argument_3)                          ((real8 **) (*((struct_matrice *) (*s_copie_argument_3)
                                 .objet)).tableau)[i][j] = (real8) ((integer8 **)                                  .objet)).tableau)[i][j] = (real8) ((integer8 **)
Line 666  instruction_col_plus(struct_processus *s Line 666  instruction_col_plus(struct_processus *s
                 return;                  return;
             }              }
   
             if ((position < 1) || (position > ((signed long)              if ((position < 1) || (position >
                     (*((struct_matrice *) (*s_copie_argument_3).objet))                      (*((struct_matrice *) (*s_copie_argument_3).objet))
                     .nombre_colonnes + 1)))                      .nombre_colonnes + 1))
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
                 {                  {
Line 724  instruction_col_plus(struct_processus *s Line 724  instruction_col_plus(struct_processus *s
                 for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)                  for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                         .objet)).nombre_colonnes; j++)                          .objet)).nombre_colonnes; j++)
                 {                  {
                     if ((signed long) j == (position - 1))                      if (j == (position - 1))
                     {                      {
                         ((real8 **) (*((struct_matrice *) (*s_copie_argument_3)                          ((real8 **) (*((struct_matrice *) (*s_copie_argument_3)
                                 .objet)).tableau)[i][j] = ((real8 **)                                  .objet)).tableau)[i][j] = ((real8 **)
Line 785  instruction_col_plus(struct_processus *s Line 785  instruction_col_plus(struct_processus *s
                 return;                  return;
             }              }
   
             if ((position < 1) || (position > ((signed long)              if ((position < 1) || (position > (*((struct_matrice *)
                     (*((struct_matrice *)                      (*s_copie_argument_3).objet)).nombre_colonnes + 1))
                     (*s_copie_argument_3).objet)).nombre_colonnes + 1)))  
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
                 {                  {
Line 843  instruction_col_plus(struct_processus *s Line 842  instruction_col_plus(struct_processus *s
                 for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)                  for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                         .objet)).nombre_colonnes; j++)                          .objet)).nombre_colonnes; j++)
                 {                  {
                     if ((signed long) j == (position - 1))                      if (j == (position - 1))
                     {                      {
                         ((complex16 **) (*((struct_matrice *)                          ((complex16 **) (*((struct_matrice *)
                                 (*s_copie_argument_3).objet)).tableau)[i][j]                                  (*s_copie_argument_3).objet)).tableau)[i][j]
Line 914  instruction_col_plus(struct_processus *s Line 913  instruction_col_plus(struct_processus *s
                 return;                  return;
             }              }
   
             if ((position < 1) || (position > ((signed long)              if ((position < 1) || (position > (*((struct_matrice *)
                     (*((struct_matrice *)                      (*s_copie_argument_3).objet)).nombre_colonnes + 1))
                     (*s_copie_argument_3).objet)).nombre_colonnes + 1)))  
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
                 {                  {
Line 972  instruction_col_plus(struct_processus *s Line 970  instruction_col_plus(struct_processus *s
                 for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)                  for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                         .objet)).nombre_colonnes; j++)                          .objet)).nombre_colonnes; j++)
                 {                  {
                     if ((signed long) j == (position - 1))                      if (j == (position - 1))
                     {                      {
                         ((complex16 **) (*((struct_matrice *)                          ((complex16 **) (*((struct_matrice *)
                                 (*s_copie_argument_3).objet)).tableau)[i][j]                                  (*s_copie_argument_3).objet)).tableau)[i][j]
Line 1043  instruction_col_plus(struct_processus *s Line 1041  instruction_col_plus(struct_processus *s
                 return;                  return;
             }              }
   
             if ((position < 1) || (position > ((signed long)              if ((position < 1) || (position > (*((struct_matrice *)
                     (*((struct_matrice *)                      (*s_copie_argument_3).objet)).nombre_colonnes + 1))
                     (*s_copie_argument_3).objet)).nombre_colonnes + 1)))  
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
                 {                  {
Line 1101  instruction_col_plus(struct_processus *s Line 1098  instruction_col_plus(struct_processus *s
                 for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)                  for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
                         .objet)).nombre_colonnes; j++)                          .objet)).nombre_colonnes; j++)
                 {                  {
                     if ((signed long) j == (position - 1))                      if (j == (position - 1))
                     {                      {
                         ((complex16 **) (*((struct_matrice *)                          ((complex16 **) (*((struct_matrice *)
                                 (*s_copie_argument_3).objet)).tableau)[i][j]                                  (*s_copie_argument_3).objet)).tableau)[i][j]
Line 1373  instruction_col_moins(struct_processus * Line 1370  instruction_col_moins(struct_processus *
         {          {
             position = (*((integer8 *) (*s_objet_argument_1).objet));              position = (*((integer8 *) (*s_objet_argument_1).objet));
   
             if ((position <= 0) || (position > (signed long)              if ((position <= 0) || (position > (*((struct_matrice *)
                     (*((struct_matrice *)  
                     (*s_copie_argument_2).objet)).nombre_colonnes))                      (*s_copie_argument_2).objet)).nombre_colonnes))
             {              {
                 if (variable_partagee == d_vrai)                  if (variable_partagee == d_vrai)
Removed from v.1.44  
changed lines
  Added in v.1.75

CVSweb interface <joel.bertrand@systella.fr>