text: /*
   *
   * Copyright (c) 1996,1997
   * Silicon Graphics Computer Systems, Inc.
   *
   * Copyright (c) 1997
   * Moscow Center for SPARC Technology
   *
   * Copyright (c) 1999
   * Boris Fomitchev
   *
   * This material is provided "as is", with absolutely no warranty expressed
   * or implied. Any use is at your own risk.
   *
   * Permission to use or copy this software for any purpose is hereby granted
   * without fee, provided the above notices are retained on all copies.
   * Permission to modify the code and to distribute modified code is granted,
   * provided the above notices are retained, and a notice that the code was
   * modified is included with the above copyright notice.
   *
   */
  #ifndef _STLP_ALLOC_C
  #define _STLP_ALLOC_C
  
  #ifndef _STLP_INTERNAL_ALLOC_H
  #  include <stl/_alloc.h>
  #endif
  
  #if defined (__WATCOMC__)
  #  pragma warning 13 9
  #  pragma warning 367 9
  #  pragma warning 368 9
  #endif
  
  _STLP_BEGIN_NAMESPACE
  
  template <class _Alloc>
  void * _STLP_CALL __debug_alloc<_Alloc>::allocate(size_t __n) {
    size_t __total_extra = __extra_before_chunk() + __extra_after_chunk();
    size_t __real_n = __n + __total_extra;
    if (__real_n < __n) {
      //It means that we rolled on size_t, __n must be very large:
      _STLP_THROW_BAD_ALLOC;
    }
    __alloc_header *__result = (__alloc_header *)__allocator_type::allocate(__real_n);
    memset((char*)__result, __shred_byte, __real_n * sizeof(value_type));
    __result->__magic = __magic;
    __result->__type_size = sizeof(value_type);
    __result->_M_size = (uint32_t)__n;
    return ((char*)__result) + (long)__extra_before;
  }
  
  template <class _Alloc>
  void  _STLP_CALL
  __debug_alloc<_Alloc>::deallocate(void *__p, size_t __n) {
    __alloc_header * __real_p = (__alloc_header*)((char *)__p -(long)__extra_before);
    // check integrity
    _STLP_VERBOSE_ASSERT(__real_p->__magic != __deleted_magic, _StlMsg_DBA_DELETED_TWICE)
    _STLP_VERBOSE_ASSERT(__real_p->__magic == __magic, _StlMsg_DBA_NEVER_ALLOCATED)
    _STLP_VERBOSE_ASSERT(__real_p->__type_size == 1,_StlMsg_DBA_TYPE_MISMATCH)
    _STLP_VERBOSE_ASSERT(__real_p->_M_size == __n, _StlMsg_DBA_SIZE_MISMATCH)
    // check pads on both sides
    unsigned char* __tmp;
    for (__tmp = (unsigned char*)(__real_p + 1); __tmp < (unsigned char*)__p; ++__tmp) {
      _STLP_VERBOSE_ASSERT(*__tmp == __shred_byte, _StlMsg_DBA_UNDERRUN)
    }
  
    size_t __real_n = __n + __extra_before_chunk() + __extra_after_chunk();
  
    for (__tmp= ((unsigned char*)__p) + __n * sizeof(value_type);
         __tmp < ((unsigned char*)__real_p) + __real_n ; ++__tmp) {
      _STLP_VERBOSE_ASSERT(*__tmp == __shred_byte, _StlMsg_DBA_OVERRUN)
    }
  
    // that may be unfortunate, just in case
    __real_p->__magic = __deleted_magic;
    memset((char*)__p, __shred_byte, __n * sizeof(value_type));
    __allocator_type::deallocate(__real_p, __real_n);
  }
  
  _STLP_END_NAMESPACE
  
  #endif /*  _STLP_ALLOC_C */
  
  // Local Variables:
  // mode:C++
  // End:
  