From 31fd29c29b77d7071b2e800647c249742f342128 Mon Sep 17 00:00:00 2001
From: Frederic Petrot <alliance-cvs@asim.lip6.fr>
Date: Wed, 12 Jun 2002 16:10:05 +0000
Subject: [PATCH] Bug due to the believe that a signal connected to a connector
 has the name of this connector corrected.

---
 alliance/src/mbkvhdlg/src/vel_drive.c | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/alliance/src/mbkvhdlg/src/vel_drive.c b/alliance/src/mbkvhdlg/src/vel_drive.c
index 6827f3b5..d748f969 100644
--- a/alliance/src/mbkvhdlg/src/vel_drive.c
+++ b/alliance/src/mbkvhdlg/src/vel_drive.c
@@ -10,8 +10,12 @@
 /* ###--------------------------------------------------------------------### */
 /*
  * $Log: vel_drive.c,v $
- * Revision 1.1  2002/04/26 09:51:07  ludo
- * Initial revision
+ * Revision 1.2  2002/06/12 16:10:05  fred
+ * Bug due to the believe that a signal connected to a connector has the
+ * name of this connector corrected.
+ *
+ * Revision 1.1.1.1  2002/04/26 09:51:07  ludo
+ * Mise a plat de mbkvhdlg
  *
  * Revision 1.2  2002/04/16 07:24:51  fred
  * Adding modifications to handle limited generics in VHDL files.
@@ -59,7 +63,7 @@
  *
  */
 
-#ident "$Id: vel_drive.c,v 1.1 2002/04/26 09:51:07 ludo Exp $"
+#ident "$Id: vel_drive.c,v 1.2 2002/06/12 16:10:05 fred Exp $"
 
 #include <stdio.h>
 #include <string.h>
@@ -592,6 +596,17 @@ loins_list *i;
 /* #   mode = 2 : it drives a vhdl netlist (vhd) adding signals             # */
 /* #              to concatenate                                            # */
 /* ###--------------------------------------------------------------------### */
+static void cleanuplofig(lofig_list *f)
+{
+locon_list *c;
+chain_list *n;
+
+    for (c = f->LOCON; c != NULL; c = c->NEXT) {
+        n = addchain(NULL, c->NAME);
+        freechain(c->SIG->NAMECHAIN);
+        c->SIG->NAMECHAIN = n;
+    }
+}
 
 int vhdlsavevelofig(lofig_list *f, int mode)
 {
@@ -602,6 +617,7 @@ velosig *s;
 chain_list *ch;
 long index, signalSize;
 
+   cleanuplofig(f);
    makevelofig(f);
 
    p=getptype(f->USER, VEL_CON);