From 1912b38be33f3101001d673486b40b759d8cfbcf Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Mon, 17 May 2010 14:51:28 -0700
Subject: [PATCH] Comment out some more free() calls, which need to be turned
 on per-subsystem to weed out memory bugs

---
 swig/gsl_typemaps.i | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/swig/gsl_typemaps.i b/swig/gsl_typemaps.i
index 3827fef..09bdb7b 100644
--- a/swig/gsl_typemaps.i
+++ b/swig/gsl_typemaps.i
@@ -137,10 +137,10 @@
 }
 
 %typemap(freearg) float [] {
-    if ($1) free(((char*)$1)-sizeof(struct perl_array));
+    // if ($1) free(((char*)$1)-sizeof(struct perl_array));
 }
 
-%apply float const [] { 
+%apply float const [] {
     float *C
 };
 
@@ -168,7 +168,7 @@
 }
 
 %typemap(freearg) size_t const [] {
-        if ($1) free($1);
+      //  if ($1) free($1);
 }
 
 %apply double const [] {
-- 
2.11.4.GIT