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)))); |
|
} |
} |
} |
|
|
/* |
/* |