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

Ajout des formules CTL en queue ...

This commit is contained in:
Ludovic Jacomme 2002-08-01 12:02:13 +00:00
parent 2fd3ec1c76
commit 34819c9df4
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
alliance/src/ctl/src/ctl.h
View File

@ -233,6 +233,7 @@
ctltype_list *TYPE;
authtable *HASH_TYPE;
ctlform_list *FORM;
ctlform_list **LAST_FORM;
authtable *HASH_FORM;
ctldecl_list *DECLAR[ CTL_MAX_DECLAR_TYPE ];
authtable *HASH_DECLAR[ CTL_MAX_DECLAR_TYPE ];
@ -338,7 +339,6 @@
extern int delctlfig __P((char *Name));
extern int delctlline __P((ctlfig_list *Figure, ctlline_list **PrevLine, ctlline_list *Line));
extern int delctlform __P((ctlfig_list *Figure, ctlform_list *Form));
/*------------------------------------------------------\
| |

13
alliance/src/ctl/src/ctladd.c
View File

@ -113,6 +113,7 @@ ctlfig_list *addctlfig( Name )
Figure->HASH_FORM = createauthtable( 50 );
Figure->HASH_TYPE = createauthtable( 50 );
Figure->LAST_FORM = &Figure->FORM;
return( Figure );
}
@ -425,15 +426,9 @@ ctlform_list *addctlform( Figure, Name, Expr )
Form->NAME = Name;
Form->VEX_EXPR = Expr;
Form->PREV = &Figure->FORM;
Form->NEXT = *(Form->PREV);
if ( Form->NEXT != (ctlform_list *)0 )
{
Form->NEXT->PREV = &Form->NEXT;
}
*(Form->PREV) = Form;
*Figure->LAST_FORM = Form;
Form->PREV = Figure->LAST_FORM;
Figure->LAST_FORM = &Form->NEXT;
addauthelem( Figure->HASH_FORM, Name, (long)Form );