rpl/src/evaluation.c - diff

Return to evaluation.c CVS log

Up to [local] / rpl / src

-version 1.4, 2010/02/05 19:02:56
+version 1.5, 2010/02/08 19:26:32
  Line 3171  evaluation(struct_processus *s_etat_proc
                      registre_test_2 = (*s_etat_processus).test_instruction;
                      (*s_etat_processus).test_instruction = 'N';
+                     registre_type_evaluation = (test_cfsf(s_etat_processus, 35)
+                             == d_vrai) ? 'E' : 'N';
+                     if (type_evaluation == 'N')
+                     {
+                         cf(s_etat_processus, 35);
+                     }
+                     else
+                     {
+                         sf(s_etat_processus, 35);
+                     }
                      analyse(s_etat_processus, NULL);
+                     if (registre_type_evaluation == 'E')
+                     {
+                         sf(s_etat_processus, 35);
+                     }
+                     else
+                     {
+                         cf(s_etat_processus, 35);
+                     }
                      (*s_etat_processus).test_instruction = registre_test_2;
                      if ((*s_etat_processus).erreur_systeme != d_es)