Add weak reference support for Tango 0.99.9

[software/dgc/cdgc.git] / gc / alloc.d

diff --git a/gc/alloc.d b/gc/alloc.d
index 9c6d249ec25799333045728aeb9bfc512acee5a3..eeebcf467769c8ac7b90eff0abfad5b734a47576 100644 (file)
--- a/gc/alloc.d
+++ b/gc/alloc.d
@@ -26,7 +26,9 @@
 
 module gc.alloc;
 
 
 module gc.alloc;
 

+

 // C OS-specific API
 // C OS-specific API

+

 private extern (C) {
     version (Win32) {
         alias void* POINTER;
 private extern (C) {
     version (Win32) {
         alias void* POINTER;


@@ -79,106 +81,50 @@ private extern (C) {
     }
 }
 
     }
 }
 

-static if (is(typeof(VirtualAlloc)))
-{
-    /**
-     * Map memory.
-     */
-    void *os_mem_map(size_t nbytes)
-    {
-        return VirtualAlloc(null, nbytes, MEM_RESERVE, PAGE_READWRITE);
-    }
-
-
-    /**
-     * Commit memory.
-     * Returns:
-     *      0       success
-     *      !=0     failure
-     */
-    int os_mem_commit(void *base, size_t offset, size_t nbytes)
-    {   void *p;
-
-        p = VirtualAlloc(base + offset, nbytes, MEM_COMMIT, PAGE_READWRITE);
-    return cast(int)(p is null);
-    }

 
 

+// Public interface

 
 

+version (D_Ddoc)
+{

     /**
     /**

-     * Decommit memory.
-     * Returns:
-     *      0       success
-     *      !=0     failure
+     * Map memory.

      */
      */

-    int os_mem_decommit(void *base, size_t offset, size_t nbytes)
-    {
-    return cast(int)(VirtualFree(base + offset, nbytes, MEM_DECOMMIT) == 0);
-    }
-
+    void* os_mem_map(size_t nbytes);

 
     /**
      * Unmap memory allocated with os_mem_map().
 
     /**
      * Unmap memory allocated with os_mem_map().

-     * Memory must have already been decommitted.

      * Returns:
      * Returns:

-     *      0       success
-     *      !=0     failure
+     *      true  success
+     *      false failure

      */
      */

-    int os_mem_unmap(void *base, size_t nbytes)
-    {
-        return cast(int)(VirtualFree(base, 0, MEM_RELEASE) == 0);
-    }
+    bool os_mem_unmap(void* base, size_t nbytes);

 }
 }

-else static if (is(typeof(mmap)) && is(typeof(MAP_ANON)))
+// Implementations
+else static if (is(typeof(VirtualAlloc)))

 {
 {

-    void *os_mem_map(size_t nbytes)
-    {   void *p;
-
-        p = mmap(null, nbytes, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON, -1, 0);
-        return (p == MAP_FAILED) ? null : p;
-    }
-
-
-    int os_mem_commit(void *base, size_t offset, size_t nbytes)
+    void* os_mem_map(size_t nbytes)

     {
     {

-        return 0;
+        return VirtualAlloc(null, nbytes, MEM_RESERVE | MEM_COMMIT,
+                PAGE_READWRITE);

     }
 
     }
 

-
-    int os_mem_decommit(void *base, size_t offset, size_t nbytes)
-    {
-        return 0;
-    }
-
-
-    int os_mem_unmap(void *base, size_t nbytes)
+    bool os_mem_unmap(void* base, size_t nbytes)

     {
     {

-        return munmap(base, nbytes);
+        return VirtualFree(base, 0, MEM_RELEASE) != 0;

     }
 }
     }
 }

-else static if (is(typeof(valloc)))
+else static if (is(typeof(mmap)) && is(typeof(MAP_ANON)))

 {
 {

-    void *os_mem_map(size_t nbytes)
+    void* os_mem_map(size_t nbytes)

     {
     {

-        return valloc(nbytes);
-    }
-
-
-    int os_mem_commit(void *base, size_t offset, size_t nbytes)
-    {
-        return 0;
+        void* p = mmap(null, nbytes,
+                PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANON, -1, 0);
+        return (p == MAP_FAILED) ? null : p;

     }
 
     }
 

-
-    int os_mem_decommit(void *base, size_t offset, size_t nbytes)
+    bool os_mem_unmap(void* base, size_t nbytes)

     {
     {

-        return 0;
-    }
-
-
-    int os_mem_unmap(void *base, size_t nbytes)
-    {
-        free(base);
-        return 0;
+        return munmap(base, nbytes) == 0;

     }
 }
 else static if (is(typeof(malloc)))
     }
 }
 else static if (is(typeof(malloc)))


@@ -188,38 +134,23 @@ else static if (is(typeof(malloc)))
     //       to PAGESIZE alignment, there will be space for a void* at the end
     //       after PAGESIZE bytes used by the GC.
 
     //       to PAGESIZE alignment, there will be space for a void* at the end
     //       after PAGESIZE bytes used by the GC.
 

-

     import gcx; // for PAGESIZE
 
     import gcx; // for PAGESIZE
 

-

     const size_t PAGE_MASK = PAGESIZE - 1;
 
     const size_t PAGE_MASK = PAGESIZE - 1;
 

-
-    void *os_mem_map(size_t nbytes)
-    {   byte *p, q;
-        p = cast(byte *) malloc(nbytes + PAGESIZE);
+    void* os_mem_map(size_t nbytes)
+    {
+        byte* p, q;
+        p = cast(byte* ) malloc(nbytes + PAGESIZE);

         q = p + ((PAGESIZE - ((cast(size_t) p & PAGE_MASK))) & PAGE_MASK);
         q = p + ((PAGESIZE - ((cast(size_t) p & PAGE_MASK))) & PAGE_MASK);

-        * cast(void**)(q + nbytes) = p;
+        *cast(void**)(q + nbytes) = p;

         return q;
     }
 
         return q;
     }
 

-
-    int os_mem_commit(void *base, size_t offset, size_t nbytes)
-    {
-        return 0;
-    }
-
-
-    int os_mem_decommit(void *base, size_t offset, size_t nbytes)
-    {
-        return 0;
-    }
-
-
-    int os_mem_unmap(void *base, size_t nbytes)
+    bool os_mem_unmap(void* base, size_t nbytes)

     {
     {

-        free( *cast(void**)( cast(byte*) base + nbytes ) );
-        return 0;
+        free(*cast(void**)(cast(byte*) base + nbytes));
+        return true;

     }
 }
 else
     }
 }
 else