make ExternalReference slot ref to contain reference

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13721 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2012-08-26 03:35:04 +00:00 · 2012-08-26 03:35:04 +00:00 · 33bb317b61
commit 33bb317b61
parent b9570501aa
3 changed files with 126 additions and 42 deletions
--- a/Source/Modules/r.cxx
+++ b/Source/Modules/r.cxx
@ -1903,6 +1903,8 @@ int R::functionWrapper(Node *n) {
 	       "\n};\n",
 	       "if(is(", name, ", \"NativeSymbolInfo\")) {\n",
 	       name, " = ", name, "$address", ";\n}\n",
+	       "if(is(", name, ", \"ExternalReference\")) {\n",
+	       name, " = ", name, "@ref;\n}\n",
 	       "}; \n",
 	       NIL);
      } else {