The function ‘nargincheck’ does not exist under Matlab R2008b and the…

… function ‘nargoutchk’ requires 3 arguments.
jaeandersson · Nov 11, 2016 · b78ca65 · b78ca65
1 parent 282170e
commit b78ca65
Showing 1 changed file with 9 additions and 3 deletions.
diff --git 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");