version 1.39, 2012/08/22 10:47:16
|
version 1.45, 2013/03/16 11:31:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.10 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 480 instruction_hms_moins(struct_processus *
|
Line 480 instruction_hms_moins(struct_processus *
|
if (((*s_objet_argument_1).type == INT) && |
if (((*s_objet_argument_1).type == INT) && |
((*s_objet_argument_2).type == INT)) |
((*s_objet_argument_2).type == INT)) |
{ |
{ |
(*((integer8 *) (*s_objet_argument_1).objet)) = |
if (depassement_soustraction((integer8 *) (*s_objet_argument_2).objet, |
-(*((integer8 *) (*s_objet_argument_1).objet)); |
(integer8 *) (*s_objet_argument_1).objet, &tampon) == |
|
|
if (depassement_addition((integer8 *) (*s_objet_argument_1).objet, |
|
(integer8 *) (*s_objet_argument_2).objet, &tampon) == |
|
d_absence_erreur) |
d_absence_erreur) |
{ |
{ |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
Line 506 instruction_hms_moins(struct_processus *
|
Line 503 instruction_hms_moins(struct_processus *
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(*((integer8 *) (*s_objet_argument_1).objet))) + ((real8) |
(*((integer8 *) (*s_objet_argument_2).objet))) - ((real8) |
(*((integer8 *) (*s_objet_argument_2).objet))); |
(*((integer8 *) (*s_objet_argument_1).objet))); |
} |
} |
} |
} |
|
|