version 1.41, 2015/08/05 00:59:05 |
version 1.43, 2015/08/17 05:18:35 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox.c,v 1.40 2015/08/04 10:19:31 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox.c,v 1.42 2015/08/13 00:49:57 noro Exp $ */ |
|
|
/* |
/* |
This module includes functions for sending/receiveng CMO's. |
This module includes functions for sending/receiveng CMO's. |
Line 781 UL64 receive_int64(OXFILE *oxfp) |
|
Line 781 UL64 receive_int64(OXFILE *oxfp) |
|
static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
{ |
{ |
int sgn,prec,len,i; |
int sgn,prec,len,i; |
long *ptr; |
unsigned int hi,lo; |
|
unsigned long *ptr; |
L64 exp; |
L64 exp; |
|
|
sgn = receive_int32(oxfp); |
sgn = receive_int32(oxfp); |
prec = receive_int32(oxfp); |
prec = receive_int32(oxfp); |
exp = receive_int64(oxfp); |
exp = receive_int64(oxfp); |
/* len = length as an int array (int = 4bytes) */ |
/* len = length as an int array (int = 4bytes) */ |
len = receive_int32(oxfp); |
len = receive_int32(oxfp); |
|
|
Line 798 static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
|
Line 799 static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
|
for ( i = 0; i < len; i++ ) |
for ( i = 0; i < len; i++ ) |
ptr[i] = receive_int32(oxfp); |
ptr[i] = receive_int32(oxfp); |
#else |
#else |
len >>= 1; |
if ( len%2 ) { |
for ( i = 0; i < len; i++ ) |
hi = receive_int32(oxfp); |
ptr[i] = receive_int64(oxfp); |
ptr[0] = (((UL64)hi)<<32); |
|
i = 1; |
|
} else |
|
i = 0; |
|
len = (len+1)/2; |
|
for ( ; i < len; i ++ ) { |
|
lo = (unsigned int)receive_int32(oxfp); |
|
hi = (unsigned int)receive_int32(oxfp); |
|
ptr[i] = (((UL64)hi)<<32)|((UL64)lo); |
|
} |
#endif |
#endif |
} |
} |
|
|
static int send_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
static int send_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
{ |
{ |
|
|
int i,len; |
int i,len,t; |
long *ptr; |
unsigned long *ptr; |
|
UL64 uexp; |
|
|
send_int32(oxfp, MPFR_SIGN(mpfr)); |
send_int32(oxfp, MPFR_SIGN(mpfr)); |
send_int32(oxfp, MPFR_PREC(mpfr)); |
send_int32(oxfp, MPFR_PREC(mpfr)); |
Line 820 static int send_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
|
Line 831 static int send_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
|
for ( i = 0; i < len; i++ ) |
for ( i = 0; i < len; i++ ) |
send_int32(oxfp,ptr[i]); |
send_int32(oxfp,ptr[i]); |
#else /* SIZEOF_LONG==8 */ |
#else /* SIZEOF_LONG==8 */ |
send_int32(oxfp, 2*len); |
t = (MPFR_PREC(mpfr)+31)/32; |
for ( i = 0; i < len; i++ ) |
send_int32(oxfp, t); |
send_int64(oxfp,ptr[i]); |
if ( t%2 ) { |
|
send_int32(oxfp,(unsigned int)(ptr[0]>>32)); |
|
i = 1; |
|
} else |
|
i = 0; |
|
t = (t+1)/2; |
|
for ( ; i < len; i++ ) { |
|
send_int32(oxfp,(unsigned int)(ptr[i]&0xffffffff)); |
|
send_int32(oxfp,(unsigned int)(ptr[i]>>32)); |
|
} |
#endif |
#endif |
return 0; |
return 0; |
} |
} |