rpl/src/instructions_f3.c - diff

Return to instructions_f3.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_f3.c between versions 1.23 and 1.24

-version 1.23, 2011/03/06 16:44:11
+version 1.24, 2011/03/12 15:32:03
  Line 148  instruction_format(struct_processus *s_e
      if (((*s_objet_argument_1).type == FCH) &&
              ((*s_objet_argument_2).type == LST))
      {
+         if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire
+                 == 'F')
+         {
+             liberation(s_etat_processus, s_objet_argument_1);
+             liberation(s_etat_processus, s_objet_argument_2);
+             (*s_etat_processus).erreur_execution =
+                     d_ex_erreur_format_fichier;
+             return;
+         }
          if ((s_copie_argument_1 = copie_objet(s_etat_processus,
                  s_objet_argument_1, 'N')) == NULL)
          {
- Line 167  instruction_format(struct_processus *s_e
+ Line 178  instruction_format(struct_processus *s_e
      else if (((*s_objet_argument_1).type == SCK) &&
              ((*s_objet_argument_2).type == LST))
      {
+         if ((*((struct_socket *) (*s_objet_argument_1).objet)).binaire
+                 == 'F')
+         {
+             liberation(s_etat_processus, s_objet_argument_1);
+             liberation(s_etat_processus, s_objet_argument_2);
+             (*s_etat_processus).erreur_execution =
+                     d_ex_erreur_format_fichier;
+             return;
+         }
          if ((s_copie_argument_1 = copie_objet(s_etat_processus,
                  s_objet_argument_1, 'N')) == NULL)
          {

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.23
changed lines
	Added in v.1.24