1 files changed, 4 insertions, 3 deletions
diff --git a/rts/adjustor/NativeAmd64.c b/rts/adjustor/NativeAmd64.c
index 19e186a6f4..33b87e32f0 100644
--- a/rts/adjustor/NativeAmd64.c
+++ b/rts/adjustor/NativeAmd64.c
@@ -90,9 +90,9 @@ createAdjustor(int cconv, StgStablePtr hptr,
         }
 
         if (n_int_args < 6) {
-            return alloc_adjustor(simple_ccall_pool, context);
+            return alloc_adjustor(simple_ccall_pool, &context);
         } else {
-            return alloc_adjustor(complex_ccall_pool, context);
+            return alloc_adjustor(complex_ccall_pool, &context);
         }
         break;
     }
@@ -105,6 +105,7 @@ createAdjustor(int cconv, StgStablePtr hptr,
 
 void freeHaskellFunctionPtr(void* ptr)
 {
-    struct AdjustorContext context = free_adjustor(ptr);
+    struct AdjustorContext context;
+    free_adjustor(ptr, &context);
     freeStablePtr(context.hptr);
 }