cfree

OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=74

clisp-linux.patch

@@ -1,9 +1,8 @@
----
- modules/bindings/glibc/linux.lisp |    2 ++
- 1 file changed, 2 insertions(+)
 
---- a/modules/bindings/glibc/linux.lisp
-+++ b/modules/bindings/glibc/linux.lisp
+
+diff --git a/clisp-9c43d428/modules/bindings/glibc/linux.lisp b/clisp-9c43d428/modules/bindings/glibc/linux.lisp
+--- a/clisp-9c43d428/modules/bindings/glibc/linux.lisp
++++ b/clisp-9c43d428/modules/bindings/glibc/linux.lisp
 @@ -294,6 +294,8 @@
  ;; for robust mutexes
  (def-c-const EOWNERDEAD (:documentation "Owner died")) ; 130
@@ -13,3 +12,11 @@
  
  ; -------------------------- <bits/errno.h> -----------------------------------
  
+@@ -649,7 +651,6 @@
+ (def-call-out calloc (:arguments (nmemb size_t) (size size_t))
+   (:return-type c-pointer))
+ (def-call-out free (:arguments (ptr c-pointer)) (:return-type nil))
+-(def-call-out cfree (:arguments (ptr c-pointer)) (:return-type nil))
+ (def-call-out valloc (:arguments (size size_t)) (:return-type c-pointer))
+ 
+ (def-call-out abort (:arguments) (:return-type nil))

clisp.changes

@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Thu Sep 14 12:23:38 UTC 2017 - werner@suse.de
+
+- cfree() is missed now in (g)libc 
+
 -------------------------------------------------------------------
 Thu Jul 27 13:29:56 UTC 2017 - werner@suse.de