Big bug dans addctltype

This commit is contained in:
Ludovic Jacomme 2002-07-23 14:19:37 +00:00
parent f9c74c25c0
commit fde0624030
1 changed files with 4 additions and 2 deletions

View File

@ -420,8 +420,9 @@ ctlform_list *addctlform( Figure, Name, Expr )
ctlform_list *Form;
Form = allocctlform();
Name = namealloc( Name );
Form->NAME = namealloc( Name );;
Form->NAME = Name;
Form->VEX_EXPR = Expr;
Form->PREV = &Figure->FORM;
@ -462,7 +463,8 @@ ctltype_list *addctltype( Figure, Name, Index,
Type = allocctltype();
Type->NAME = namealloc( Name );;
Name = namealloc( Name );
Type->NAME = Name;
Type->NEXT = Figure->TYPE;
Type->LEFT = Left;
Type->RIGHT = Right;