cannam@154: /* Copyright (C) 2002-2003 Jean-Marc Valin
cannam@154:    Copyright (C) 2007-2009 Xiph.Org Foundation */
cannam@154: /**
cannam@154:    @file stack_alloc.h
cannam@154:    @brief Temporary memory allocation on stack
cannam@154: */
cannam@154: /*
cannam@154:    Redistribution and use in source and binary forms, with or without
cannam@154:    modification, are permitted provided that the following conditions
cannam@154:    are met:
cannam@154: 
cannam@154:    - Redistributions of source code must retain the above copyright
cannam@154:    notice, this list of conditions and the following disclaimer.
cannam@154: 
cannam@154:    - Redistributions in binary form must reproduce the above copyright
cannam@154:    notice, this list of conditions and the following disclaimer in the
cannam@154:    documentation and/or other materials provided with the distribution.
cannam@154: 
cannam@154:    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
cannam@154:    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
cannam@154:    LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
cannam@154:    A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
cannam@154:    OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
cannam@154:    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
cannam@154:    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
cannam@154:    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
cannam@154:    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
cannam@154:    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
cannam@154:    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
cannam@154: */
cannam@154: 
cannam@154: #ifndef STACK_ALLOC_H
cannam@154: #define STACK_ALLOC_H
cannam@154: 
cannam@154: #include "opus_types.h"
cannam@154: #include "opus_defines.h"
cannam@154: 
cannam@154: #if (!defined (VAR_ARRAYS) && !defined (USE_ALLOCA) && !defined (NONTHREADSAFE_PSEUDOSTACK))
cannam@154: #error "Opus requires one of VAR_ARRAYS, USE_ALLOCA, or NONTHREADSAFE_PSEUDOSTACK be defined to select the temporary allocation mode."
cannam@154: #endif
cannam@154: 
cannam@154: #ifdef USE_ALLOCA
cannam@154: # ifdef WIN32
cannam@154: #  include <malloc.h>
cannam@154: # else
cannam@154: #  ifdef HAVE_ALLOCA_H
cannam@154: #   include <alloca.h>
cannam@154: #  else
cannam@154: #   include <stdlib.h>
cannam@154: #  endif
cannam@154: # endif
cannam@154: #endif
cannam@154: 
cannam@154: /**
cannam@154:  * @def ALIGN(stack, size)
cannam@154:  *
cannam@154:  * Aligns the stack to a 'size' boundary
cannam@154:  *
cannam@154:  * @param stack Stack
cannam@154:  * @param size  New size boundary
cannam@154:  */
cannam@154: 
cannam@154: /**
cannam@154:  * @def PUSH(stack, size, type)
cannam@154:  *
cannam@154:  * Allocates 'size' elements of type 'type' on the stack
cannam@154:  *
cannam@154:  * @param stack Stack
cannam@154:  * @param size  Number of elements
cannam@154:  * @param type  Type of element
cannam@154:  */
cannam@154: 
cannam@154: /**
cannam@154:  * @def VARDECL(var)
cannam@154:  *
cannam@154:  * Declare variable on stack
cannam@154:  *
cannam@154:  * @param var Variable to declare
cannam@154:  */
cannam@154: 
cannam@154: /**
cannam@154:  * @def ALLOC(var, size, type)
cannam@154:  *
cannam@154:  * Allocate 'size' elements of 'type' on stack
cannam@154:  *
cannam@154:  * @param var  Name of variable to allocate
cannam@154:  * @param size Number of elements
cannam@154:  * @param type Type of element
cannam@154:  */
cannam@154: 
cannam@154: #if defined(VAR_ARRAYS)
cannam@154: 
cannam@154: #define VARDECL(type, var)
cannam@154: #define ALLOC(var, size, type) type var[size]
cannam@154: #define SAVE_STACK
cannam@154: #define RESTORE_STACK
cannam@154: #define ALLOC_STACK
cannam@154: /* C99 does not allow VLAs of size zero */
cannam@154: #define ALLOC_NONE 1
cannam@154: 
cannam@154: #elif defined(USE_ALLOCA)
cannam@154: 
cannam@154: #define VARDECL(type, var) type *var
cannam@154: 
cannam@154: # ifdef WIN32
cannam@154: #  define ALLOC(var, size, type) var = ((type*)_alloca(sizeof(type)*(size)))
cannam@154: # else
cannam@154: #  define ALLOC(var, size, type) var = ((type*)alloca(sizeof(type)*(size)))
cannam@154: # endif
cannam@154: 
cannam@154: #define SAVE_STACK
cannam@154: #define RESTORE_STACK
cannam@154: #define ALLOC_STACK
cannam@154: #define ALLOC_NONE 0
cannam@154: 
cannam@154: #else
cannam@154: 
cannam@154: #ifdef CELT_C
cannam@154: char *scratch_ptr=0;
cannam@154: char *global_stack=0;
cannam@154: #else
cannam@154: extern char *global_stack;
cannam@154: extern char *scratch_ptr;
cannam@154: #endif /* CELT_C */
cannam@154: 
cannam@154: #ifdef ENABLE_VALGRIND
cannam@154: 
cannam@154: #include <valgrind/memcheck.h>
cannam@154: 
cannam@154: #ifdef CELT_C
cannam@154: char *global_stack_top=0;
cannam@154: #else
cannam@154: extern char *global_stack_top;
cannam@154: #endif /* CELT_C */
cannam@154: 
cannam@154: #define ALIGN(stack, size) ((stack) += ((size) - (long)(stack)) & ((size) - 1))
cannam@154: #define PUSH(stack, size, type) (VALGRIND_MAKE_MEM_NOACCESS(stack, global_stack_top-stack),ALIGN((stack),sizeof(type)/sizeof(char)),VALGRIND_MAKE_MEM_UNDEFINED(stack, ((size)*sizeof(type)/sizeof(char))),(stack)+=(2*(size)*sizeof(type)/sizeof(char)),(type*)((stack)-(2*(size)*sizeof(type)/sizeof(char))))
cannam@154: #define RESTORE_STACK ((global_stack = _saved_stack),VALGRIND_MAKE_MEM_NOACCESS(global_stack, global_stack_top-global_stack))
cannam@154: #define ALLOC_STACK char *_saved_stack; ((global_stack = (global_stack==0) ? ((global_stack_top=opus_alloc_scratch(GLOBAL_STACK_SIZE*2)+(GLOBAL_STACK_SIZE*2))-(GLOBAL_STACK_SIZE*2)) : global_stack),VALGRIND_MAKE_MEM_NOACCESS(global_stack, global_stack_top-global_stack)); _saved_stack = global_stack;
cannam@154: 
cannam@154: #else
cannam@154: 
cannam@154: #define ALIGN(stack, size) ((stack) += ((size) - (long)(stack)) & ((size) - 1))
cannam@154: #define PUSH(stack, size, type) (ALIGN((stack),sizeof(type)/sizeof(char)),(stack)+=(size)*(sizeof(type)/sizeof(char)),(type*)((stack)-(size)*(sizeof(type)/sizeof(char))))
cannam@154: #if 0 /* Set this to 1 to instrument pseudostack usage */
cannam@154: #define RESTORE_STACK (printf("%ld %s:%d\n", global_stack-scratch_ptr, __FILE__, __LINE__),global_stack = _saved_stack)
cannam@154: #else
cannam@154: #define RESTORE_STACK (global_stack = _saved_stack)
cannam@154: #endif
cannam@154: #define ALLOC_STACK char *_saved_stack; (global_stack = (global_stack==0) ? (scratch_ptr=opus_alloc_scratch(GLOBAL_STACK_SIZE)) : global_stack); _saved_stack = global_stack;
cannam@154: 
cannam@154: #endif /* ENABLE_VALGRIND */
cannam@154: 
cannam@154: #include "os_support.h"
cannam@154: #define VARDECL(type, var) type *var
cannam@154: #define ALLOC(var, size, type) var = PUSH(global_stack, size, type)
cannam@154: #define SAVE_STACK char *_saved_stack = global_stack;
cannam@154: #define ALLOC_NONE 0
cannam@154: 
cannam@154: #endif /* VAR_ARRAYS */
cannam@154: 
cannam@154: 
cannam@154: #ifdef ENABLE_VALGRIND
cannam@154: 
cannam@154: #include <valgrind/memcheck.h>
cannam@154: #define OPUS_CHECK_ARRAY(ptr, len) VALGRIND_CHECK_MEM_IS_DEFINED(ptr, len*sizeof(*ptr))
cannam@154: #define OPUS_CHECK_VALUE(value) VALGRIND_CHECK_VALUE_IS_DEFINED(value)
cannam@154: #define OPUS_CHECK_ARRAY_COND(ptr, len) VALGRIND_CHECK_MEM_IS_DEFINED(ptr, len*sizeof(*ptr))
cannam@154: #define OPUS_CHECK_VALUE_COND(value) VALGRIND_CHECK_VALUE_IS_DEFINED(value)
cannam@154: #define OPUS_PRINT_INT(value) do {fprintf(stderr, #value " = %d at %s:%d\n", value, __FILE__, __LINE__);}while(0)
cannam@154: #define OPUS_FPRINTF fprintf
cannam@154: 
cannam@154: #else
cannam@154: 
cannam@154: static OPUS_INLINE int _opus_false(void) {return 0;}
cannam@154: #define OPUS_CHECK_ARRAY(ptr, len) _opus_false()
cannam@154: #define OPUS_CHECK_VALUE(value) _opus_false()
cannam@154: #define OPUS_PRINT_INT(value) do{}while(0)
cannam@154: #define OPUS_FPRINTF (void)
cannam@154: 
cannam@154: #endif
cannam@154: 
cannam@154: 
cannam@154: #endif /* STACK_ALLOC_H */