rpl/src/instructions_s1.c - diff

Return to instructions_s1.c CVS log

Up to [local] / rpl / src

-version 1.3, 2010/02/10 10:14:24
+version 1.4, 2010/02/11 17:06:02
  Line 4378  instruction_sign(struct_processus *s_eta
              return;
          }
-         f77absc_((struct_complexe16 *) (*s_objet_argument).objet, &norme);
+         if (((*((struct_complexe16 *) (*s_objet_argument).objet)).partie_reelle
-         f77divisioncr_((struct_complexe16 *) (*s_objet_argument).objet,
+                 != 0) || ((*((struct_complexe16 *) (*s_objet_argument).objet))
-                 &norme, (struct_complexe16 *) (*s_objet_resultat).objet);
+                 .partie_imaginaire != 0))
+         {
+             f77absc_((struct_complexe16 *) (*s_objet_argument).objet, &norme);
+             f77divisioncr_((struct_complexe16 *) (*s_objet_argument).objet,
+                     &norme, (struct_complexe16 *) (*s_objet_resultat).objet);
+         }
+         else
+         {
+             (*((struct_complexe16 *) (*s_objet_argument).objet))
+                     .partie_reelle = 0;
+             (*((struct_complexe16 *) (*s_objet_argument).objet))
+                     .partie_imaginaire = 0;
+         }
      }
  /*