[commit: ghc] master: Use ffi_prep_closure_loc rather than ffi_prep_closure (310735e)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/310735e7adce0145c653386c21686b4a1b96aea9

>---------------------------------------------------------------

commit 310735e7adce0145c653386c21686b4a1b96aea9
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Apr 21 16:03:40 2013 +0100

    Use ffi_prep_closure_loc rather than ffi_prep_closure
    
    The latter is deprecated. Part of #7718.

>---------------------------------------------------------------

 rts/Adjustor.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index fbf95df..e4d6e8c 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -131,7 +131,7 @@ createAdjustor (int cconv,
         barf("createAdjustor: failed to allocate memory");
     }
 
-    r = ffi_prep_closure(cl, cif, (void*)wptr, hptr/*userdata*/);
+    r = ffi_prep_closure_loc(cl, cif, (void*)wptr, hptr/*userdata*/, code);
     if (r != FFI_OK) barf("ffi_prep_closure failed: %d", r);
 
     return (void*)code;