Fix R function pointer wrappers containing lvalue and rvalue reference parameters

This commit is contained in:
William S Fulton 2017-06-16 07:02:07 +01:00
commit 6a7cd97fe9
4 changed files with 30 additions and 15 deletions

View file

@ -15,6 +15,8 @@ int & addByReference(const int &a, int b) { static int val; val = a+b; return va
int call1(int (*d)(const int &, int), int a, int b) { return d(a, b); }
int call2(int * (*d)(const int &, int), int a, int b) { return *d(a, b); }
int call3(int & (*d)(const int &, int), int a, int b) { return d(a, b); }
int call4(int & (*d)(int &, int *), int a, int b) { return d(a, &b); }
int call5(int & (*d)(int &, int const * const), int a, int b) { return d(a, &b); }
%}
%constant int (*ADD_BY_VALUE)(const int &, int) = addByValue;