Martin Maechler
1997-Aug-05 13:02 UTC
R-alpha: R-0.50-a{1|2} : Yet another shortest SEGFAULT --- + PATCH
[ 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 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-