X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=40bc9ddd07599b82b6edc20e8c259f22726cc714;hb=24f3ffdaa0ffd164616969080c3e6400f04980dd;hp=8c38df68d356203d803dee2348d40f724d84e0cd;hpb=8ded597b532eda747b5d911e6991cdb0013f77a1;p=ghc-hetmet.git diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 8c38df6..40bc9dd 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -42,9 +42,9 @@ Haskell side. #include "RtsUtils.h" #include -#if defined(USE_LIBFFI) +#if defined(USE_LIBFFI_FOR_ADJUSTORS) -#include +#include "ffi.h" #include void @@ -1172,4 +1172,4 @@ if ( *(unsigned char*)ptr != 0xe8 ) { freeExec(ptr); } -#endif // !USE_LIBFFI +#endif // !USE_LIBFFI_FOR_ADJUSTORS