Remove unused variables

leto · Jun 25, 2010 · 60962c5 · 60962c5
1 parent 5893254
commit 60962c5
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/plparrot.c b/plparrot.c
@@ -181,16 +181,15 @@ PG_FUNCTION_INFO_V1(plperl6u_call_handler);
 static Datum
 plperl6_func_handler(PG_FUNCTION_ARGS)
 {
-    Parrot_PMC func_pmc, func_args, result, tmp_pmc;
-    Parrot_String err;
+    Parrot_PMC result, tmp_pmc;
     Datum retval, procsrc_datum;
     Form_pg_proc procstruct;
     HeapTuple proctup;
     Oid returntype, *argtypes;
 
-    char *proc_src, *errmsg, *tmp;
+    char *proc_src;
     char *perl6_src;
-    int numargs, rc, i, length;
+    int numargs, length;
     char **argnames, *argmodes;
     bool isnull;
 
@@ -250,7 +249,7 @@ plparrot_func_handler(PG_FUNCTION_ARGS)
 {
     Parrot_PMC func_pmc, func_args, result, tmp_pmc;
     Parrot_String err;
-    Datum retval, procsrc_datum;
+    Datum procsrc_datum;
     Form_pg_proc procstruct;
     HeapTuple proctup;
     Oid returntype, *argtypes;