From 49fe1256cc0f6f9cd4894482eede0036861c2912 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sebastian=20Dr=C3=B6ge?= <sebastian@centricular.com>
Date: Sun, 13 Apr 2014 21:38:48 +0200
Subject: [PATCH] tests: Fix various memory leaks in tests

---
 testsuite/perf_parse.c         | 3 +++
 testsuite/perf_parse_compare.c | 3 +++
 testsuite/show_parse.c         | 5 ++++-
 testsuite/test-schro.c         | 2 ++
 4 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/testsuite/perf_parse.c b/testsuite/perf_parse.c
index 731c142..5cc8dc8 100644
--- a/testsuite/perf_parse.c
+++ b/testsuite/perf_parse.c
@@ -41,11 +41,14 @@ main (int argc, char *argv[])
   }
 
   n = orc_parse (code, &programs);
+  free (code);
 
   for(i=0;i<n;i++){
     printf("%-30s %g\n", programs[i]->name,
         orc_test_performance_full (programs[i], 0, NULL));
+    orc_program_free (programs[i]);
   }
+  free (programs);
 
   if (error) return 1;
   return 0;
diff --git a/testsuite/perf_parse_compare.c b/testsuite/perf_parse_compare.c
index c0d4d76..f79a442 100644
--- a/testsuite/perf_parse_compare.c
+++ b/testsuite/perf_parse_compare.c
@@ -41,6 +41,7 @@ main (int argc, char *argv[])
   }
 
   n = orc_parse (code, &programs);
+  free (code);
 
   for(i=0;i<n;i++){
     double perf_mmx;
@@ -48,7 +49,9 @@ main (int argc, char *argv[])
     perf_mmx = orc_test_performance_full (programs[i], 0, "mmx");
     perf_sse = orc_test_performance_full (programs[i], 0, "sse");
     printf("%g %g\n", perf_mmx, perf_sse);
+    orc_program_free (programs[i]);
   }
+  free (programs);
 
   if (error) return 1;
   return 0;
diff --git a/testsuite/show_parse.c b/testsuite/show_parse.c
index 931ed9b..42b0ad7 100644
--- a/testsuite/show_parse.c
+++ b/testsuite/show_parse.c
@@ -74,6 +74,7 @@ main (int argc, char *argv[])
   code = read_file (filename);
   if (code) {
     n = orc_parse (code, &programs);
+    free (code);
   } else {
     OrcStaticOpcode *opcode;
 
@@ -90,7 +91,9 @@ main (int argc, char *argv[])
 
   for(i=0;i<n;i++){
     show (programs[i]);
+    orc_program_free (programs[i]);
   }
+  free (programs);
 
   if (error) return 1;
   return 0;
@@ -389,6 +392,6 @@ show (OrcProgram *program)
   }
 
   orc_executor_free (ex);
-
+  orc_program_free (program);
 }
 
diff --git a/testsuite/test-schro.c b/testsuite/test-schro.c
index 59ea5ab..4530a39 100644
--- a/testsuite/test-schro.c
+++ b/testsuite/test-schro.c
@@ -224,6 +224,8 @@ test_program (int type)
   if (!ret) {
     error = TRUE;
   }
+
+  orc_program_free (p);
 }
 
 
-- 
2.7.4