diff options
| author | Joel Andersson <j.a.e.andersson@gmail.com> | 2016-11-13 10:39:10 -0600 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-11-13 10:39:10 -0600 |
| commit | a16acf39f61ed19e748f31f9ecbcc606cc5a7487 (patch) | |
| tree | 636c52bae486d02298a698dcf07af50f7a67765f | |
| parent | 282170e41066ae81723391af5c52b28479671b46 (diff) | |
| parent | b78ca65e41c673363023b50a7672e46a9786843e (diff) | |
| download | swig-a16acf39f61ed19e748f31f9ecbcc606cc5a7487.tar.gz | |
Merge pull request #78 from Alzathar/matlab-nargxcheck-r2008-workaround
The function ‘nargincheck’ does not exist under Matlab R2008b and the…
| -rw-r--r-- | Source/Modules/matlab.cxx | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Source/Modules/matlab.cxx b/Source/Modules/matlab.cxx index 06bd0fcba..048c7eab4 100644 --- a/Source/Modules/matlab.cxx +++ b/Source/Modules/matlab.cxx @@ -2763,12 +2763,18 @@ void MATLAB::createSwigMem() { Printf(f_wrap_m,"function varargout = SwigMem(varargin)\n"); Printf(f_wrap_m," persistent mem\n"); Printf(f_wrap_m," mlock\n"); - Printf(f_wrap_m," narginchk(0,1)\n"); + Printf(f_wrap_m," if (nargin > 1)\n"); + Printf(f_wrap_m," error('Too many input arguments')\n"); + Printf(f_wrap_m," end\n"); Printf(f_wrap_m," if nargin==0\n"); - Printf(f_wrap_m," nargoutchk(0,1)\n"); + Printf(f_wrap_m," if (nargout > 1)\n"); + Printf(f_wrap_m," error('Too many output arguments')\n"); + Printf(f_wrap_m," end\n"); Printf(f_wrap_m," varargout{1} = mem;\n"); Printf(f_wrap_m," else\n"); - Printf(f_wrap_m," nargoutchk(0,0)\n"); + Printf(f_wrap_m," if (nargout > 0)\n"); + Printf(f_wrap_m," error('Too many output arguments')\n"); + Printf(f_wrap_m," end\n"); Printf(f_wrap_m," mem = varargin{1};\n"); Printf(f_wrap_m," end\n"); Printf(f_wrap_m,"end\n"); |