R-alpha: R-0.50-a{1|2} : Yet another shortest SEGFAULT --- + PATCH

[Martin Maechler]

[ already in 0.50-a1 ]

is.loaded(1) gives a SEGFAULT.

----------------------------------------
Here is the patch :


--- src/main/dotcode.c~	Thu Jun  5 03:07:00 1997
+++ src/main/dotcode.c	Tue Aug  5 14:57:15 1997
@@ -434,7 +434,7 @@
 
 	checkArity(op, args);
 	if(!isString(CAR(args)) || length(CAR(args)) < 1)
-		errorcall(call, "invalid argument");
+		errorcall(call, "invalid argument\n");
 
 	p = CHAR(STRING(CAR(args))[0]);
 	q = buf;
@@ -459,6 +459,8 @@
 	char *sym;
 	int val;
 	checkArity(op, args);
+	if(!isString(CAR(args)) || length(CAR(args)) < 1)
+		errorcall(call, "invalid argument\n");
 	sym = CHAR(STRING(CAR(args))[0]);
 
 	val = 1;
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-