version 1.26, 2006/02/25 06:33:31 |
version 1.31, 2013/12/20 02:02:24 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.25 2006/02/13 11:41:11 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.30 2013/06/13 18:40:31 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
#include "parse.h" |
#include "version.h" |
#include "version.h" |
#include "prime.h" |
#include "prime.h" |
|
|
|
|
int current_mod = 0; |
int current_mod = 0; |
int StrassenSize = 0; |
int StrassenSize = 0; |
int outputstyle = 0; |
int outputstyle = 0; |
|
int Itvplot = 33; |
|
|
static int *lprime; |
static int *lprime; |
static int lprime_size; |
static int lprime_size; |
Line 187 void nglob_init() { |
|
Line 189 void nglob_init() { |
|
init_up2_tab(); |
init_up2_tab(); |
|
|
init_lprime(); |
init_lprime(); |
|
init_gmpq(); |
} |
} |
|
|
extern double gctime; |
extern double GC_get_gctime(); |
double suspend_start; |
double suspend_start; |
double suspended_time=0; |
double suspended_time=0; |
|
|
void get_eg(struct oEGT *p) |
void get_eg(struct oEGT *p) |
{ |
{ |
|
double gctime = GC_get_gctime(); |
p->exectime = get_clock() - gctime - suspended_time; p->gctime = gctime; |
p->exectime = get_clock() - gctime - suspended_time; p->gctime = gctime; |
} |
} |
|
|
Line 286 void init_lprime() |
|
Line 290 void init_lprime() |
|
int s,i; |
int s,i; |
|
|
s = sizeof(lprime_init); |
s = sizeof(lprime_init); |
lprime = (int *)GC_malloc_atomic(s); |
lprime = (int *)MALLOC_ATOMIC(s); |
lprime_size = s/sizeof(int); |
lprime_size = s/sizeof(int); |
for ( i = 0; i < lprime_size; i++ ) |
for ( i = 0; i < lprime_size; i++ ) |
lprime[i] = lprime_init[lprime_size-i-1]; |
lprime[i] = lprime_init[lprime_size-i-1]; |