segfault in do_makevector

git-svn-id: https://svn.r-project.org/R/branches/R-0-61-patches@824 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Mar 3, 1998 · ce0a6d2 · ce0a6d2
1 parent da99e25
commit ce0a6d2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/main/builtin.c b/src/main/builtin.c
@@ -366,6 +366,8 @@ SEXP do_makevector(SEXP call, SEXP op, SEXP args, SEXP rho)
 
 	len = asInteger(CADR(args));
 	s = coerceVector(CAR(args), STRSXP);
+	if (length(s) == 0)
+		error("vector: zero-length type argument\n");
 	mode = str2type(CHAR(STRING(s)[0]));
 	if (mode == -1 && streql(CHAR(STRING(s)[0]), "double"))
 		mode = REALSXP;