forked from perl/perl-PDL
14 lines
591 B
Diff
14 lines
591 B
Diff
Index: Basic/Ufunc/ufunc.pd
|
|
===================================================================
|
|
--- Basic/Ufunc/ufunc.pd.orig 2016-08-24 09:56:24.038805670 +0200
|
|
+++ Basic/Ufunc/ufunc.pd 2016-08-24 09:57:02.551371474 +0200
|
|
@@ -510,7 +510,7 @@ for (keys %PDL::Types::typehash) {
|
|
/* Compare a vector in lexicographic order, returning the
|
|
* equivalent of "<=>".
|
|
*/
|
|
- signed char pdl_cmpvec_$ppsym($ctype *a, $ctype *b, PDL_Indx n) {
|
|
+ signed int pdl_cmpvec_$ppsym($ctype *a, $ctype *b, PDL_Indx n) {
|
|
PDL_Indx i;
|
|
for(i=0; i<n; a++,b++,i++) {
|
|
if( *a < *b ) return -1;
|