The function ‘nargincheck’ does not exist under Matlab R2008b and the function ‘nargoutchk’ requires 3 arguments.

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");