riscv
/
alliance
mirror of https://gitlab.lip6.fr/vlsi-eda/alliance.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Adding corrections to generate (hopefully) correct VHDL netlists with 

generics.
This commit is contained in:
Frederic Petrot 2002-12-12 14:49:49 +00:00
parent 96251e7f14
commit 89f44a0fda
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
alliance/src/mbkvhdlg/src/vel_drive.c
View File

@ -10,6 +10,10 @@
/* ###--------------------------------------------------------------------### */ /* ###--------------------------------------------------------------------### */
/* /*
* $Log: vel_drive.c,v $ * $Log: vel_drive.c,v $
* Revision 1.6 2002/12/12 14:49:49 fred
* Adding corrections to generate (hopefully) correct VHDL netlists with
* generics.
*
* Revision 1.5 2002/12/10 11:39:05 fred * Revision 1.5 2002/12/10 11:39:05 fred
* Adding correct generation of uncomplete vectors. * Adding correct generation of uncomplete vectors.
* *
@ -76,7 +80,7 @@
* *
*/ */
#ident "$Id: vel_drive.c,v 1.5 2002/12/10 11:39:05 fred Exp $" #ident "$Id: vel_drive.c,v 1.6 2002/12/12 14:49:49 fred Exp $"
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@ -436,6 +440,13 @@ int length, j;
{ {
logen_list *g; logen_list *g;
ptype_list *p; ptype_list *p;
loins_list *ins;
for (m=mod; m; m=m->NEXT) {
ins=(loins_list *)m->DATA;
if (ins->MODELNAME == i->MODELNAME)
break;
}
p=getptype(i->USER,LOGEN); p=getptype(i->USER,LOGEN);
if (p) { if (p) {
@ -622,8 +633,17 @@ int sigi = 0;
sigi = sigi > s->INDEX ? sigi : s->INDEX; sigi = sigi > s->INDEX ? sigi : s->INDEX;
if (s->TYPE == INTERNAL) { if (s->TYPE == INTERNAL) {
char *name = getsigname(s); char *name = getsigname(s);
freechain(s->NAMECHAIN); int i, t; /* This sucks and I'm not very proud of that, but really,
s->NAMECHAIN = addchain(NULL, mkvhdlname(name)); at least it should work */
for (t = 0, i = 0; name[i] != 0; i++)
if (name[i] == SEPAR) {
name[i]='_'; /* Shaaaaaaaame on meeeeeeeeee */
t = 1;
}
if (t) {
freechain(s->NAMECHAIN);
s->NAMECHAIN = addchain(NULL, name);
}
} }
} }