From ed5e587cf1e2f1f8134820125a31320c64c51244 Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Wed, 3 May 2000 05:03:26 +0000
Subject: [PATCH]  Support named for in VPI.

---
 vvm/vpi_scope.c | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/vvm/vpi_scope.c b/vvm/vpi_scope.c
index c9b8f9b36..c5da6adeb 100644
--- a/vvm/vpi_scope.c
+++ b/vvm/vpi_scope.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT) && !defined(macintosh)
-#ident "$Id: vpi_scope.c,v 1.6 2000/03/08 04:36:54 steve Exp $"
+#ident "$Id: vpi_scope.c,v 1.7 2000/05/03 05:03:26 steve Exp $"
 #endif
 
 # include  "vpi_priv.h"
@@ -77,6 +77,16 @@ static const struct __vpirt vpip_named_begin_rt = {
       module_iter
 };
 
+static const struct __vpirt vpip_named_fork_rt = {
+      vpiNamedFork,
+      0,
+      0,
+      0,
+      0,
+      0,
+      module_iter
+};
+
 vpiHandle vpip_make_scope(struct __vpiScope*ref, int type, const char*name)
 {
       ref->intern = 0;
@@ -89,6 +99,9 @@ vpiHandle vpip_make_scope(struct __vpiScope*ref, int type, const char*name)
 	  case vpiNamedBegin:
 	    ref->base.vpi_type = &vpip_named_begin_rt;
 	    break;
+	  case vpiNamedFork:
+	    ref->base.vpi_type = &vpip_named_fork_rt;
+	    break;
 	  case vpiTask:
 	    ref->base.vpi_type = &vpip_task_rt;
 	    break;
@@ -116,6 +129,9 @@ void vpip_attach_to_scope(struct __vpiScope*ref, vpiHandle obj)
 
 /*
  * $Log: vpi_scope.c,v $
+ * Revision 1.7  2000/05/03 05:03:26  steve
+ *  Support named for in VPI.
+ *
  * Revision 1.6  2000/03/08 04:36:54  steve
  *  Redesign the implementation of scopes and parameters.
  *  I now generate the scopes and notice the parameters