version 1.27, 2007/01/25 16:19:41 |
version 1.29, 2012/12/17 07:20:44 |
|
|
* 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.28 2009/02/06 08:58:28 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "version.h" |
#include "version.h" |
Line 190 void nglob_init() { |
|
Line 190 void nglob_init() { |
|
init_lprime(); |
init_lprime(); |
} |
} |
|
|
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 288 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]; |