rpl/src/depassements.c - diff

Return to depassements.c CVS log

Up to [local] / rpl / src

version 1.43, 2013/03/16 11:45:07	version 1.57, 2015/09/18 13:41:09
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.23
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

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

Line 190 depassement_puissance(integer8 *a, integ	Line 190 depassement_puissance(integer8 *a, integ

logical1 depassement;	logical1 depassement;

unsigned_integer8 r;	integer8 r;

if ((*b) < 0)	if ((*b) < 0)
{	{
Line 200 depassement_puissance(integer8 *a, integ	Line 200 depassement_puissance(integer8 *a, integ

if ((-1 <= (a)) && ((a) <= 1))	if ((-1 <= (a)) && ((a) <= 1))
{	{
r = abs((*a));

if ((*a) == 0)	if ((*a) == 0)
{	{
(*resultat) = 0;	(*resultat) = 0;
Line 222 depassement_puissance(integer8 *a, integ	Line 220 depassement_puissance(integer8 *a, integ
}	}

depassement = d_faux;	depassement = d_faux;
	r = 1;

for(i = 0; i < (*b); i++)	for(i = 0; i < (*b); i++)
{	{
Line 239 depassement_puissance(integer8 *a, integ	Line 238 depassement_puissance(integer8 *a, integ
}	}
else	else
{	{
f77puissanceii_(a, b, resultat);	(*resultat) = r;
return(d_absence_erreur);	return(d_absence_erreur);
}	}
}	}