[pure-lang-svn] SF.net SVN: pure-lang:[784] pure/trunk/runtime.cc
Status: Beta
Brought to you by:
agraef
|
From: <ag...@us...> - 2008-09-18 10:34:50
|
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.
|