rpl/src/instructions_s1.c - diff

Return to instructions_s1.c CVS log

Up to [local] / rpl / src

version 1.1.1.1, 2010/01/26 15:22:45	version 1.6, 2010/03/09 10:18:48
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.0.13
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 4378 instruction_sign(struct_processus *s_eta	Line 4378 instruction_sign(struct_processus *s_eta
return;	return;
}	}

f77absc_((struct_complexe16 ) (s_objet_argument).objet, &norme);	if (((((struct_complexe16 ) (*s_objet_argument).objet)).partie_reelle
f77divisioncr_((struct_complexe16 ) (s_objet_argument).objet,	!= 0) \|\| ((((struct_complexe16 ) (*s_objet_argument).objet))
&norme, (struct_complexe16 ) (s_objet_resultat).objet);	.partie_imaginaire != 0))
	{
	f77absc_((struct_complexe16 ) (s_objet_argument).objet, &norme);
	f77divisioncr_((struct_complexe16 ) (s_objet_argument).objet,
	&norme, (struct_complexe16 ) (s_objet_resultat).objet);
	}
	else
	{
	(((struct_complexe16 ) (*s_objet_argument).objet))
	.partie_reelle = 0;
	(((struct_complexe16 ) (*s_objet_argument).objet))
	.partie_imaginaire = 0;
	}
}	}

/*	/*