version 1.3, 2000/08/22 05:04:00 |
version 1.5, 2005/11/12 08:13:13 |
|
|
* 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/builtin/time.c,v 1.2 2000/08/21 08:31:21 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/time.c,v 1.4 2005/11/12 08:10:56 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
Real re,rg,rr; |
Real re,rg,rr; |
NODE a,b,w,r; |
NODE a,b,w,r; |
Q words; |
Q words; |
int t; |
long t; |
|
int u,l; |
|
N n; |
double rtime; |
double rtime; |
double get_rtime(); |
double get_rtime(); |
|
|
rtime = get_rtime(); MKReal(rtime,rr); |
rtime = get_rtime(); MKReal(rtime,rr); |
t = get_allocwords(); STOQ(t,words); |
t = get_allocwords(); |
|
#if defined(LONG_IS_64BIT) |
|
u = t>>32; l = t&(0xffffffff); |
|
if ( !u ) STOQ(l,words); |
|
else { |
|
n = NALLOC(2); PL(n)=2; BD(n)[0] = l; BD(n)[1] = u; |
|
NTOQ(n,1,words); |
|
} |
|
#else |
|
STOQ(t,words); |
|
#endif |
get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg); |
get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg); |
MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a); |
MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a); |
MKLIST(*listp,b); |
MKLIST(*listp,b); |