jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert back for R 2.5

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10051 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Joseph Wang 2007-10-26 01:20:01 +00:00
commit 53c972ddf1
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Lib/r/rfragments.swg
View file

@ -156,7 +156,10 @@ SWIG_FromCharPtrAndSize(const char* carray, size_t size)
{ {
SEXP t, c; SEXP t, c;
if (!carray) return R_NilValue; if (!carray) return R_NilValue;
PROTECT(t = Rf_mkCharEnc(carray, size)); PROTECT(t = allocVector(STRSXP, 1));
c = allocString(size);
strncpy(CHAR(c), carray, size);
SET_STRING_ELT(t, 0, c);
UNPROTECT(1); UNPROTECT(1);
return t; return t;
} }