Gauche fixes

retropikzel/pffi/chibi.scm

@@ -46,7 +46,7 @@
     (or (equal? object #f) ; False can be null pointer
     (pointer? object))))
 
-#;(define pffi-pointer-allocate
+(define pffi-pointer-allocate
   (lambda (size)
     (pointer-allocate size)))
 
@@ -54,7 +54,7 @@
   (lambda (pointer)
     (pointer-address pointer)))
 
-#;(define pffi-pointer-free
+(define pffi-pointer-free
   (lambda (pointer)
     (pointer-free pointer)))
 

retropikzel/pffi/gauche.scm

@@ -134,7 +134,7 @@
           ((equal? type 'unsigned-long) (get-ffi-type-ulong))
           ((equal? type 'float) (get-ffi-type-float))
           ((equal? type 'double) (get-ffi-type-double))
-          ((equal? type 'void) (get-ffi-type-pointer))
+          ((equal? type 'void) (get-ffi-type-void))
           ((equal? type 'pointer) (get-ffi-type-pointer))
           ((equal? type 'callback) (get-ffi-type-pointer)))))
 

retropikzel/pffi/gauche/gauchelib.scm

@@ -95,6 +95,8 @@
  (define-cproc get-ffi-type-unsigned-long () get_ffi_type_unsigned_long)
  (define-cproc get-ffi-type-float () get_ffi_type_float)
  (define-cproc get-ffi-type-double () get_ffi_type_double)
+ (define-cproc get-ffi-type-void() get_ffi_type_void)
  (define-cproc get-ffi-type-pointer () get_ffi_type_pointer)
 
- (define-cproc procedure-to-pointer (procedure) procedure_to_pointer))
+ ;(define-cproc procedure-to-pointer (procedure) procedure_to_pointer)
+ )

retropikzel/pffi/shared/pointer.scm

@@ -9,9 +9,13 @@
                              "c"
                              '((additional-versions ("0" "6"))))))
 
-(pffi-define pffi-pointer-allocate pffi-libc-stdlib 'malloc 'pointer '(int))
+(cond-expand
+  (chibi #t) ; FIXME
+  (else (pffi-define pffi-pointer-allocate pffi-libc-stdlib 'malloc 'pointer '(int))))
 ;(pffi-define pffi-pointer-allocate-aligned pffi-libc-stdlib 'aligned_alloc 'pointer '(int int))
-(pffi-define pffi-pointer-free pffi-libc-stdlib 'free 'void '(pointer))
+(cond-expand
+  (chibi #t) ; FIXME
+  (else (pffi-define pffi-pointer-free pffi-libc-stdlib 'free 'void '(pointer))))
 
 #;(define pffi-pointer-null
   (lambda ()