rpl/src/instructions_w1.c - diff

Return to instructions_w1.c CVS log

Up to [local] / rpl / src

-version 1.55, 2011/12/05 17:45:01
+version 1.56, 2011/12/06 13:27:14
  Line 1328  instruction_write(struct_processus *s_et
              {
                  BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
+                 if ((*s_objet_argument_2).type != LST)
+                 {
+                     liberation(s_etat_processus, s_objet_argument_2);
+                     liberation(s_etat_processus, s_objet_argument_1);
+                     (*s_etat_processus).erreur_execution =
+                             d_ex_erreur_type_argument;
+                     return;
+                 }
+                 if ((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
+                         .donnee == NULL)
+                 {
+                     liberation(s_etat_processus, s_objet_argument_2);
+                     liberation(s_etat_processus, s_objet_argument_1);
+                     (*s_etat_processus).erreur_execution =
+                             d_ex_erreur_type_argument;
+                     return;
+                 }
                  if ((*((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
                          .donnee)).type != CHN)
                  {