[cl-gsl-cvs] CVS update: cl-gsl/c/cwrapperstub.c - cl-gsl-cvs@common-lisp.net - mailman3.common-lisp.net

4 Mar 2005

Update of /project/cl-gsl/cvsroot/cl-gsl/c
In directory common-lisp.net:/tmp/cvs-serv380
Modified Files:
    cwrapperstub.c 
Log Message:
Add needed wrappers for vector.lisp.
Date: Fri Mar  4 02:58:58 2005
Author: edenny
Index: cl-gsl/c/cwrapperstub.c
diff -u cl-gsl/c/cwrapperstub.c:1.1.1.1 cl-gsl/c/cwrapperstub.c:1.2

--- cl-gsl/c/cwrapperstub.c:1.1.1.1	Wed Mar  2 02:04:53 2005
+++ cl-gsl/c/cwrapperstub.c	Fri Mar  4 02:58:57 2005
@@ -388,32 +388,40 @@
gsl_vector *wrap_gsl_vector_subvector(gsl_vector *v, size_t offset, size_t n)
 {
+    gsl_vector *ret;
     gsl_vector_view v_view = gsl_vector_subvector(v, offset, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_float *wrap_gsl_vector_float_subvector(gsl_vector_float *v,
                                                   size_t offset,
                                                   size_t n)
 {
+    gsl_vector_float *ret;
     gsl_vector_float_view v_view = gsl_vector_float_subvector(v, offset, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_int *wrap_gsl_vector_int_subvector(gsl_vector_int *v,
                                               size_t offset,
                                               size_t n)
 {
+    gsl_vector_int *ret;
     gsl_vector_int_view v_view = gsl_vector_int_subvector(v, offset, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_complex *wrap_gsl_vector_complex_subvector(gsl_vector_complex *v,
                                                       size_t offset,
                                                       size_t n)
 {
+    gsl_vector_complex *ret;
     gsl_vector_complex_view v_view = gsl_vector_complex_subvector(v, offset, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_complex_float *wrap_gsl_vector_complex_float_subvector(
@@ -421,9 +429,11 @@
         size_t offset,
         size_t n)
 {
+    gsl_vector_complex_float *ret;
     gsl_vector_complex_float_view v_view =
         gsl_vector_complex_float_subvector(v, offset, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
/* ----------------------------------------------------------------- */
@@ -434,9 +444,11 @@
         size_t stride,
         size_t n)
 {
+    gsl_vector *ret;
     gsl_vector_view v_view =
         gsl_vector_subvector_with_stride(v, offset, stride, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_float *wrap_gsl_vector_float_subvector_with_stride(
@@ -445,9 +457,11 @@
         size_t stride,
         size_t n)
 {
+    gsl_vector_float *ret;
     gsl_vector_float_view v_view =
         gsl_vector_float_subvector_with_stride(v, offset, stride, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_int *wrap_gsl_vector_int_subvector_with_stride(
@@ -456,9 +470,11 @@
         size_t stride,
         size_t n)
 {
+    gsl_vector_int *ret;
     gsl_vector_int_view v_view =
         gsl_vector_int_subvector_with_stride(v, offset, stride, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_complex *wrap_gsl_vector_complex_subvector_with_stride(
@@ -467,9 +483,11 @@
         size_t stride,
         size_t n)
 {
+    gsl_vector_complex *ret;
     gsl_vector_complex_view v_view =
         gsl_vector_complex_subvector_with_stride(v, offset, stride, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }
gsl_vector_complex_float *wrap_gsl_vector_complex_float_subvector_with_stride(
@@ -478,7 +496,9 @@
         size_t stride,
         size_t n)
 {
+    gsl_vector_complex_float *ret;
     gsl_vector_complex_float_view v_view =
         gsl_vector_complex_float_subvector_with_stride(v, offset, stride, n);
-    return &v_view.vector;
+    ret = &v_view.vector;
+    return ret;
 }

    