libcsupport/src/free.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /**
0004  * @file
0005  *
0006  * @ingroup libcsupport
0007  *
0008  * @brief calloc()
0009  */
0010
0011 /*
0012  *  COPYRIGHT (c) 1989-2007.
0013  *  On-Line Applications Research Corporation (OAR).
0014  *
0015  * Redistribution and use in source and binary forms, with or without
0016  * modification, are permitted provided that the following conditions
0017  * are met:
0018  * 1. Redistributions of source code must retain the above copyright
0019  *    notice, this list of conditions and the following disclaimer.
0020  * 2. Redistributions in binary form must reproduce the above copyright
0021  *    notice, this list of conditions and the following disclaimer in the
0022  *    documentation and/or other materials provided with the distribution.
0023  *
0024  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0025  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0026  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0027  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0028  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0029  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0030  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0031  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0032  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0033  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0034  * POSSIBILITY OF SUCH DAMAGE.
0035  */
0036
0037 #ifdef HAVE_CONFIG_H
0038 #include "config.h"
0039 #endif
0040
0041 #ifdef RTEMS_NEWLIB
0042 #include "malloc_p.h"
0043 #include <stdlib.h>
0044
0045 #include <rtems/chain.h>
0046
0047 static RTEMS_CHAIN_DEFINE_EMPTY( _Malloc_GC_list );
0048
0049 RTEMS_INTERRUPT_LOCK_DEFINE( static, _Malloc_GC_lock, "Malloc GC" )
0050
0051 static void *_Malloc_Get_deferred_free( void )
0052 {
0053   rtems_interrupt_lock_context lock_context;
0054   void *p;
0055
0056   rtems_interrupt_lock_acquire( &_Malloc_GC_lock, &lock_context );
0057   p = rtems_chain_get_unprotected( &_Malloc_GC_list );
0058   rtems_interrupt_lock_release( &_Malloc_GC_lock, &lock_context );
0059
0060   return p;
0061 }
0062
0063 void _Malloc_Process_deferred_frees( void )
0064 {
0065   rtems_chain_node *to_be_freed;
0066
0067   /*
0068    *  If some free's have been deferred, then do them now.
0069    */
0070   while ( ( to_be_freed = _Malloc_Get_deferred_free() ) != NULL ) {
0071     free( to_be_freed );
0072   }
0073 }
0074
0075 static void _Malloc_Deferred_free( void *p )
0076 {
0077   rtems_interrupt_lock_context lock_context;
0078   rtems_chain_node *node;
0079
0080   node = (rtems_chain_node *) p;
0081
0082   rtems_interrupt_lock_acquire( &_Malloc_GC_lock, &lock_context );
0083   rtems_chain_initialize_node( node );
0084   rtems_chain_append_unprotected( &_Malloc_GC_list, node );
0085   rtems_interrupt_lock_release( &_Malloc_GC_lock, &lock_context );
0086 }
0087
0088 void free(
0089   void *ptr
0090 )
0091 {
0092   if ( !ptr )
0093     return;
0094
0095   /*
0096    *  Do not attempt to free memory if in a critical section or ISR.
0097    */
0098   if ( _Malloc_System_state() != MALLOC_SYSTEM_STATE_NORMAL ) {
0099       _Malloc_Deferred_free(ptr);
0100       return;
0101   }
0102
0103   if ( !_Protected_heap_Free( RTEMS_Malloc_Heap, ptr ) ) {
0104     rtems_fatal( RTEMS_FATAL_SOURCE_INVALID_HEAP_FREE, (rtems_fatal_code) ptr );
0105   }
0106 }
0107 #endif