[pure-lang-svn] SF.net SVN: pure-lang:[784] pure/trunk/runtime.cc

[<ag...@us...>]

Revision: 784
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=784&view=rev
Author:   agraef
Date:     2008-09-18 17:35:01 +0000 (Thu, 18 Sep 2008)

Log Message:
-----------
Bugfixes.

Modified Paths:
--------------
    pure/trunk/runtime.cc

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-09-18 12:13:09 UTC (rev 783)
+++ pure/trunk/runtime.cc	2008-09-18 17:35:01 UTC (rev 784)
@@ -638,6 +638,7 @@
 #ifdef HAVE_GSL
   gsl_matrix *m = (gsl_matrix*)p;
   if (!m || !m->owner) return 0;
+  m->owner = 0;
   pure_expr *x = new_expr();
   x->tag = EXPR::MATRIX;
   x->data.mat.p = p;
@@ -656,6 +657,7 @@
 #ifdef HAVE_GSL
   gsl_matrix_complex *m = (gsl_matrix_complex*)p;
   if (!m || !m->owner) return 0;
+  m->owner = 0;
   pure_expr *x = new_expr();
   x->tag = EXPR::CMATRIX;
   x->data.mat.p = p;
@@ -674,6 +676,7 @@
 #ifdef HAVE_GSL
   gsl_matrix_int *m = (gsl_matrix_int*)p;
   if (!m || !m->owner) return 0;
+  m->owner = 0;
   pure_expr *x = new_expr();
   x->tag = EXPR::IMATRIX;
   x->data.mat.p = p;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.