From fde0624030e4900852cc82d1ff8d1b9233619bfd Mon Sep 17 00:00:00 2001
From: Ludovic Jacomme <alliance-cvs@asim.lip6.fr>
Date: Tue, 23 Jul 2002 14:19:37 +0000
Subject: [PATCH] Big bug dans addctltype

---
 alliance/src/ctl/src/ctladd.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/alliance/src/ctl/src/ctladd.c b/alliance/src/ctl/src/ctladd.c
index 01f6cb9c..ba087d7f 100644
--- a/alliance/src/ctl/src/ctladd.c
+++ b/alliance/src/ctl/src/ctladd.c
@@ -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;