OpenXM_contrib2/asir2000/engine/up_gfpn.c - diff

Return to up_gfpn.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.7, 2015/08/08 14:19:41

version 1.8, 2015/08/14 13:51:55

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/up_gfpn.c,v 1.6 2015/08/06 10:01:52 fujimoto Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/up_gfpn.c,v 1.7 2015/08/08 14:19:41 fujimoto Exp $

#include "ca.h"

#include <math.h>

Line 273 UP *r;

for ( j = 0; j <= d; j++ ) {

#if 1

a = (UL)floor(k[j]);

#if defined(i386) || defined(__alpha) || defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) || defined(__x86_64)

#if defined(i386) || defined(__alpha) || defined(VISUAL) || defined(__MINGW32__) || defined(__x86_64)

au = ((unsigned int *)&a)[1];

al = ((unsigned int *)&a)[0];

#else

Line 514 UP *tab;

for ( i = 2; i < d; i++ ) {

if ( debug_up ){

fprintf(stderr,".");

#if defined(__MINGW32__) || defined(__MINGW64__)

fflush(stderr);

#endif

}

hybrid_mulup(FF_GFP,tab[i-1],xp,&t);

hybrid_rembymulup_special(FF_GFP,t,f,invf,&tab[i]);

Line 545 UP *tab;

Line 542 UP *tab;