Mercurial > octave

changeset 23498:647705ffb110

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use F77_INT type for integer args to Fortran MEX functions * mex.cc (fmex_fptr, call_mex): Use F77_INT for integer arguments in Fortran MEX fucntion interface.
author John W. Eaton <jwe@octave.org>
date Tue, 16 May 2017 17:23:09 -0400
parents f45402b9dcc4
children 7d89f815d78e
files libinterp/corefcn/mex.cc
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/mex.cc	Tue May 16 06:55:25 2017 +0200
+++ b/libinterp/corefcn/mex.cc	Tue May 16 17:23:09 2017 -0400
@@ -3080,8 +3080,8 @@
 // ------------------------------------------------------------------
 
 typedef void (*cmex_fptr) (int nlhs, mxArray **plhs, int nrhs, mxArray **prhs);
-typedef F77_RET_T (*fmex_fptr) (int& nlhs, mxArray **plhs,
-                                int& nrhs, mxArray **prhs);
+typedef F77_RET_T (*fmex_fptr) (F77_INT& nlhs, mxArray **plhs,
+                                F77_INT& nrhs, mxArray **prhs);
 
 octave_value_list
 call_mex (bool have_fmex, void *f, const octave_value_list& args,
@@ -3120,8 +3120,8 @@
     {
       fmex_fptr fcn = reinterpret_cast<fmex_fptr> (f);
 
-      int tmp_nargout = nargout;
-      int tmp_nargin = nargin;
+      F77_INT tmp_nargout = nargout;
+      F77_INT tmp_nargin = nargin;
 
       fcn (tmp_nargout, argout, tmp_nargin, argin);
     }