357 lines
9.3 KiB
C
357 lines
9.3 KiB
C
/*************************************************************************
|
|
*
|
|
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
*
|
|
* Copyright 2000, 2010 Oracle and/or its affiliates.
|
|
*
|
|
* OpenOffice.org - a multi-platform office productivity suite
|
|
*
|
|
* This file is part of OpenOffice.org.
|
|
*
|
|
* OpenOffice.org is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU Lesser General Public License version 3
|
|
* only, as published by the Free Software Foundation.
|
|
*
|
|
* OpenOffice.org is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Lesser General Public License version 3 for more details
|
|
* (a copy is included in the LICENSE file that accompanied this code).
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public License
|
|
* version 3 along with OpenOffice.org. If not, see
|
|
* <http://www.openoffice.org/license.html>
|
|
* for a copy of the LGPLv3 License.
|
|
*
|
|
************************************************************************/
|
|
|
|
#include "rtl/alloc.h"
|
|
|
|
#ifndef INCLUDED_STRING_H
|
|
#include <string.h>
|
|
#define INCLUDED_STRING_H
|
|
#endif
|
|
|
|
#if !defined(FORCE_SYSALLOC)
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* custom allocator includes.
|
|
*
|
|
* ================================================================= */
|
|
|
|
#ifndef INCLUDED_STDIO_H
|
|
#include <stdio.h>
|
|
#define INCLUDED_STDIO_H
|
|
#endif
|
|
#include "alloc_impl.h"
|
|
#include "internal/once.h"
|
|
#include "sal/macros.h"
|
|
#include "osl/diagnose.h"
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* custom allocator internals.
|
|
*
|
|
* ================================================================= */
|
|
|
|
static const sal_Size g_alloc_sizes[] =
|
|
{
|
|
/* powers of 2**(1/4) */
|
|
4 * 4, 6 * 4,
|
|
4 * 8, 5 * 8, 6 * 8, 7 * 8,
|
|
4 * 16, 5 * 16, 6 * 16, 7 * 16,
|
|
4 * 32, 5 * 32, 6 * 32, 7 * 32,
|
|
4 * 64, 5 * 64, 6 * 64, 7 * 64,
|
|
4 * 128, 5 * 128, 6 * 128, 7 * 128,
|
|
4 * 256, 5 * 256, 6 * 256, 7 * 256,
|
|
4 * 512, 5 * 512, 6 * 512, 7 * 512,
|
|
4 * 1024, 5 * 1024, 6 * 1024, 7 * 1024,
|
|
4 * 2048, 5 * 2048, 6 * 2048, 7 * 2048,
|
|
4 * 4096
|
|
};
|
|
|
|
#define RTL_MEMORY_CACHED_LIMIT 4 * 4096
|
|
#define RTL_MEMORY_CACHED_SIZES (sizeof(g_alloc_sizes) / sizeof(g_alloc_sizes[0]))
|
|
|
|
static rtl_cache_type * g_alloc_caches[RTL_MEMORY_CACHED_SIZES] =
|
|
{
|
|
0,
|
|
};
|
|
|
|
#define RTL_MEMALIGN 8
|
|
#define RTL_MEMALIGN_SHIFT 3
|
|
|
|
static rtl_cache_type * g_alloc_table[RTL_MEMORY_CACHED_LIMIT >> RTL_MEMALIGN_SHIFT] =
|
|
{
|
|
0,
|
|
};
|
|
|
|
static rtl_arena_type * gp_alloc_arena = 0;
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* custom allocator initialization / finalization.
|
|
*
|
|
* ================================================================= */
|
|
|
|
static void
|
|
rtl_memory_once_init (void)
|
|
{
|
|
{
|
|
/* global memory arena */
|
|
OSL_ASSERT(gp_alloc_arena == 0);
|
|
|
|
gp_alloc_arena = rtl_arena_create (
|
|
"rtl_alloc_arena",
|
|
2048, /* quantum */
|
|
0, /* w/o quantum caching */
|
|
0, /* default source */
|
|
rtl_arena_alloc,
|
|
rtl_arena_free,
|
|
0 /* flags */
|
|
);
|
|
OSL_ASSERT(gp_alloc_arena != 0);
|
|
}
|
|
{
|
|
sal_Size size;
|
|
int i, n = RTL_MEMORY_CACHED_SIZES;
|
|
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
char name[RTL_CACHE_NAME_LENGTH + 1];
|
|
(void) snprintf (name, sizeof(name), "rtl_alloc_%lu", g_alloc_sizes[i]);
|
|
g_alloc_caches[i] = rtl_cache_create (name, g_alloc_sizes[i], 0, NULL, NULL, NULL, NULL, NULL, 0);
|
|
}
|
|
|
|
size = RTL_MEMALIGN;
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
while (size <= g_alloc_sizes[i])
|
|
{
|
|
g_alloc_table[(size - 1) >> RTL_MEMALIGN_SHIFT] = g_alloc_caches[i];
|
|
size += RTL_MEMALIGN;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
static int
|
|
rtl_memory_init (void)
|
|
{
|
|
static sal_once_type g_once = SAL_ONCE_INIT;
|
|
SAL_ONCE(&g_once, rtl_memory_once_init);
|
|
return (gp_alloc_arena != 0);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
/*
|
|
Issue http://udk.openoffice.org/issues/show_bug.cgi?id=92388
|
|
|
|
Mac OS X does not seem to support "__cxa__atexit", thus leading
|
|
to the situation that "__attribute__((destructor))__" functions
|
|
(in particular "rtl_memory_fini") become called _before_ global
|
|
C++ object d'tors.
|
|
|
|
Delegated the call to "rtl_memory_fini" into a dummy C++ object,
|
|
see memory_fini.cxx .
|
|
*/
|
|
#if defined(__GNUC__) && !defined(MACOSX)
|
|
static void rtl_memory_fini (void) __attribute__((destructor));
|
|
#elif defined(__SUNPRO_C) || defined(__SUNPRO_CC)
|
|
#pragma fini(rtl_memory_fini)
|
|
static void rtl_memory_fini (void);
|
|
#endif /* __GNUC__ || __SUNPRO_C */
|
|
|
|
void
|
|
rtl_memory_fini (void)
|
|
{
|
|
int i, n;
|
|
|
|
/* clear g_alloc_table */
|
|
memset (g_alloc_table, 0, sizeof(g_alloc_table));
|
|
|
|
/* cleanup g_alloc_caches */
|
|
for (i = 0, n = RTL_MEMORY_CACHED_SIZES; i < n; i++)
|
|
{
|
|
if (g_alloc_caches[i] != 0)
|
|
{
|
|
rtl_cache_destroy (g_alloc_caches[i]);
|
|
g_alloc_caches[i] = 0;
|
|
}
|
|
}
|
|
|
|
/* cleanup gp_alloc_arena */
|
|
if (gp_alloc_arena != 0)
|
|
{
|
|
rtl_arena_destroy (gp_alloc_arena);
|
|
gp_alloc_arena = 0;
|
|
}
|
|
}
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* custom allocator implemenation.
|
|
*
|
|
* ================================================================= */
|
|
|
|
void *
|
|
SAL_CALL rtl_allocateMemory (sal_Size n) SAL_THROW_EXTERN_C()
|
|
{
|
|
void * p = 0;
|
|
if (n > 0)
|
|
{
|
|
char * addr;
|
|
sal_Size size = RTL_MEMORY_ALIGN(n + RTL_MEMALIGN, RTL_MEMALIGN);
|
|
|
|
OSL_ASSERT(RTL_MEMALIGN >= sizeof(sal_Size));
|
|
if (n >= SAL_MAX_SIZE - (RTL_MEMALIGN + RTL_MEMALIGN - 1))
|
|
{
|
|
/* requested size too large for roundup alignment */
|
|
return 0;
|
|
}
|
|
|
|
try_alloc:
|
|
if (size <= RTL_MEMORY_CACHED_LIMIT)
|
|
addr = (char*)rtl_cache_alloc(g_alloc_table[(size - 1) >> RTL_MEMALIGN_SHIFT]);
|
|
else
|
|
addr = (char*)rtl_arena_alloc (gp_alloc_arena, &size);
|
|
|
|
if (addr != 0)
|
|
{
|
|
((sal_Size*)(addr))[0] = size;
|
|
p = addr + RTL_MEMALIGN;
|
|
}
|
|
else if (gp_alloc_arena == 0)
|
|
{
|
|
if (rtl_memory_init())
|
|
{
|
|
/* try again */
|
|
goto try_alloc;
|
|
}
|
|
}
|
|
}
|
|
return (p);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void SAL_CALL rtl_freeMemory (void * p) SAL_THROW_EXTERN_C()
|
|
{
|
|
if (p != 0)
|
|
{
|
|
char * addr = (char*)(p) - RTL_MEMALIGN;
|
|
sal_Size size = ((sal_Size*)(addr))[0];
|
|
|
|
if (size <= RTL_MEMORY_CACHED_LIMIT)
|
|
rtl_cache_free(g_alloc_table[(size - 1) >> RTL_MEMALIGN_SHIFT], addr);
|
|
else
|
|
rtl_arena_free (gp_alloc_arena, addr, size);
|
|
}
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void * SAL_CALL rtl_reallocateMemory (void * p, sal_Size n) SAL_THROW_EXTERN_C()
|
|
{
|
|
if (n > 0)
|
|
{
|
|
if (p != 0)
|
|
{
|
|
void * p_old = p;
|
|
sal_Size n_old = ((sal_Size*)( (char*)(p) - RTL_MEMALIGN ))[0] - RTL_MEMALIGN;
|
|
|
|
p = rtl_allocateMemory (n);
|
|
if (p != 0)
|
|
{
|
|
memcpy (p, p_old, SAL_MIN(n, n_old));
|
|
rtl_freeMemory (p_old);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
p = rtl_allocateMemory (n);
|
|
}
|
|
}
|
|
else if (p != 0)
|
|
{
|
|
rtl_freeMemory (p), p = 0;
|
|
}
|
|
return (p);
|
|
}
|
|
|
|
#else /* FORCE_SYSALLOC */
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* system allocator includes.
|
|
*
|
|
* ================================================================= */
|
|
|
|
#ifndef INCLUDED_STDLIB_H
|
|
#include <stdlib.h>
|
|
#define INCLUDED_STDLIB_H
|
|
#endif
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* system allocator implemenation.
|
|
*
|
|
* ================================================================= */
|
|
|
|
void * SAL_CALL rtl_allocateMemory (sal_Size n)
|
|
{
|
|
return malloc (n);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void SAL_CALL rtl_freeMemory (void * p)
|
|
{
|
|
free (p);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void * SAL_CALL rtl_reallocateMemory (void * p, sal_Size n)
|
|
{
|
|
return realloc (p, n);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void
|
|
rtl_memory_fini (void)
|
|
{
|
|
/* nothing to do */
|
|
}
|
|
|
|
#endif /* FORCE_SYSALLOC */
|
|
|
|
/* ================================================================= *
|
|
*
|
|
* rtl_(allocate|free)ZeroMemory() implemenation.
|
|
*
|
|
* ================================================================= */
|
|
|
|
void * SAL_CALL rtl_allocateZeroMemory (sal_Size n) SAL_THROW_EXTERN_C()
|
|
{
|
|
void * p = rtl_allocateMemory (n);
|
|
if (p != 0)
|
|
memset (p, 0, n);
|
|
return (p);
|
|
}
|
|
|
|
/* ================================================================= */
|
|
|
|
void SAL_CALL rtl_freeZeroMemory (void * p, sal_Size n) SAL_THROW_EXTERN_C()
|
|
{
|
|
if (p != 0)
|
|
{
|
|
memset (p, 0, n);
|
|
rtl_freeMemory (p);
|
|
}
|
|
}
|
|
|
|
/* ================================================================= */
|