segfault in garbage collection (PR#344)

[Andreas.Weingessel@ci.tuwien.ac.at]

The following statements yield a seg.fault:
R --vanilla --nsize 500K

x <- rep(letters,10000)
f <- function(x) {z<-paste("\"",x,"\"",sep=""); z}
y <- f(x)
Segmentation fault


If a turn gcinfo on, I get

Garbage collection [nr. 1]...
387529 cons cells free (75%)
3807 Kbytes of heap free (62%)
Garbage collection [nr. 2]...
273868 cons cells free (53%)
1015 Kbytes of heap free (17%)
Garbage collection [nr. 3]...
208857 cons cells free (40%)
0 Kbytes of heap free (0%)
Garbage collection [nr. 4]...
208857 cons cells free (40%)
0 Kbytes of heap free (0%)

...(always the same)

and finally (after a long time)

Garbage collection [nr. 508]...
208859 cons cells free (40%)
0 Kbytes of heap free (0%)
Garbage collection [nr. 509]...
208859 cons cells free (40%)
0 Kbytes of heap free (0%)

Segmentation fault

Debugging yields

Program received signal SIGSEGV, Segmentation fault.
0x807d249 in errorcall (call=0x4062ec04, 
    format=0xbf801cc0 "heap memory (6144 Kb) exhausted [needed 0 Kb more]\n       See \"help(Memory)\" on how to increase the heap size.\n")
    at /home/Leisch/src/r-release/R/src/main/errors.c:192
192     {


I reproduced this bug on a 2nd machine, even with the same number
of Garbage collections.

-aw

--please do not edit the information below--

Version:
 platform = i686-unknown-linux
 arch = i686
 os = linux
 system = i686, linux
 status = Patched
 major = 0
 minor = 90.0
 year = 1999
 month = November
 day = 25
 language = R

Search Path:
 .GlobalEnv, Autoloads, package:base

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._