annotate R/rdyncall/demo/R_malloc.R @ 21:40a2c4198016
- working jdc (but with memleaks, currently)
- added example
| author |
cslag |
| date |
Wed, 30 Mar 2016 23:40:52 +0200 |
| 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
|
