[med-svn] [aghermann] 19/31: clean up lua stack after calls to script

[andrei zavada]

This is an automated email from the git hooks/post-receive script.

hmmr-guest pushed a commit to branch WIP
in repository aghermann.

commit 8d794375f9b2d8e2edd3b4c95da3a9555f5f4f68
Author: Andrei Zavada <hmmr at ra>
Date:   Sat Nov 9 20:44:56 2013 +0200

    clean up lua stack after calls to script
---
 upstream/src/aghermann/rk1968/rk1968.cc |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/upstream/src/aghermann/rk1968/rk1968.cc b/upstream/src/aghermann/rk1968/rk1968.cc
index ab8bb0e..f9f65ad 100644
--- a/upstream/src/aghermann/rk1968/rk1968.cc
+++ b/upstream/src/aghermann/rk1968/rk1968.cc
@@ -245,6 +245,7 @@ host_get_data( lua_State *L)
                 NEED_ARITY_EXACT(1);
 
                 const char* type = lua_tostring( L, 3);
+                lua_settop( L, 0);  // now we can push
 
                 size_t hh_of_type = 0;
                 for ( auto& H : E.recordings )
@@ -265,6 +266,8 @@ host_get_data( lua_State *L)
                 NEED_ARITY_EXACT(1);
 
                 const char* channel = lua_tostring( L, 3);
+                lua_settop( L, 0);
+
                 auto Hi = E.recordings.find( sigfile::SChannel (channel));
                 if ( Hi == E.recordings.end() ) {
                         make_error_return( "No such channel (%s)", channel);
@@ -305,6 +308,7 @@ host_get_data( lua_State *L)
                         double fz = lua_tonumber( L, 7);
                         if ( fa >= fz )
                                 make_error_return( "Ill-formed frequency range");
+                        lua_settop( L, 0);
 
                         auto C =
                                 (opcode == op_get_psd)
@@ -341,6 +345,7 @@ host_get_data( lua_State *L)
                         double dt = lua_tonumber( L, 6);
                         if ( dt <= 0. || dt > R.pagesize() )
                                 make_error_return( "Bad dt parameter (%g; expecting it to be in range 0..%zu)", dt, R.pagesize());
+                        lua_settop( L, 0);
 
                         auto sr = R.F().samplerate(R.h());
                         auto raw_profile = sigproc::raw_signal_profile<TFloat>(

-- 
Alioth's /git/debian-med/git-commit-notice on /srv/git.debian.org/git/debian-med/aghermann.git