--- gforth/prim	2003/01/26 20:56:37	1.125
+++ gforth/prim	2003/05/18 18:27:44	1.130
@@ -1,6 +1,6 @@
 \ Gforth primitives
 
-\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -106,6 +106,10 @@
 \E set-current
 \E store-optimization on
 \E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump
+\E
+\E include-skipped-insts on \ static superinsts include cells for components
+\E                          \ useful for dynamic programming and
+\E                          \ superinsts across entry points
 
 \ 
 \ 
@@ -1490,6 +1494,12 @@ wior = IOR(wretval==-1);
 time&date	( -- nsec nmin nhour nday nmonth nyear )	facility-ext	time_and_date
 ""Report the current time of day. Seconds, minutes and hours are numbered from 0.
 Months are numbered from 1.""
+#if 1
+time_t now;
+struct tm *ltime;
+time(&now);
+ltime=localtime(&now);
+#else
 struct timeval time1;
 struct timezone zone1;
 struct tm *ltime;
@@ -1497,6 +1507,7 @@ gettimeofday(&time1,&zone1);
 /* !! Single Unix specification: 
    If tzp is not a null pointer, the behaviour is unspecified. */
 ltime=localtime((time_t *)&time1.tv_sec);
+#endif
 nyear =ltime->tm_year+1900;
 nmonth=ltime->tm_mon+1;
 nday  =ltime->tm_mday;
@@ -2264,6 +2275,12 @@ assert(0);
 
 \+
 
+\g static_super
+
+\C #if !defined(GFORTH_DEBUGGING) && !defined(INDIRECT_THREADED) && !defined(DOUBLY_INDIRECT) && !defined(VM_PROFILING)
+
 include(peeprules.vmg)
 
+\C #endif
+
 \g end