Mercurial > pub > dyncall > bindings

comparison R/rdyncall/demo/R_malloc.R @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:0cfcc391201f
1 # Package: rdyncall
2 # File: demo/R_malloc.R
3 # Description: using R's memory allocator directly in R
4
5 dynbind("R","R_chk_calloc(ii)p;R_chk_free(p)v;")
6 malloc <- function(size)
7 {
8 x <- R_chk_calloc(as.integer(size),1L)
9 reg.finalizer(x, R_chk_free)
10 return(x)
11 }
12
13 x <- malloc(1024)
14 x <- NULL
15 gc()
16