version 1.257, 2010/12/31 18:09:02
|
version 1.260, 2011/11/21 19:05:01
|
Line 1804 if (a_addr1==NULL)
|
Line 1804 if (a_addr1==NULL)
|
else |
else |
a_addr2 = (Cell *)realloc(a_addr1, u); |
a_addr2 = (Cell *)realloc(a_addr1, u); |
wior = IOR(a_addr2==NULL); /* !! Define a return code */ |
wior = IOR(a_addr2==NULL); /* !! Define a return code */ |
|
if (a_addr2==NULL) |
|
a_addr2 = a_addr1; |
|
|
strerror ( n -- c_addr u ) gforth |
strerror ( n -- c_addr u ) gforth |
c_addr = (Char *)strerror(n); |
c_addr = (Char *)strerror(n); |
Line 2031 duser = timeval2us(&time1);
|
Line 2033 duser = timeval2us(&time1);
|
dsystem = DZERO; |
dsystem = DZERO; |
#endif |
#endif |
|
|
|
ntime ( -- dtime ) gforth |
|
""Report the current time in nanoseconds since some epoch."" |
|
struct timespec time1; |
|
clock_gettime(CLOCK_REALTIME,&time1); |
|
dtime = timespec2ns(&time1); |
|
|
\+ |
\+ |
|
|
\+floating |
\+floating |