From 5840368f2de1a73e4e374bd8e2c0e4fb2c2245ea Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Fri, 11 Jan 2002 05:23:05 +0000
Subject: [PATCH]  Handle certain special cases of stime.

---
 tgt-vvp/eval_expr.c   | 7 ++++++-
 tgt-vvp/vvp_process.c | 7 ++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/tgt-vvp/eval_expr.c b/tgt-vvp/eval_expr.c
index 7e85489a1..c909a0bb4 100644
--- a/tgt-vvp/eval_expr.c
+++ b/tgt-vvp/eval_expr.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: eval_expr.c,v 1.53 2001/11/19 04:25:46 steve Exp $"
+#ident "$Id: eval_expr.c,v 1.54 2002/01/11 05:23:05 steve Exp $"
 #endif
 
 # include  "vvp_priv.h"
@@ -1109,6 +1109,8 @@ static struct vector_info draw_sfunc_expr(ivl_expr_t exp, unsigned wid)
 		case IVL_EX_SFUNC:
 		  if (strcmp("$time", ivl_expr_name(expr)) == 0)
 			fprintf(vvp_out, ", $time");
+		  else if (strcmp("$stime", ivl_expr_name(expr)) == 0)
+			fprintf(vvp_out, ", $stime");
 		  else
 			fprintf(vvp_out, ", ?");
 		  continue;
@@ -1448,6 +1450,9 @@ struct vector_info draw_eval_expr(ivl_expr_t exp)
 
 /*
  * $Log: eval_expr.c,v $
+ * Revision 1.54  2002/01/11 05:23:05  steve
+ *  Handle certain special cases of stime.
+ *
  * Revision 1.53  2001/11/19 04:25:46  steve
  *  Handle padding out of logical values.
  *
diff --git a/tgt-vvp/vvp_process.c b/tgt-vvp/vvp_process.c
index 17c7b2507..12f1019c0 100644
--- a/tgt-vvp/vvp_process.c
+++ b/tgt-vvp/vvp_process.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: vvp_process.c,v 1.51 2001/12/05 05:41:20 steve Exp $"
+#ident "$Id: vvp_process.c,v 1.52 2002/01/11 05:23:05 steve Exp $"
 #endif
 
 # include  "vvp_priv.h"
@@ -877,6 +877,8 @@ static int show_system_task_call(ivl_statement_t net)
 		case IVL_EX_SFUNC:
 		  if (strcmp("$time", ivl_expr_name(expr)) == 0)
 			fprintf(vvp_out, ", $time");
+		  else if (strcmp("$stime", ivl_expr_name(expr)) == 0)
+			fprintf(vvp_out, ", $time");
 		  else
 			fprintf(vvp_out, ", ?");
 		  continue;
@@ -1100,6 +1102,9 @@ int draw_func_definition(ivl_scope_t scope)
 
 /*
  * $Log: vvp_process.c,v $
+ * Revision 1.52  2002/01/11 05:23:05  steve
+ *  Handle certain special cases of stime.
+ *
  * Revision 1.51  2001/12/05 05:41:20  steve
  *  Make sure fork labels are globally unique.
  *