Quick fix for fread type bump seg fault

Rdatatable · Sep 27, 2014 · 83a5b18 · 83a5b18
1 parent d545394
commit 83a5b18
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fread.c b/src/fread.c
@@ -266,7 +266,7 @@ static SEXP coerceVectorSoFar(SEXP v, int oldtype, int newtype, R_len_t sofar, R
                          col+1, TypeName[oldtype], TypeName[newtype], sofar+1, MsgLimit(lch-ch), ch);
     if (sizes[TypeSxp[oldtype]]<4) {sprintf(errormsg,"Internal error: SIZEOF oldtype %d < 4", oldtype); EXIT();}
     if (sizes[TypeSxp[newtype]]<4) {sprintf(errormsg,"Internal error: SIZEOF newtype %d < 4", newtype); EXIT();}
-    if (sizes[TypeSxp[oldtype]] == sizes[TypeSxp[newtype]]) {
+    if (sizes[TypeSxp[oldtype]] == sizes[TypeSxp[newtype]] && newtype != SXP_STR) {
         TYPEOF(v) = TypeSxp[newtype];
         newv=v;
     } else {