annotate R/rdyncall/demo/R_malloc.R @ 61:c5a69c454963
- allow use of 'None' with 'Z'
- bumped version to 1.4 (be in sync current dyncall version)
| author |
Tassilo Philipp |
| date |
Mon, 03 Apr 2023 19:06:07 +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
|
