[uim-commit] r2575 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-14 10:19:58 -0800 (Wed, 14 Dec 2005)
New Revision: 2575

Modified:
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/storage-gc.c
  - (malloc_aligned): Renamed to scm_malloc_aligned()
  - (scm_malloc_aligned):
    * Renamed from malloc_aligned
    * Make global
  - (add_heap): Follow the renaming


Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-14 18:14:58 UTC (rev 2574)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-14 18:19:58 UTC (rev 2575)
@@ -118,7 +118,7 @@
 =======================================*/
 static ScmObj **locate_protected_var(ScmObj *var);
 
-static void *malloc_aligned(size_t size);
+void *scm_malloc_aligned(size_t size);
 
 static void initialize_heap(size_t size, size_t alloc_threshold,
                             int n_max, int n_init);
@@ -267,7 +267,7 @@
   Heap Allocator & Garbage Collector
 ============================================================================*/
 /* FIXME: ensure safety in a portable way */
-static void *malloc_aligned(size_t size)
+void *scm_malloc_aligned(size_t size)
 {
     void *p;
 
@@ -322,7 +322,7 @@
         Scm_FatalError("heap exhausted");
 
     heaps = Scm_realloc(heaps, sizeof(ScmObjHeap) * (n_heaps + 1));
-    heap = malloc_aligned(sizeof(ScmCell) * heap_size);
+    heap = scm_malloc_aligned(sizeof(ScmCell) * heap_size);
     heaps[n_heaps++] = heap;
 
     /* update the enclosure */