version 1.39, 2015/08/04 07:41:49 |
version 1.41, 2015/08/05 00:59:05 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox.c,v 1.38 2015/08/04 05:24:44 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox.c,v 1.40 2015/08/04 10:19:31 noro Exp $ */ |
|
|
/* |
/* |
This module includes functions for sending/receiveng CMO's. |
This module includes functions for sending/receiveng CMO's. |
Line 767 static int send_mpz(OXFILE *oxfp, mpz_ptr mpz) |
|
Line 767 static int send_mpz(OXFILE *oxfp, mpz_ptr mpz) |
|
return 0; |
return 0; |
} |
} |
|
|
void send_int64(OXFILE *oxfp,UL64 a) |
int send_int64(OXFILE *oxfp,UL64 a) |
{ |
{ |
send_int32(oxfp, a>>32); |
return oxfp->send_double(oxfp,((double *)&a)[0]); |
send_int32(oxfp, a&0xffffffff); |
|
} |
} |
|
|
UL64 receive_int64(OXFILE *oxfp) |
UL64 receive_int64(OXFILE *oxfp) |
{ |
{ |
UL64 u,l; |
double d = receive_double(oxfp); |
|
return ((UL64 *)&d)[0]; |
u = receive_int32(oxfp); |
|
l = receive_int32(oxfp); |
|
return (u<<32)|l; |
|
} |
} |
|
|
static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |
static void receive_mpfr(OXFILE *oxfp, mpfr_ptr mpfr) |