Mercurial > hg > octave-lojdl

diff scripts/audio/wavread.m @ 17199:af2051e363ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix return arguments for wavread (...,"size"), bug #39639. * scripts/audio/wavread.m: Return two arguments in two output variables. * scripts/audio/wavwrite.m: Add %!tests for "size", and [N], [N1, N2] inputs to wavread.
author Rik <rik@octave.org>
date Wed, 07 Aug 2013 07:35:01 -0700
parents b10a23fe80bb
children
line wrap: on
line diff
--- a/scripts/audio/wavread.m
+++ b/scripts/audio/wavread.m
@@ -177,8 +177,8 @@
         length = (param(2)-param(1)+1) * channels;
       elseif (nparams == 4 && char (param) == "size")
         ## Size of the file is requested.
-        tmp = idivide (8 * data_size, channels * bits_per_sample);
-        y = [tmp, channels];
+        y = idivide (8 * data_size, channels * bits_per_sample);
+        samples_per_sec = channels;
         return;
       else
         error ("wavread: invalid PARAM argument");