rpl/src/instructions_h1.c - diff

Return to instructions_h1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_h1.c between versions 1.45 and 1.53

version 1.45, 2013/03/16 11:31:41	version 1.53, 2014/07/17 08:07:21
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.19
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2014 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);
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.45
changed lines
	Added in v.1.53