R-alpha: R-0.50-a{1|2} : Yet another shortest SEGFAULT --- + PATCH
Martin Maechler
Martin Maechler <maechler@stat.math.ethz.ch>
Tue, 5 Aug 1997 15:02:11 +0200
[ 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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-