rpl/src/instructions_p2.c - diff

Return to instructions_p2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_p2.c between versions 1.5 and 1.17.2.3

version 1.5, 2010/03/09 10:18:47	version 1.17.2.3, 2011/05/09 13:52:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.13	RPL/2 (R) version 4.0.24
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 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 38	Line 38
void	void
instruction_p_vers_r(struct_processus *s_etat_processus)	instruction_p_vers_r(struct_processus *s_etat_processus)
{	{
	double angle;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_precedent;	struct_liste_chainee *l_element_precedent;

Line 136 instruction_p_vers_r(struct_processus *s	Line 138 instruction_p_vers_r(struct_processus *s
return;	return;
}	}

	angle = (((struct_complexe16 ) (*s_objet_argument).objet))
	.partie_imaginaire;

if (test_cfsf(s_etat_processus, 60) == d_faux)	if (test_cfsf(s_etat_processus, 60) == d_faux)
{	{
conversion_degres_vers_radians(&((((struct_complexe16 )	conversion_degres_vers_radians(&angle);
(*s_objet_argument).objet)).partie_imaginaire));
}	}

(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * cos((((struct_complexe16 )	.partie_reelle * cos(angle);
(*s_objet_argument).objet)).partie_imaginaire);
(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * sin((((struct_complexe16 )	.partie_reelle * sin(angle);
(*s_objet_argument).objet)).partie_imaginaire);
}	}

/*	/*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.5
changed lines
	Added in v.1.17.2.3