if DISABLE_GC
GC_FILE = \
- nogc.c
+ gc-none.cpp
endif
if ENABLE_GC_BOEHM
boehm-gc
GC_FILE = \
- boehm.c
+ gc-boehm.cpp
GC_LIB = \
$(top_builddir)/src/mm/boehm-gc/libgc.la
+++ /dev/null
-/* src/mm/boehm.c - interface for boehm gc
-
- Copyright (C) 1996-2005, 2006, 2007, 2008
- CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
-
- This file is part of CACAO.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License as
- published by the Free Software Foundation; either version 2, or (at
- your option) any later version.
-
- This program 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
- General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02110-1301, USA.
-
-*/
-
-
-#include "config.h"
-
-#include <stdint.h>
-
-#if defined(ENABLE_THREADS) && defined(__LINUX__)
-#define GC_LINUX_THREADS
-#endif
-#if defined(ENABLE_THREADS) && defined(__IRIX__)
-#define GC_IRIX_THREADS
-#endif
-#if defined(ENABLE_THREADS) && defined(__DARWIN__)
-#define GC_DARWIN_THREADS
-#endif
-
-#include "boehm-gc/include/gc.h"
-#include "mm/gc.hpp"
-#include "mm/memory.h"
-
-#include "toolbox/logging.h"
-
-#include "vm/builtin.h"
-#include "vm/exceptions.h"
-#include "vm/finalizer.h"
-#include "vm/global.h"
-#include "vm/stringlocal.h"
-#include "vm/vm.hpp"
-
-#include "vmcore/loader.h"
-#include "vmcore/options.h"
-#include "vmcore/rt-timing.h"
-
-
-/* global variables ***********************************************************/
-
-static bool in_gc_out_of_memory = false; /* is GC out of memory? */
-
-
-/* prototype static functions *************************************************/
-
-static void gc_ignore_warnings(char *msg, GC_word arg);
-
-
-/* gc_init *********************************************************************
-
- Initializes the boehm garbage collector.
-
-*******************************************************************************/
-
-void gc_init(size_t heapmaxsize, size_t heapstartsize)
-{
- size_t heapcurrentsize;
-
- TRACESUBSYSTEMINITIALIZATION("gc_init");
-
- /* just to be sure (should be set to 1 by JAVA_FINALIZATION macro) */
-
- GC_java_finalization = 1;
-
- /* Ignore pointers that do not point to the start of an object. */
-
- GC_all_interior_pointers = 0;
-
- /* suppress warnings */
-
- GC_set_warn_proc(gc_ignore_warnings);
-
- /* install a GC notifier */
-
- GC_finalize_on_demand = 1;
- GC_finalizer_notifier = finalizer_notify;
-
- /* define OOM function */
-
- GC_oom_fn = gc_out_of_memory;
-
- GC_INIT();
-
- /* set the maximal heap size */
-
- GC_set_max_heap_size(heapmaxsize);
-
- /* set the initial heap size */
-
- heapcurrentsize = GC_get_heap_size();
-
- if (heapstartsize > heapcurrentsize)
- GC_expand_hp(heapstartsize - heapcurrentsize);
-}
-
-
-static void gc_ignore_warnings(char *msg, GC_word arg)
-{
-}
-
-
-void *heap_alloc_uncollectable(size_t size)
-{
- void *p;
-
- p = GC_MALLOC_UNCOLLECTABLE(size);
-
- /* clear allocated memory region */
-
- MSET(p, 0, uint8_t, size);
-
- return p;
-}
-
-
-/* heap_alloc ******************************************************************
-
- Allocates memory on the Java heap.
-
-*******************************************************************************/
-
-void *heap_alloc(size_t size, int references, methodinfo *finalizer, bool collect)
-{
- void *p;
-#if defined(ENABLE_RT_TIMING)
- struct timespec time_start, time_end;
-#endif
-
- RT_TIMING_GET_TIME(time_start);
-
- /* We can't use a bool here for references, as it's passed as a
- bitmask in builtin_new. Thus we check for != 0. */
-
- if (references != 0)
- p = GC_MALLOC(size);
- else
- p = GC_MALLOC_ATOMIC(size);
-
- if (p == NULL)
- return NULL;
-
- if (finalizer != NULL)
- GC_REGISTER_FINALIZER_NO_ORDER(p, finalizer_run, 0, 0, 0);
-
- /* clear allocated memory region */
-
- MSET(p, 0, uint8_t, size);
-
- RT_TIMING_GET_TIME(time_end);
- RT_TIMING_TIME_DIFF(time_start, time_end, RT_TIMING_GC_ALLOC);
-
- return p;
-}
-
-
-void heap_free(void *p)
-{
- GC_FREE(p);
-}
-
-void gc_call(void)
-{
- if (opt_verbosegc)
- dolog("Garbage Collection: previous/now = %d / %d ",
- 0, 0);
-
- GC_gcollect();
-}
-
-
-int64_t gc_get_heap_size(void)
-{
- return GC_get_heap_size();
-}
-
-
-int64_t gc_get_free_bytes(void)
-{
- return GC_get_free_bytes();
-}
-
-
-/* gc_get_total_bytes **********************************************************
-
- Returns the number of total bytes currently used on the Java heap.
-
-*******************************************************************************/
-
-int64_t gc_get_total_bytes(void)
-{
- return GC_get_total_bytes();
-}
-
-
-int64_t gc_get_max_heap_size(void)
-{
- return GC_get_max_heap_size();
-}
-
-
-void gc_invoke_finalizers(void)
-{
- GC_invoke_finalizers();
-}
-
-
-void gc_finalize_all(void)
-{
- GC_finalize_all();
-}
-
-
-/* gc_out_of_memory ************************************************************
-
- This function is called when boehm detects that it is OOM.
-
-*******************************************************************************/
-
-void *gc_out_of_memory(size_t bytes_requested)
-{
- /* if this happens, we are REALLY out of memory */
-
- if (in_gc_out_of_memory) {
- /* this is all we can do... */
- vm_abort("gc_out_of_memory: out of memory");
- }
-
- in_gc_out_of_memory = true;
-
- /* try to release some memory */
-
- gc_call();
-
- /* now instantiate the exception */
-
- exceptions_throw_outofmemoryerror();
-
- in_gc_out_of_memory = false;
-
- return NULL;
-}
-
-
-/*
- * These are local overrides for various environment variables in Emacs.
- * Please do not remove this and leave it at the end of the file, where
- * Emacs will automagically detect them.
- * ---------------------------------------------------------------------
- * Local variables:
- * mode: c
- * indent-tabs-mode: t
- * c-basic-offset: 4
- * tab-width: 4
- * End:
- */
--- /dev/null
+/* src/mm/gc-boehm.cpp - interface for boehm gc
+
+ Copyright (C) 1996-2005, 2006, 2007, 2008
+ CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
+
+ This file is part of CACAO.
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License as
+ published by the Free Software Foundation; either version 2, or (at
+ your option) any later version.
+
+ This program 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
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
+
+*/
+
+
+#include "config.h"
+
+#include <stdint.h>
+
+#if defined(ENABLE_THREADS) && defined(__LINUX__)
+#define GC_LINUX_THREADS
+#endif
+#if defined(ENABLE_THREADS) && defined(__IRIX__)
+#define GC_IRIX_THREADS
+#endif
+#if defined(ENABLE_THREADS) && defined(__DARWIN__)
+#define GC_DARWIN_THREADS
+#endif
+
+#include "boehm-gc/include/gc.h"
+#include "mm/gc.hpp"
+#include "mm/memory.h"
+
+#include "toolbox/logging.h"
+
+#include "vm/builtin.h"
+#include "vm/exceptions.h"
+#include "vm/finalizer.h"
+#include "vm/global.h"
+#include "vm/stringlocal.h"
+#include "vm/vm.hpp"
+
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
+#include "vmcore/rt-timing.h"
+
+
+/* global variables ***********************************************************/
+
+static bool in_gc_out_of_memory = false; /* is GC out of memory? */
+
+
+/* prototype static functions *************************************************/
+
+static void gc_ignore_warnings(char *msg, GC_word arg);
+
+
+/* gc_init *********************************************************************
+
+ Initializes the boehm garbage collector.
+
+*******************************************************************************/
+
+void gc_init(size_t heapmaxsize, size_t heapstartsize)
+{
+ size_t heapcurrentsize;
+
+ TRACESUBSYSTEMINITIALIZATION("gc_init");
+
+ /* just to be sure (should be set to 1 by JAVA_FINALIZATION macro) */
+
+ GC_java_finalization = 1;
+
+ /* Ignore pointers that do not point to the start of an object. */
+
+ GC_all_interior_pointers = 0;
+
+ /* suppress warnings */
+
+ GC_set_warn_proc(gc_ignore_warnings);
+
+ /* install a GC notifier */
+
+ GC_finalize_on_demand = 1;
+ GC_finalizer_notifier = finalizer_notify;
+
+ /* define OOM function */
+
+ GC_oom_fn = gc_out_of_memory;
+
+ GC_INIT();
+
+ /* set the maximal heap size */
+
+ GC_set_max_heap_size(heapmaxsize);
+
+ /* set the initial heap size */
+
+ heapcurrentsize = GC_get_heap_size();
+
+ if (heapstartsize > heapcurrentsize)
+ GC_expand_hp(heapstartsize - heapcurrentsize);
+}
+
+
+static void gc_ignore_warnings(char *msg, GC_word arg)
+{
+}
+
+
+void *heap_alloc_uncollectable(size_t size)
+{
+ void *p;
+
+ p = GC_MALLOC_UNCOLLECTABLE(size);
+
+ /* clear allocated memory region */
+
+ MSET(p, 0, uint8_t, size);
+
+ return p;
+}
+
+
+/* heap_alloc ******************************************************************
+
+ Allocates memory on the Java heap.
+
+*******************************************************************************/
+
+void *heap_alloc(size_t size, int references, methodinfo *finalizer, bool collect)
+{
+ void *p;
+#if defined(ENABLE_RT_TIMING)
+ struct timespec time_start, time_end;
+#endif
+
+ RT_TIMING_GET_TIME(time_start);
+
+ /* We can't use a bool here for references, as it's passed as a
+ bitmask in builtin_new. Thus we check for != 0. */
+
+ if (references != 0)
+ p = GC_MALLOC(size);
+ else
+ p = GC_MALLOC_ATOMIC(size);
+
+ if (p == NULL)
+ return NULL;
+
+ if (finalizer != NULL)
+ GC_REGISTER_FINALIZER_NO_ORDER(p, finalizer_run, 0, 0, 0);
+
+ /* clear allocated memory region */
+
+ MSET(p, 0, uint8_t, size);
+
+ RT_TIMING_GET_TIME(time_end);
+ RT_TIMING_TIME_DIFF(time_start, time_end, RT_TIMING_GC_ALLOC);
+
+ return p;
+}
+
+
+void heap_free(void *p)
+{
+ GC_FREE(p);
+}
+
+void gc_call(void)
+{
+ if (opt_verbosegc)
+ dolog("Garbage Collection: previous/now = %d / %d ",
+ 0, 0);
+
+ GC_gcollect();
+}
+
+
+int64_t gc_get_heap_size(void)
+{
+ return GC_get_heap_size();
+}
+
+
+int64_t gc_get_free_bytes(void)
+{
+ return GC_get_free_bytes();
+}
+
+
+/* gc_get_total_bytes **********************************************************
+
+ Returns the number of total bytes currently used on the Java heap.
+
+*******************************************************************************/
+
+int64_t gc_get_total_bytes(void)
+{
+ return GC_get_total_bytes();
+}
+
+
+int64_t gc_get_max_heap_size(void)
+{
+ return GC_get_max_heap_size();
+}
+
+
+void gc_invoke_finalizers(void)
+{
+ GC_invoke_finalizers();
+}
+
+
+void gc_finalize_all(void)
+{
+ GC_finalize_all();
+}
+
+
+/* gc_out_of_memory ************************************************************
+
+ This function is called when boehm detects that it is OOM.
+
+*******************************************************************************/
+
+void *gc_out_of_memory(size_t bytes_requested)
+{
+ /* if this happens, we are REALLY out of memory */
+
+ if (in_gc_out_of_memory) {
+ /* this is all we can do... */
+ vm_abort("gc_out_of_memory: out of memory");
+ }
+
+ in_gc_out_of_memory = true;
+
+ /* try to release some memory */
+
+ gc_call();
+
+ /* now instantiate the exception */
+
+ exceptions_throw_outofmemoryerror();
+
+ in_gc_out_of_memory = false;
+
+ return NULL;
+}
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ */
--- /dev/null
+/* src/mm/gc-none.cpp - allocates memory through malloc (no GC)
+
+ Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
+ C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
+ E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
+ J. Wenninger, Institut f. Computersprachen - TU Wien
+
+ This file is part of CACAO.
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License as
+ published by the Free Software Foundation; either version 2, or (at
+ your option) any later version.
+
+ This program 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
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
+
+*/
+
+
+#include "config.h"
+
+#include <stdlib.h>
+
+#if defined(HAVE_SYS_MMAN_H)
+# include <sys/mman.h>
+#endif
+
+#include "vm/types.h"
+
+#include "boehm-gc/include/gc.h"
+
+#include "mm/gc.hpp"
+#include "mm/memory.h"
+
+#include "toolbox/logging.h"
+
+#include "vm/builtin.h"
+#include "vm/exceptions.h"
+#include "vm/global.h"
+#include "vm/stringlocal.h"
+#include "vm/vm.hpp"
+
+#include "vmcore/loader.h"
+#include "vmcore/options.h"
+
+
+/* global stuff ***************************************************************/
+
+#define MMAP_HEAPADDRESS 0x10000000 /* try to map the heap to this addr. */
+#define ALIGNSIZE 8
+
+static void *mmapptr = NULL;
+static int mmapsize = 0;
+static void *mmaptop = NULL;
+
+
+void *heap_alloc(u4 size, u4 references, methodinfo *finalizer, bool collect)
+{
+ void *m;
+
+ mmapptr = (void *) MEMORY_ALIGN((ptrint) mmapptr, ALIGNSIZE);
+
+ m = mmapptr;
+ mmapptr = (void *) ((ptrint) mmapptr + size);
+
+ if (mmapptr > mmaptop)
+ vm_abort("heap_alloc: out of memory");
+
+ MSET(m, 0, u1, size);
+
+ return m;
+}
+
+
+void *heap_alloc_uncollectable(u4 size)
+{
+ return heap_alloc(size, false, NULL, false);
+}
+
+
+void heap_free(void *p)
+{
+ /* nop */
+}
+
+
+
+void gc_init(u4 heapmaxsize, u4 heapstartsize)
+{
+ heapmaxsize = MEMORY_ALIGN(heapmaxsize, ALIGNSIZE);
+
+#if defined(HAVE_MMAP)
+ mmapptr = mmap((void *) MMAP_HEAPADDRESS,
+ (size_t) heapmaxsize,
+ PROT_READ | PROT_WRITE,
+ MAP_PRIVATE |
+# if defined(MAP_ANONYMOUS)
+ MAP_ANONYMOUS,
+# elif defined(MAP_ANON)
+ MAP_ANON,
+# else
+ 0,
+# endif
+ -1,
+ (off_t) 0);
+
+ if (mmapptr == MAP_FAILED)
+ vm_abort("gc_init: out of memory");
+#else
+ mmapptr = malloc(heapmaxsize);
+
+ if (mmapptr == NULL)
+ vm_abort("gc_init: out of memory");
+#endif
+
+ mmapsize = heapmaxsize;
+ mmaptop = (void *) ((ptrint) mmapptr + mmapsize);
+}
+
+
+void gc_call(void)
+{
+ log_text("GC call: nothing done...");
+ /* nop */
+}
+
+
+s8 gc_get_heap_size(void)
+{
+ return 0;
+}
+
+
+s8 gc_get_free_bytes(void)
+{
+ return 0;
+}
+
+
+s8 gc_get_total_bytes(void)
+{
+ return 0;
+}
+
+
+s8 gc_get_max_heap_size(void)
+{
+ return 0;
+}
+
+
+void gc_invoke_finalizers(void)
+{
+ /* nop */
+}
+
+
+void gc_finalize_all(void)
+{
+ /* nop */
+}
+
+
+/*
+ * These are local overrides for various environment variables in Emacs.
+ * Please do not remove this and leave it at the end of the file, where
+ * Emacs will automagically detect them.
+ * ---------------------------------------------------------------------
+ * Local variables:
+ * mode: c
+ * indent-tabs-mode: t
+ * c-basic-offset: 4
+ * tab-width: 4
+ * End:
+ */
+++ /dev/null
-/* src/mm/nogc.c - allocates memory through malloc (no GC)
-
- Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
- C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
- E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
- J. Wenninger, Institut f. Computersprachen - TU Wien
-
- This file is part of CACAO.
-
- This program is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License as
- published by the Free Software Foundation; either version 2, or (at
- your option) any later version.
-
- This program 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
- General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02110-1301, USA.
-
-*/
-
-
-#include "config.h"
-
-#include <stdlib.h>
-
-#if defined(HAVE_SYS_MMAN_H)
-# include <sys/mman.h>
-#endif
-
-#include "vm/types.h"
-
-#include "boehm-gc/include/gc.h"
-
-#include "mm/gc.hpp"
-#include "mm/memory.h"
-
-#include "toolbox/logging.h"
-
-#include "vm/builtin.h"
-#include "vm/exceptions.h"
-#include "vm/global.h"
-#include "vm/stringlocal.h"
-#include "vm/vm.hpp"
-
-#include "vmcore/loader.h"
-#include "vmcore/options.h"
-
-
-/* global stuff ***************************************************************/
-
-#define MMAP_HEAPADDRESS 0x10000000 /* try to map the heap to this addr. */
-#define ALIGNSIZE 8
-
-static void *mmapptr = NULL;
-static int mmapsize = 0;
-static void *mmaptop = NULL;
-
-
-void *heap_alloc(u4 size, u4 references, methodinfo *finalizer, bool collect)
-{
- void *m;
-
- mmapptr = (void *) MEMORY_ALIGN((ptrint) mmapptr, ALIGNSIZE);
-
- m = mmapptr;
- mmapptr = (void *) ((ptrint) mmapptr + size);
-
- if (mmapptr > mmaptop)
- vm_abort("heap_alloc: out of memory");
-
- MSET(m, 0, u1, size);
-
- return m;
-}
-
-
-void *heap_alloc_uncollectable(u4 size)
-{
- return heap_alloc(size, false, NULL, false);
-}
-
-
-void heap_free(void *p)
-{
- /* nop */
-}
-
-
-
-void gc_init(u4 heapmaxsize, u4 heapstartsize)
-{
- heapmaxsize = MEMORY_ALIGN(heapmaxsize, ALIGNSIZE);
-
-#if defined(HAVE_MMAP)
- mmapptr = mmap((void *) MMAP_HEAPADDRESS,
- (size_t) heapmaxsize,
- PROT_READ | PROT_WRITE,
- MAP_PRIVATE |
-# if defined(MAP_ANONYMOUS)
- MAP_ANONYMOUS,
-# elif defined(MAP_ANON)
- MAP_ANON,
-# else
- 0,
-# endif
- -1,
- (off_t) 0);
-
- if (mmapptr == MAP_FAILED)
- vm_abort("gc_init: out of memory");
-#else
- mmapptr = malloc(heapmaxsize);
-
- if (mmapptr == NULL)
- vm_abort("gc_init: out of memory");
-#endif
-
- mmapsize = heapmaxsize;
- mmaptop = (void *) ((ptrint) mmapptr + mmapsize);
-}
-
-
-void gc_call(void)
-{
- log_text("GC call: nothing done...");
- /* nop */
-}
-
-
-s8 gc_get_heap_size(void)
-{
- return 0;
-}
-
-
-s8 gc_get_free_bytes(void)
-{
- return 0;
-}
-
-
-s8 gc_get_total_bytes(void)
-{
- return 0;
-}
-
-
-s8 gc_get_max_heap_size(void)
-{
- return 0;
-}
-
-
-void gc_invoke_finalizers(void)
-{
- /* nop */
-}
-
-
-void gc_finalize_all(void)
-{
- /* nop */
-}
-
-
-/*
- * These are local overrides for various environment variables in Emacs.
- * Please do not remove this and leave it at the end of the file, where
- * Emacs will automagically detect them.
- * ---------------------------------------------------------------------
- * Local variables:
- * mode: c
- * indent-tabs-mode: t
- * c-basic-offset: 4
- * tab-width: 4
- * End:
- */