Introduce initAdjustors

6 files changed, 16 insertions, 5 deletions

diff --git a/rts/adjustor/LibffiAdjustor.c b/rts/adjustor/LibffiAdjustor.c
index b74059b8ce..e24a4a12f7 100644
--- a/rts/adjustor/LibffiAdjustor.c
+++ b/rts/adjustor/LibffiAdjustor.c
@@ -9,6 +9,7 @@
 #include "StablePtr.h"
 #include "sm/Storage.h"
 #include "Hash.h"
+#include "Adjustor.h"
 
 #include "ffi.h"
 #include <string.h>
@@ -16,6 +17,10 @@
 /* Maps AdjustorExecutable* to AdjustorWritable*. */
 static HashTable* allocatedExecs;
 
+void initAdjustors() {
+    allocatedExecs = allocHashTable();
+}
+
 static AdjustorWritable allocate_adjustor(AdjustorExecutable *exec_ret)
 {
     AdjustorWritable writ;
@@ -24,9 +29,6 @@ static AdjustorWritable allocate_adjustor(AdjustorExecutable *exec_ret)
     ACQUIRE_SM_LOCK;
     cl = writ = ffi_closure_alloc(sizeof(ffi_closure), exec_ret);
     if (cl != NULL) {
-        if (allocatedExecs == NULL) {
-            allocatedExecs = allocHashTable();
-        }
         insertHashTable(allocatedExecs, (StgWord)*exec_ret, writ);
     }
     RELEASE_SM_LOCK;
@@ -37,8 +39,7 @@ static AdjustorWritable exec_to_writable(AdjustorExecutable exec)
 {
     AdjustorWritable writ;
     ACQUIRE_SM_LOCK;
-    if (allocatedExecs == NULL ||
-        (writ = lookupHashTable(allocatedExecs, (StgWord)exec)) == NULL) {
+    if ((writ = lookupHashTable(allocatedExecs, (StgWord)exec)) == NULL) {
         RELEASE_SM_LOCK;
         barf("exec_to_writable: not found");
     }
diff --git a/rts/adjustor/NativeAmd64.c b/rts/adjustor/NativeAmd64.c
index 045d984b2d..e58a7b79b0 100644
--- a/rts/adjustor/NativeAmd64.c
+++ b/rts/adjustor/NativeAmd64.c
@@ -43,6 +43,8 @@ static void GNUC3_ATTRIBUTE(used) obscure_ccall_wrapper(void)
 
 extern void obscure_ccall_ret_code(void);
 
+void initAdjustors() { }
+
 void*
 createAdjustor(int cconv, StgStablePtr hptr,
                StgFunPtr wptr,
diff --git a/rts/adjustor/NativeAmd64Mingw.c b/rts/adjustor/NativeAmd64Mingw.c
index 555d539c63..d9c831c36d 100644
--- a/rts/adjustor/NativeAmd64Mingw.c
+++ b/rts/adjustor/NativeAmd64Mingw.c
@@ -47,6 +47,8 @@ static void GNUC3_ATTRIBUTE(used) obscure_ccall_wrapper(void)
 
 extern void obscure_ccall_ret_code(void);
 
+void initAdjustors() { }
+
 void*
 createAdjustor(int cconv, StgStablePtr hptr,
                StgFunPtr wptr,
diff --git a/rts/adjustor/NativeIA64.c b/rts/adjustor/NativeIA64.c
index 229b1322d6..f955624945 100644
--- a/rts/adjustor/NativeIA64.c
+++ b/rts/adjustor/NativeIA64.c
@@ -35,6 +35,8 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable)
     return(&(arr->payload));
 }
 
+void initAdjustors() { }
+
 void*
 createAdjustor(int cconv, StgStablePtr hptr,
                StgFunPtr wptr,
diff --git a/rts/adjustor/NativePowerPC.c b/rts/adjustor/NativePowerPC.c
index c5c4f6374b..5abb27533a 100644
--- a/rts/adjustor/NativePowerPC.c
+++ b/rts/adjustor/NativePowerPC.c
@@ -53,6 +53,8 @@ typedef struct AdjustorStub {
 #endif /* !(defined(powerpc_HOST_ARCH) && defined(linux_HOST_OS)) */
 #endif /* defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH) */
 
+void initAdjustors() { }
+
 void*
 createAdjustor(int cconv, StgStablePtr hptr,
                StgFunPtr wptr,
diff --git a/rts/adjustor/Nativei386.c b/rts/adjustor/Nativei386.c
index c613d361b3..55ad1bf310 100644
--- a/rts/adjustor/Nativei386.c
+++ b/rts/adjustor/Nativei386.c
@@ -28,6 +28,8 @@ typedef struct AdjustorStub {
     StgInt          argument_size;
 } AdjustorStub;
 
+void initAdjustors() { }
+
 void*
 createAdjustor(int cconv, StgStablePtr hptr,
                StgFunPtr wptr,