File PDL-2.4.7-return.diff of Package perl-PDL

Overview Repositories Revisions Requests Users Attributes Meta

File PDL-2.4.7-return.diff of Package perl-PDL

Index: Basic/Core/pdlcore.c.PL
===================================================================
--- Basic/Core/pdlcore.c.PL.orig
+++ Basic/Core/pdlcore.c.PL
@@ -517,9 +517,10 @@ void pdl_unpackdims ( SV* sv, PDL_Long *
 
 PDL_Long pdl_safe_indterm( PDL_Long dsz, PDL_Long at, char *file, int lineno)
 {
-  if (at >= 0 && at < dsz) return at;
-  pdl_barf("access [%d] out of range [0..%d] (inclusive) at %s line %d",
+  if (!(at >= 0 && at < dsz))
+    pdl_barf("access [%d] out of range [0..%d] (inclusive) at %s line %d",
           at, dsz-1, file?file:"?", lineno);
+  return at;
 }
 
 /*
Index: Basic/MatrixOps/blas.c
===================================================================
--- Basic/MatrixOps/blas.c.orig
+++ Basic/MatrixOps/blas.c
@@ -6,7 +6,7 @@
  * by column vector V of dimension c on the right
  * to produce a (column) vector Y output of dimension r.
  */
-mvmpy( r, c, A, V, Y )
+void mvmpy( r, c, A, V, Y )
 int r, c;
 double *A, *V, *Y;
 {
@@ -33,7 +33,7 @@ for( i=0; i<r; i++ )
  * by a c (rows) by r (columns) matrix B on the right
  * to produce an r by r matrix Y.
  */
-mmmpy( r, c, A, B, Y )
+void mmmpy( r, c, A, B, Y )
 int r, c;
 double *A, *B, *Y;
 {
@@ -65,7 +65,7 @@ for( i=0; i<r; i++ )
 /* Transpose the n by n square matrix A and put the result in T.
  * T may occupy the same storage as A.
  */
-mtransp( n, A, T )
+void mtransp( n, A, T )
 int n;
 double *A, *T;
 {
@@ -132,7 +132,7 @@ return( e );
 /* Unpack symmetric matrix T stored in lower triangular form
  * into a symmetric n by n square matrix S.
  */
-tritosquare( n, T, S )
+void tritosquare( n, T, S )
 int n;
 double T[], S[];
 {
Index: Graphics/IIS/pdliisdisp.c
===================================================================
--- Graphics/IIS/pdliisdisp.c.orig
+++ Graphics/IIS/pdliisdisp.c
@@ -371,6 +371,8 @@ int iis_chan(int frame) {
       return chan[frame];
    else
       iis_error("iis_display: invalid frame number, must be 1-4\n","");
+
+   return -1;
 }
 
 /* Round to nearest int symmetrically about zero */

Places

File PDL-2.4.7-return.diff of Package perl-PDL

Places