htl: Move cleanup handling to non-private libc-lock

This adds sysdeps/htl/libc-lock.h which augments sysdeps/mach/libc-lock.h with
the htl-aware cleanup handling. Otherwise inclusion of libc-lock.h
without libc-lockP.h would keep only the mach-aware handling.

This also fixes cleanup getting called when the binary is
statically-linked without libpthread.

* sysdeps/htl/libc-lockP.h (__libc_cleanup_region_start,
__libc_cleanup_end, __libc_cleanup_region_end,
__pthread_get_cleanup_stack): Move to...
* sysdeps/htl/libc-lock.h: ... new file.
(__libc_cleanup_region_start): Always set handler and arg.
(__libc_cleanup_end): Always call the cleanup handler.
(__libc_cleanup_push, __libc_cleanup_pop): New macros.

1 files changed, 70 insertions, 0 deletions

diff --git a/sysdeps/htl/libc-lock.h b/sysdeps/htl/libc-lock.h
new file mode 100644
index 0000000000..17ae75177f
--- /dev/null
+++ b/sysdeps/htl/libc-lock.h
@@ -0,0 +1,70 @@
+/* Private libc-internal interface for mutex locks.
+   Copyright (C) 2015-2020 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Lesser General Public License as
+   published by the Free Software Foundation; either version 2.1 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Lesser General Public License for more details.
+
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If
+   not, see <https://www.gnu.org/licenses/>.  */
+
+#ifndef _HTL_LIBC_LOCK_H
+#define _HTL_LIBC_LOCK_H 1
+
+#include_next <libc-lock.h>
+#include <bits/cancelation.h>
+
+#undef __libc_cleanup_region_start
+#undef __libc_cleanup_region_end
+#undef __libc_cleanup_end
+#undef __libc_cleanup_push
+#undef __libc_cleanup_pop
+
+#define __libc_cleanup_region_start(DOIT, FCT, ARG) \
+  {									      \
+    struct __pthread_cancelation_handler **__handlers = NULL;		      \
+    struct __pthread_cancelation_handler __handler;			      \
+    int __registered = 0;						      \
+    if (DOIT)								      \
+      {									      \
+	__handler.__handler = FCT;					      \
+	__handler.__arg = ARG;						      \
+	if (__pthread_get_cleanup_stack != NULL)			      \
+	  {								      \
+	    __handlers = __pthread_get_cleanup_stack ();		      \
+	    __handler.__next = *__handlers;				      \
+	    *__handlers = &__handler;					      \
+	    __registered = 1;						      \
+	  }								      \
+      }									      \
+
+#define __libc_cleanup_end(DOIT) \
+    if (__registered)							      \
+      *__handlers = __handler.__next;					      \
+    if (DOIT)								      \
+      __handler.__handler (__handler.__arg);				      \
+
+#define __libc_cleanup_region_end(DOIT) \
+    __libc_cleanup_end(DOIT)						      \
+  }
+
+#define __libc_cleanup_push(fct, arg) __libc_cleanup_region_start (1, fct, arg)
+#define __libc_cleanup_pop(execute) __libc_cleanup_region_end (execute)
+
+#if !IS_IN (libpthread)
+# ifdef weak_extern
+weak_extern (__pthread_get_cleanup_stack)
+# else
+#  pragma weak __pthread_get_cleanup_stack
+# endif
+#endif
+
+#endif