annotate R/rdyncall/demo/R_malloc.R @ 2:a27ef6fdc275
- assume dyncall dir is next to maintainers'
| author |
cslag |
| date |
Thu, 31 Dec 2015 20:20:18 +0100 |
| parents |
0cfcc391201f |
| 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
|
