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

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

Revision: 818
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=818&view=rev
Author:   agraef
Date:     2008-09-21 22:10:36 +0000 (Sun, 21 Sep 2008)

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

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-09-21 12:42:34 UTC (rev 817)
+++ pure/trunk/runtime.cc	2008-09-21 22:10:36 UTC (rev 818)
@@ -3536,10 +3536,24 @@
 #else
       return pure_pointer((void*)(uint32_t)pure_get_int(x));
 #endif
-  case EXPR::MATRIX:
-  case EXPR::DMATRIX:
-  case EXPR::CMATRIX:
-  case EXPR::IMATRIX:	return pure_pointer(x->data.mat.p);
+  case EXPR::MATRIX: {
+    gsl_matrix_symbolic *m = (gsl_matrix_symbolic*)x->data.mat.p;
+    return pure_pointer(m->data);
+  }
+#ifdef HAVE_GSL
+  case EXPR::DMATRIX: {
+    gsl_matrix *m = (gsl_matrix*)x->data.mat.p;
+    return pure_pointer(m->data);
+  }
+  case EXPR::CMATRIX: {
+    gsl_matrix_complex *m = (gsl_matrix_complex*)x->data.mat.p;
+    return pure_pointer(m->data);
+  }
+  case EXPR::IMATRIX:{
+    gsl_matrix_int *m = (gsl_matrix_int*)x->data.mat.p;
+    return pure_pointer(m->data);
+  }
+#endif
   default:		return 0;
   }
 }


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