From 04cfdfdc6eedb9bcfe9609b97c2b80a774c022b13c562a936979313bbdb59d35 Mon Sep 17 00:00:00 2001 From: "Dr. Werner Fink" Date: Thu, 14 Sep 2017 12:24:27 +0000 Subject: [PATCH] cfree OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=74 --- clisp-linux.patch | 17 ++++++++++++----- clisp.changes | 5 +++++ 2 files changed, 17 insertions(+), 5 deletions(-) diff --git a/clisp-linux.patch b/clisp-linux.patch index 48792d3..e65e298 100644 --- a/clisp-linux.patch +++ b/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 @@ ; -------------------------- ----------------------------------- +@@ -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)) diff --git a/clisp.changes b/clisp.changes index a15b4fb..4c6b259 100644 --- a/clisp.changes +++ b/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