Mercurial > octave-nkf
changeset 4999:5538e4ceb616
[project @ 2004-09-15 21:05:27 by jwe]
| author | jwe |
|---|---|
| date | Wed, 15 Sep 2004 21:05:27 +0000 |
| parents | 3f3d6eec0a2c |
| children | 9a7ec88c8b5e |
| files | src/DLD-FUNCTIONS/sort.cc |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/sort.cc Wed Sep 15 21:00:13 2004 +0000 +++ b/src/DLD-FUNCTIONS/sort.cc Wed Sep 15 21:05:27 2004 +0000 @@ -195,6 +195,7 @@ retval(1) = idx; retval(0) = octave_value (m); + return retval; } @@ -204,16 +205,19 @@ #if defined (HAVE_IEEE754_DATA_FORMAT) && defined (EIGHT_BYTE_INT) -static inline unsigned EIGHT_BYTE_INT FloatFlip(unsigned EIGHT_BYTE_INT f) +static inline unsigned EIGHT_BYTE_INT +FloatFlip (unsigned EIGHT_BYTE_INT f) { unsigned EIGHT_BYTE_INT mask = -(EIGHT_BYTE_INT)(f >> 63) | 0x8000000000000000ULL; + return f ^ mask; } inline unsigned EIGHT_BYTE_INT IFloatFlip(unsigned EIGHT_BYTE_INT f) { unsigned EIGHT_BYTE_INT mask = ((f >> 63) - 1) | 0x8000000000000000ULL; + return f ^ mask; } @@ -313,7 +317,6 @@ p += ns; } - } else {