[BACK]Return to instructions_a1.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/instructions_a1.c between versions 1.42 and 1.43

version 1.42, 2013/02/27 17:11:41 version 1.43, 2013/03/16 11:31:41
Line 865  instruction_abs(struct_processus *s_etat Line 865  instruction_abs(struct_processus *s_etat
   
     if ((*s_objet_argument).type == INT)      if ((*s_objet_argument).type == INT)
     {      {
         if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL)          if ((*((integer8 *) (*s_objet_argument).objet)) != INT64_MIN)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL)
             return;              {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return;
               }
   
               (*((integer8 *) (*s_objet_resultat).objet)) = abs((*((integer8 *)
                       (*s_objet_argument).objet)));
         }          }
           else
           {
               if ((s_objet_resultat = allocation(s_etat_processus, REL)) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return;
               }
   
         (*((integer8 *) (*s_objet_resultat).objet)) = abs((*((integer8 *)              (*((real8 *) (*s_objet_resultat).objet)) = abs((real8)
                 (*s_objet_argument).objet)));                      ((*((integer8 *) (*s_objet_argument).objet))));
           }
     }      }
   
 /*  /*
Removed from v.1.42  
changed lines
  Added in v.1.43

CVSweb interface <joel.bertrand@systella.fr>