From 25f30ff1b103d7af728ce67d1c382d679674e1b6 Mon Sep 17 00:00:00 2001
From: Joseph Wang <joequant@gmail.com>
Date: Sat, 26 Apr 2008 07:12:26 +0000
Subject: [PATCH] Add R 2.7 calls

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10392 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/r/rfragments.swg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Lib/r/rfragments.swg b/Lib/r/rfragments.swg
index cc75339e2..8a1b01b71 100644
--- a/Lib/r/rfragments.swg
+++ b/Lib/r/rfragments.swg
@@ -164,12 +164,14 @@ SWIG_FromCharPtrAndSize(const char* carray, size_t size)
 {
   SEXP t, c;
   if (!carray) return R_NilValue;
+  RVERSION27(return Rf_mkCharLen(carray, size));
+  RVERSIONPRE27(
   Rf_protect(t = Rf_allocVector(STRSXP, 1));
   c = allocString(size);
   strncpy((char *)CHAR(c), carray, size);
   SET_STRING_ELT(t, 0, c);
   Rf_unprotect(1);
-  return t;
+  return t;)
 }
 }