From Martin Maechler <maechler@stat.math.ethz.ch>  Tue Aug  5 14:02:11 1997
From: Martin Maechler <maechler@stat.math.ethz.ch> (Martin Maechler)
Date: Tue, 5 Aug 1997 15:02:11 +0200
Subject: R-alpha: R-0.50-a{1|2} : Yet another shortest SEGFAULT  --- + PATCH
Message-ID: <199708051302.PAA00761@sophie.ethz.ch>

[ 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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


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