[Rcpp-devel] Segfault error during simulation in Rcpp

Sorry yesterday evening by mistake I sent a message only to Dirk:

Thanks, you are right I'll try cxxfunction and/or I'll see whether I can
move avoid doing so many calls to C++.

For the sake of minimality: this code is enough to have a segfault or to
make R stall
(at least on my computer):

library(Rcpp)
myFun <- cppFunction('NumericMatrix myFun(NumericMatrix input){ return
input; }')

n <- 10
x <- 1:n^2
N <- 1e6
b <- 0
A <- matrix(x, n, n)
for (j in 1:N) {
    res <- myFun(A)
    a <- res[1,1]
    b <- b + a
}

cat(sprintf("Done, b is %d\n", b))

Thanks a lot to everybody for the help!

[Rcpp-devel] Segfault error during simulation in Rcpp

Thread (27 messages)