/**************************************************************************** * libs/libc/tls/tls_destruct.c * * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed with * this work for additional information regarding copyright ownership. The * ASF licenses this file to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance with the * License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the * License for the specific language governing permissions and limitations * under the License. * ****************************************************************************/ /**************************************************************************** * Included Files ****************************************************************************/ #include #include #include #include #if CONFIG_TLS_NELEM > 0 /**************************************************************************** * Public Functions ****************************************************************************/ /**************************************************************************** * Name: tls_destruct * * Description: * Destruct all TLS data element associated with allocated key * * Input Parameters: * None * * Returned Value: * A set of allocated TLS index * ****************************************************************************/ void tls_destruct(void) { FAR struct task_info_s *info = task_get_info(); FAR struct tls_info_s *tls = up_tls_info(); FAR void *tls_elem_ptr = NULL; tls_dtor_t destructor; tls_ndxset_t tlsset; int candidate; DEBUGASSERT(info != NULL); tlsset = info->ta_tlsset; for (candidate = 0; candidate < CONFIG_TLS_NELEM; candidate++) { /* Is this candidate index available? */ tls_ndxset_t mask = (tls_ndxset_t)1 << candidate; if (tlsset & mask) { tls_elem_ptr = (FAR void *)tls->tl_elem[candidate]; destructor = info->ta_tlsdtor[candidate]; if (tls_elem_ptr && destructor) { destructor(tls_elem_ptr); } } } } #endif /* CONFIG_TLS_NELEM > 0 */