Diff for /rpl/src/instructions_p2.c between versions 1.44 and 1.45

version 1.44, 2013/02/27 17:11:43 version 1.45, 2013/03/20 22:24:36
Line 112  instruction_p_vers_r(struct_processus *s Line 112  instruction_p_vers_r(struct_processus *s
         if ((*s_objet_argument).type == INT)          if ((*s_objet_argument).type == INT)
         {          {
             (*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_reelle              (*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_reelle
                     = (*((integer8 *) (*s_objet_argument).objet));                      = (real8) (*((integer8 *) (*s_objet_argument).objet));
         }          }
         else          else
         {          {
Line 389  instruction_put(struct_processus *s_etat Line 389  instruction_put(struct_processus *s_etat
     struct_objet                        *s_objet_4;      struct_objet                        *s_objet_4;
     struct_objet                        *s_objet_element;      struct_objet                        *s_objet_element;
   
     unsigned long                       i;      integer8                            i;
     unsigned long                       indice_i;      integer8                            indice_i;
     unsigned long                       indice_j;      integer8                            indice_j;
     unsigned long                       j;      integer8                            j;
     unsigned long                       nombre_dimensions;      integer8                            nombre_dimensions;
   
     void                                *tampon;      void                                *tampon;
   
Line 610  instruction_put(struct_processus *s_etat Line 610  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = VRL;                  (*s_objet_3).type = VRL;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille * sizeof(real8)))                          (*s_objet_3).objet)).taille) * sizeof(real8)))
                         == NULL)                          == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 645  instruction_put(struct_processus *s_etat Line 645  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = VCX;                  (*s_objet_3).type = VCX;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille *                          (*s_objet_3).objet)).taille) *
                         sizeof(struct_complexe16))) == NULL)                          sizeof(struct_complexe16))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 726  instruction_put(struct_processus *s_etat Line 726  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = VCX;                  (*s_objet_3).type = VCX;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille *                          (*s_objet_3).objet)).taille) *
                         sizeof(struct_complexe16))) == NULL)                          sizeof(struct_complexe16))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 969  instruction_put(struct_processus *s_etat Line 969  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = MRL;                  (*s_objet_3).type = MRL;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes * sizeof(real8 *)))                          (*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *)))
                         == NULL)                          == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 983  instruction_put(struct_processus *s_etat Line 983  instruction_put(struct_processus *s_etat
                 {                  {
                     if ((((real8 **) (*((struct_matrice *)                      if ((((real8 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(real8))) == NULL)                              sizeof(real8))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 1022  instruction_put(struct_processus *s_etat Line 1022  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = MCX;                  (*s_objet_3).type = MCX;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes *                          (*s_objet_3).objet)).nombre_lignes) *
                         sizeof(struct_complexe16 *))) == NULL)                          sizeof(struct_complexe16 *))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 1036  instruction_put(struct_processus *s_etat Line 1036  instruction_put(struct_processus *s_etat
                 {                  {
                     if ((((struct_complexe16 **) (*((struct_matrice *)                      if ((((struct_complexe16 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 1122  instruction_put(struct_processus *s_etat Line 1122  instruction_put(struct_processus *s_etat
                 (*s_objet_3).type = MCX;                  (*s_objet_3).type = MCX;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes *                          (*s_objet_3).objet)).nombre_lignes) *
                         sizeof(struct_complexe16 *))) == NULL)                          sizeof(struct_complexe16 *))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 1136  instruction_put(struct_processus *s_etat Line 1136  instruction_put(struct_processus *s_etat
                 {                  {
                     if ((((struct_complexe16 **) (*((struct_matrice *)                      if ((((struct_complexe16 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 1646  instruction_put(struct_processus *s_etat Line 1646  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = VRL;                      (*s_objet_4).type = VRL;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille * sizeof(real8)))                              (*s_objet_4).objet)).taille) * sizeof(real8)))
                             == NULL)                              == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 1694  instruction_put(struct_processus *s_etat Line 1694  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = VCX;                      (*s_objet_4).type = VCX;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille *                              (*s_objet_4).objet)).taille) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 1799  instruction_put(struct_processus *s_etat Line 1799  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = VCX;                      (*s_objet_4).type = VCX;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille *                              (*s_objet_4).objet)).taille) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 2152  instruction_put(struct_processus *s_etat Line 2152  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = MRL;                      (*s_objet_4).type = MRL;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(real8 *))) == NULL)                              sizeof(real8 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 2178  instruction_put(struct_processus *s_etat Line 2178  instruction_put(struct_processus *s_etat
                     {                      {
                         if ((((real8 **) (*((struct_matrice *)                          if ((((real8 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(real8))) == NULL)                                  sizeof(real8))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)
Line 2229  instruction_put(struct_processus *s_etat Line 2229  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = MCX;                      (*s_objet_4).type = MCX;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(struct_complexe16 *))) == NULL)                              sizeof(struct_complexe16 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 2255  instruction_put(struct_processus *s_etat Line 2255  instruction_put(struct_processus *s_etat
                     {                      {
                         if ((((struct_complexe16 **) (*((struct_matrice *)                          if ((((struct_complexe16 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(struct_complexe16))) == NULL)                                  sizeof(struct_complexe16))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)
Line 2366  instruction_put(struct_processus *s_etat Line 2366  instruction_put(struct_processus *s_etat
                     (*s_objet_4).type = MCX;                      (*s_objet_4).type = MCX;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(struct_complexe16 *))) == NULL)                              sizeof(struct_complexe16 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 2392  instruction_put(struct_processus *s_etat Line 2392  instruction_put(struct_processus *s_etat
                     {                      {
                         if ((((struct_complexe16 **) (*((struct_matrice *)                          if ((((struct_complexe16 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(struct_complexe16))) == NULL)                                  sizeof(struct_complexe16))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)
Line 2907  instruction_puti(struct_processus *s_eta Line 2907  instruction_puti(struct_processus *s_eta
     struct_objet                        *s_objet_3;      struct_objet                        *s_objet_3;
     struct_objet                        *s_objet_4;      struct_objet                        *s_objet_4;
   
     unsigned long                       i;      integer8                            i;
     unsigned long                       indice_i;      integer8                            indice_i;
     unsigned long                       indice_j;      integer8                            indice_j;
     unsigned long                       j;      integer8                            j;
     unsigned long                       nombre_dimensions;      integer8                            nombre_dimensions;
     unsigned long                       nombre_elements;      integer8                            nombre_elements;
   
     void                                *tampon;      void                                *tampon;
   
Line 3118  instruction_puti(struct_processus *s_eta Line 3118  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = VRL;                  (*s_objet_3).type = VRL;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille * sizeof(real8)))                          (*s_objet_3).objet)).taille) * sizeof(real8)))
                         == NULL)                          == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3153  instruction_puti(struct_processus *s_eta Line 3153  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = VCX;                  (*s_objet_3).type = VCX;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille *                          (*s_objet_3).objet)).taille) *
                         sizeof(struct_complexe16))) == NULL)                          sizeof(struct_complexe16))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3234  instruction_puti(struct_processus *s_eta Line 3234  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = VCX;                  (*s_objet_3).type = VCX;
   
                 if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau                  if (((*((struct_vecteur *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_vecteur *)                          = malloc(((size_t) (*((struct_vecteur *)
                         (*s_objet_3).objet)).taille *                          (*s_objet_3).objet)).taille) *
                         sizeof(struct_complexe16))) == NULL)                          sizeof(struct_complexe16))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3486  instruction_puti(struct_processus *s_eta Line 3486  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = MRL;                  (*s_objet_3).type = MRL;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes * sizeof(real8 *)))                          (*s_objet_3).objet)).nombre_lignes) * sizeof(real8 *)))
                         == NULL)                          == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3500  instruction_puti(struct_processus *s_eta Line 3500  instruction_puti(struct_processus *s_eta
                 {                  {
                     if ((((real8 **) (*((struct_matrice *)                      if ((((real8 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(real8))) == NULL)                              sizeof(real8))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 3539  instruction_puti(struct_processus *s_eta Line 3539  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = MCX;                  (*s_objet_3).type = MCX;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes *                          (*s_objet_3).objet)).nombre_lignes) *
                         sizeof(struct_complexe16 *))) == NULL)                          sizeof(struct_complexe16 *))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3553  instruction_puti(struct_processus *s_eta Line 3553  instruction_puti(struct_processus *s_eta
                 {                  {
                     if ((((struct_complexe16 **) (*((struct_matrice *)                      if ((((struct_complexe16 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 3639  instruction_puti(struct_processus *s_eta Line 3639  instruction_puti(struct_processus *s_eta
                 (*s_objet_3).type = MCX;                  (*s_objet_3).type = MCX;
   
                 if (((*((struct_matrice *) (*s_objet_3).objet)).tableau                  if (((*((struct_matrice *) (*s_objet_3).objet)).tableau
                         = malloc((*((struct_matrice *)                          = malloc(((size_t) (*((struct_matrice *)
                         (*s_objet_3).objet)).nombre_lignes *                          (*s_objet_3).objet)).nombre_lignes) *
                         sizeof(struct_complexe16 *))) == NULL)                          sizeof(struct_complexe16 *))) == NULL)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 3653  instruction_puti(struct_processus *s_eta Line 3653  instruction_puti(struct_processus *s_eta
                 {                  {
                     if ((((struct_complexe16 **) (*((struct_matrice *)                      if ((((struct_complexe16 **) (*((struct_matrice *)
                             (*s_objet_3).objet)).tableau)[i]                              (*s_objet_3).objet)).tableau)[i]
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_3).objet)).nombre_colonnes *                              (*s_objet_3).objet)).nombre_colonnes) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
Line 4113  instruction_puti(struct_processus *s_eta Line 4113  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = VRL;                      (*s_objet_4).type = VRL;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille * sizeof(real8)))                              (*s_objet_4).objet)).taille) * sizeof(real8)))
                             == NULL)                              == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4161  instruction_puti(struct_processus *s_eta Line 4161  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = VCX;                      (*s_objet_4).type = VCX;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille *                              (*s_objet_4).objet)).taille) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4266  instruction_puti(struct_processus *s_eta Line 4266  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = VCX;                      (*s_objet_4).type = VCX;
   
                     if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau                      if (((*((struct_vecteur *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_vecteur *)                              = malloc(((size_t) (*((struct_vecteur *)
                             (*s_objet_4).objet)).taille *                              (*s_objet_4).objet)).taille) *
                             sizeof(struct_complexe16))) == NULL)                              sizeof(struct_complexe16))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4624  instruction_puti(struct_processus *s_eta Line 4624  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = MRL;                      (*s_objet_4).type = MRL;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(real8 *))) == NULL)                              sizeof(real8 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4650  instruction_puti(struct_processus *s_eta Line 4650  instruction_puti(struct_processus *s_eta
                     {                      {
                         if ((((real8 **) (*((struct_matrice *)                          if ((((real8 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(real8))) == NULL)                                  sizeof(real8))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)
Line 4701  instruction_puti(struct_processus *s_eta Line 4701  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = MCX;                      (*s_objet_4).type = MCX;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(struct_complexe16 *))) == NULL)                              sizeof(struct_complexe16 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4727  instruction_puti(struct_processus *s_eta Line 4727  instruction_puti(struct_processus *s_eta
                     {                      {
                         if ((((struct_complexe16 **) (*((struct_matrice *)                          if ((((struct_complexe16 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(struct_complexe16))) == NULL)                                  sizeof(struct_complexe16))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)
Line 4838  instruction_puti(struct_processus *s_eta Line 4838  instruction_puti(struct_processus *s_eta
                     (*s_objet_4).type = MCX;                      (*s_objet_4).type = MCX;
   
                     if (((*((struct_matrice *) (*s_objet_4).objet)).tableau                      if (((*((struct_matrice *) (*s_objet_4).objet)).tableau
                             = malloc((*((struct_matrice *)                              = malloc(((size_t) (*((struct_matrice *)
                             (*s_objet_4).objet)).nombre_lignes *                              (*s_objet_4).objet)).nombre_lignes) *
                             sizeof(struct_complexe16 *))) == NULL)                              sizeof(struct_complexe16 *))) == NULL)
                     {                      {
                         if (variable_partagee == d_vrai)                          if (variable_partagee == d_vrai)
Line 4864  instruction_puti(struct_processus *s_eta Line 4864  instruction_puti(struct_processus *s_eta
                     {                      {
                         if ((((struct_complexe16 **) (*((struct_matrice *)                          if ((((struct_complexe16 **) (*((struct_matrice *)
                                 (*s_objet_4).objet)).tableau)[i]                                  (*s_objet_4).objet)).tableau)[i]
                                 = malloc((*((struct_matrice *)                                  = malloc(((size_t) (*((struct_matrice *)
                                 (*s_objet_4).objet)).nombre_colonnes *                                  (*s_objet_4).objet)).nombre_colonnes) *
                                 sizeof(struct_complexe16))) == NULL)                                  sizeof(struct_complexe16))) == NULL)
                         {                          {
                             if (variable_partagee == d_vrai)                              if (variable_partagee == d_vrai)

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


CVSweb interface <joel.bertrand@systella.fr>