rpl/src/instructions_a2.c - diff

Return to instructions_a2.c CVS log

Up to [local] / rpl / src

version 1.6, 2010/04/07 13:45:04	version 1.60, 2018/05/30 09:27:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.14	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 438 instruction_acosh(struct_processus *s_et	Line 438 instruction_acosh(struct_processus *s_et
{	{
if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
argument = (((integer8 ) (*s_objet_argument).objet));	argument = (real8) (((integer8 ) (*s_objet_argument).objet));
}	}
else	else
{	{
Line 807 instruction_atanh(struct_processus *s_et	Line 807 instruction_atanh(struct_processus *s_et
{	{
if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
argument = (((integer8 ) (*s_objet_argument).objet));	argument = (real8) (((integer8 ) (*s_objet_argument).objet));
}	}
else	else
{	{