version 1.27, 2007/01/25 16:19:41 |
version 1.33, 2015/08/04 06:20:45 |
|
|
* 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.26 2006/02/25 06:33:31 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.32 2014/09/19 01:26:00 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
#include "parse.h" |
#include "version.h" |
#include "version.h" |
#include "prime.h" |
#include "prime.h" |
|
|
|
|
USINT VOIDobj = &oVOID; |
USINT VOIDobj = &oVOID; |
|
|
int bigfloat; |
int bigfloat; |
|
int evalef = 0; |
int nez = 1; |
int nez = 1; |
int current_mod = 0; |
int current_mod = 0; |
int StrassenSize = 0; |
int StrassenSize = 0; |
Line 90 int Itvplot = 33; |
|
Line 92 int Itvplot = 33; |
|
static int *lprime; |
static int *lprime; |
static int lprime_size; |
static int lprime_size; |
|
|
#if defined(PARI) |
|
int paristack = 1<<16; |
|
#define ADDBF addbf |
#define ADDBF addbf |
#define SUBBF subbf |
#define SUBBF subbf |
#define MULBF mulbf |
#define MULBF mulbf |
Line 99 int paristack = 1<<16; |
|
Line 99 int paristack = 1<<16; |
|
#define PWRBF pwrbf |
#define PWRBF pwrbf |
#define CHSGNBF chsgnbf |
#define CHSGNBF chsgnbf |
#define CMPBF cmpbf |
#define CMPBF cmpbf |
# else |
|
#define ADDBF 0 |
|
#define SUBBF 0 |
|
#define MULBF 0 |
|
#define DIVBF 0 |
|
#define PWRBF 0 |
|
#define CHSGNBF 0 |
|
#define CMPBF 0 |
|
#endif |
|
|
|
#if defined(INTERVAL) |
#if defined(INTERVAL) |
int zerorewrite = 0; |
int zerorewrite = 0; |
Line 188 void nglob_init() { |
|
Line 179 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 287 void init_lprime() |
|
Line 280 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]; |