version 1.45, 2013/03/16 11:31:41
|
version 1.60, 2016/03/01 22:12:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.25 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 325 instruction_hms_plus(struct_processus *s
|
Line 325 instruction_hms_plus(struct_processus *s
|
return; |
return; |
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) |
(*s_objet_argument_2).objet)) + (*((real8 *) |
(*s_objet_argument_2).objet))) + (*((real8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet)); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
Line 344 instruction_hms_plus(struct_processus *s
|
Line 344 instruction_hms_plus(struct_processus *s
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*s_objet_argument_2).objet)) + (*((integer8 *) |
(*s_objet_argument_2).objet)) + ((real8) (*((integer8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet))); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
} |
} |
Line 526 instruction_hms_moins(struct_processus *
|
Line 526 instruction_hms_moins(struct_processus *
|
return; |
return; |
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) |
(*s_objet_argument_2).objet)) - (*((real8 *) |
(*s_objet_argument_2).objet))) - (*((real8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet)); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
Line 545 instruction_hms_moins(struct_processus *
|
Line 545 instruction_hms_moins(struct_processus *
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*s_objet_argument_2).objet)) - (*((integer8 *) |
(*s_objet_argument_2).objet)) - ((real8) (*((integer8 *) |
(*s_objet_argument_1).objet)); |
(*s_objet_argument_1).objet))); |
|
|
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
conversion_decimal_vers_hms((real8 *) (*s_objet_resultat).objet); |
} |
} |