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.10 and 1.17.2.2

version 1.10, 2010/07/14 14:19:37	version 1.17.2.2, 2011/04/14 08:46:45
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.18	RPL/2 (R) version 4.0.23
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.10
changed lines
	Added in v.1.17.2.2