Mercurial > hg > octave-lyh

comparison src/mex.cc @ 8806:c7864bb74914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
avoid some GCC warnings
author John W. Eaton <jwe@octave.org>
date Wed, 18 Feb 2009 13:45:20 -0500
parents 25bc2d31e1bf
children eb63fbe60fab
comparison
equal deleted inserted replaced
8805:065a05eb148a 8806:c7864bb74914
3020 typedef void (*cmex_fptr) (int nlhs, mxArray **plhs, int nrhs, mxArray **prhs); 3020 typedef void (*cmex_fptr) (int nlhs, mxArray **plhs, int nrhs, mxArray **prhs);
3021 typedef F77_RET_T (*fmex_fptr) (int& nlhs, mxArray **plhs, int& nrhs, mxArray **prhs); 3021 typedef F77_RET_T (*fmex_fptr) (int& nlhs, mxArray **plhs, int& nrhs, mxArray **prhs);
3022 3022
3023 octave_value_list 3023 octave_value_list
3024 call_mex (bool have_fmex, void *f, const octave_value_list& args, 3024 call_mex (bool have_fmex, void *f, const octave_value_list& args,
3025 int nargout, octave_mex_function *curr_mex_fcn) 3025 int nargout_arg, octave_mex_function *curr_mex_fcn)
3026 { 3026 {
3027 // Use at least 1 for nargout since even for zero specified args, 3027 // Use at least 1 for nargout since even for zero specified args,
3028 // still want to be able to return an ans. 3028 // still want to be able to return an ans.
3029
3030 volatile int nargout = nargout_arg;
3029 3031
3030 int nargin = args.length (); 3032 int nargin = args.length ();
3031 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin); 3033 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin);
3032 for (int i = 0; i < nargin; i++) 3034 for (int i = 0; i < nargin; i++)
3033 argin[i] = 0; 3035 argin[i] = 0;