Mercurial > pub > dyncall > bindings
annotate R/rdyncall/demo/R_malloc.R @ 0:0cfcc391201f
initial from svn dyncall-1745
| author | Daniel Adler |
|---|---|
| date | Thu, 19 Mar 2015 22:26:28 +0100 |
| parents | |
| children |
| rev | line source |
|---|---|
| 0 | 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 |