Fixed memory leaks in SP

Some code cleanup

mysql-test/r/sp.result

@@ -732,7 +732,7 @@ delete from t1|
 alter procedure chistics sql security invoker name chistics2|
 show create procedure chistics2|
 Procedure	Create Procedure
-chistics2	CREATE PROCEDURE chistics2()
+chistics2	CREATE PROCEDURE `chistics2`()
     SQL SECURITY INVOKER
     COMMENT 'Characteristics procedure test'
 insert into t1 values ("chistics", 1)
@@ -749,7 +749,7 @@ chistics()
 alter function chistics name chistics2 comment 'Characteristics function test'|
 show create function chistics2|
 Function	Create Function
-chistics2	CREATE FUNCTION chistics2() RETURNS int
+chistics2	CREATE FUNCTION `chistics2`() RETURNS int
     DETERMINISTIC
     SQL SECURITY INVOKER
     COMMENT 'Characteristics function test'
@@ -999,7 +999,7 @@ end while;
 end|
 show create procedure opp|
 Procedure	Create Procedure
-opp	CREATE PROCEDURE opp(n bigint unsigned, out pp bool)
+opp	CREATE PROCEDURE `opp`(n bigint unsigned, out pp bool)
 begin
 declare r double;
 declare b, s bigint unsigned default 0;
@@ -1096,7 +1096,7 @@ alter procedure bar2 name bar comment "3333333333"|
 alter procedure bar|
 show create procedure bar|
 Procedure	Create Procedure
-bar	CREATE PROCEDURE bar(x char(16), y int)
+bar	CREATE PROCEDURE `bar`(x char(16), y int)
     COMMENT '3333333333'
 insert into test.t1 values (x, y)
 show procedure status like 'bar'|

sql/sql_parse.cc

@@ -3085,11 +3085,11 @@ mysql_execute_command(THD *thd)
   }
   case SQLCOM_CREATE_FUNCTION:	// UDF function
   {
+    sp_head *sph;
     if (check_access(thd,INSERT_ACL,"mysql",0,1,0))
       break;
 #ifdef HAVE_DLOPEN
-      sp_head *sph= sp_find_function(thd, &lex->udf.name);
-      if (sph)
+    if (!(sph= sp_find_function(thd, &lex->udf.name)))
     {
       net_printf(thd, ER_UDF_EXISTS, lex->udf.name.str);
       goto error;
@@ -3374,13 +3374,12 @@ mysql_execute_command(THD *thd)
     break;
   case SQLCOM_CREATE_PROCEDURE:
   case SQLCOM_CREATE_SPFUNCTION:
+  {
     if (!lex->sphead)
     {
       res= -1;			// Shouldn't happen
       break;
     }
-    else
-    {
     uint namelen;
     char *name= lex->sphead->name(&namelen);
 #ifdef HAVE_DLOPEN
@@ -3391,6 +3390,8 @@ mysql_execute_command(THD *thd)
       if (udf)
       {
 	net_printf(thd, ER_UDF_EXISTS, name);
+	delete lex->sphead;
+	lex->sphead=0;
 	goto error;
       }
     }
@@ -3399,13 +3400,13 @@ mysql_execute_command(THD *thd)
 	!lex->sphead->m_has_return)
     {
       net_printf(thd, ER_SP_NORETURN, name);
+      delete lex->sphead;
+      lex->sphead=0;
       goto error;
     }
 
     res= lex->sphead->create(thd);
-
-      switch (res)
-      {
+    switch (res) {
     case SP_OK:
       send_ok(thd);
       delete lex->sphead;
@@ -3428,8 +3429,7 @@ mysql_execute_command(THD *thd)
     {
       sp_head *sp;
 
-      sp= sp_find_procedure(thd, &lex->udf.name);
-      if (! sp)
+      if (!(sp= sp_find_procedure(thd, &lex->udf.name)))
       {
 	net_printf(thd, ER_SP_DOES_NOT_EXIST, "PROCEDURE", lex->udf.name);
 	goto error;
@@ -3611,6 +3611,7 @@ mysql_execute_command(THD *thd)
 	res= 0;
 	goto error;
       }
+      res= 0;
       break;
     }
   case SQLCOM_SHOW_STATUS_PROC:
@@ -4157,6 +4158,7 @@ mysql_parse(THD *thd, char *inBuf, uint length)
       query_cache_abort(&thd->net);
       if (thd->lex->sphead)
       {
+	/* Clean up after failed stored procedure/function */
 	if (lex != thd->lex)
 	  thd->lex->sphead->restore_lex(thd);
 	delete thd->lex->sphead;