Add pointer-address to Gauche

2025-03-11 14:46:11 +02:00
parent 7245f59824
commit 3fcc91e7c0
5 changed files with 12 additions and 4 deletions
@@ -27,6 +27,7 @@
 (define-cproc pointer-null () pointer_null)
 (define-cproc pointer-null? (pointer) is_pointer_null)
 (define-cproc pointer-allocate (size::<int>) pointer_allocate)
+ (define-cproc pointer-address (object) pointer_address)
 (define-cproc pointer? (pointer) is_pointer)
 (define-cproc pointer-free (pointer) pointer_free)