4656bf128e
supported | .. | style declartion at the class level. added the RDONLY flag to the object header wrote some code to support default values for class-level variables such as instance variables
83 lines
2.9 KiB
C
83 lines
2.9 KiB
C
/*
|
|
* $Id$
|
|
*
|
|
Copyright (c) 2014-2017 Chung, Hyung-Hwan. All rights reserved.
|
|
|
|
Redistribution and use in source and binary forms, with or without
|
|
modification, are permitted provided that the following conditions
|
|
are met:
|
|
1. Redistributions of source code must retain the above copyright
|
|
notice, this list of conditions and the following disclaimer.
|
|
2. Redistributions in binary form must reproduce the above copyright
|
|
notice, this list of conditions and the following disclaimer in the
|
|
documentation and/or other materials provided with the distribution.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
|
|
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
#include "moo-prv.h"
|
|
|
|
moo_heap_t* moo_makeheap (moo_t* moo, moo_oow_t size)
|
|
{
|
|
moo_heap_t* heap;
|
|
|
|
heap = (moo_heap_t*)MOO_MMGR_ALLOC(moo->mmgr, MOO_SIZEOF(*heap) + size);
|
|
if (!heap)
|
|
{
|
|
moo->errnum = MOO_ESYSMEM;
|
|
return MOO_NULL;
|
|
}
|
|
|
|
MOO_MEMSET (heap, 0, MOO_SIZEOF(*heap) + size);
|
|
|
|
heap->base = (moo_uint8_t*)(heap + 1);
|
|
/* adjust the initial allocation pointer to a multiple of the oop size */
|
|
heap->ptr = (moo_uint8_t*)MOO_ALIGN(((moo_uintptr_t)heap->base), MOO_SIZEOF(moo_oop_t));
|
|
heap->limit = heap->base + size;
|
|
|
|
MOO_ASSERT (moo, heap->ptr >= heap->base);
|
|
MOO_ASSERT (moo, heap->limit >= heap->base );
|
|
MOO_ASSERT (moo, heap->limit - heap->base == size);
|
|
|
|
/* if size is too small, heap->ptr may go past heap->limit even at
|
|
* this moment depending on the alignment of heap->base. subsequent
|
|
* calls to submoo_allocheapmem() are bound to fail. Make sure to
|
|
* pass a heap size large enough */
|
|
|
|
return heap;
|
|
}
|
|
|
|
void moo_killheap (moo_t* moo, moo_heap_t* heap)
|
|
{
|
|
MOO_MMGR_FREE (moo->mmgr, heap);
|
|
}
|
|
|
|
void* moo_allocheapmem (moo_t* moo, moo_heap_t* heap, moo_oow_t size)
|
|
{
|
|
moo_uint8_t* ptr;
|
|
|
|
/* check the heap size limit */
|
|
if (heap->ptr >= heap->limit || heap->limit - heap->ptr < size)
|
|
{
|
|
MOO_DEBUG5 (moo, "Cannot allocate %zd bytes from heap - ptr %p limit %p size %zd free %zd\n",
|
|
size, heap->ptr, heap->limit, (moo_oow_t)(heap->limit - heap->base), (moo_oow_t)(heap->limit - heap->ptr));
|
|
moo->errnum = MOO_EOOMEM;
|
|
return MOO_NULL;
|
|
}
|
|
|
|
/* allocation is as simple as moving the heap pointer */
|
|
ptr = heap->ptr;
|
|
heap->ptr += size;
|
|
|
|
return ptr;
|
|
}
|