diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-07-12 16:36:39 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-27 04:47:51 -0400 |
| commit | 167a01f7680633eae52105fe19c69590eabfa330 (patch) | |
| tree | f22c757ab113d7da59772b5a4d3dc058a1ab2e32 | |
| parent | 51ff03655850cf73a0bfd0ff9d974b184d9aac17 (diff) | |
| download | haskell-167a01f7680633eae52105fe19c69590eabfa330.tar.gz | |
rts: Document CPP guards
| -rw-r--r-- | rts/Adjustor.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 767a9ce9b7..715ac7dbce 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -156,7 +156,7 @@ createAdjustor (int cconv, case 0: /* stdcall */ abi = FFI_STDCALL; break; -#endif +#endif /* defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) */ case 1: /* ccall */ abi = FFI_DEFAULT_ABI; break; @@ -223,12 +223,12 @@ static void GNUC3_ATTRIBUTE(used) obscure_ccall_wrapper(void) arg 1-4 spill slots, ro now we have to move it back */ "movq 0x20(%rsp), %rcx\n" "movq %rcx, (%rsp)\n" -#endif +#endif /* defined(mingw32_HOST_OS) */ "ret" ); } extern void obscure_ccall_ret_code(void); -#endif +#endif /* defined(x86_64_HOST_ARCH) */ #if defined(alpha_HOST_ARCH) /* To get the definition of PAL_imb: */ @@ -267,7 +267,7 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable) /* and return a ptr to the goods inside the array */ return(&(arr->payload)); } -#endif +#endif /* defined(ia64_HOST_ARCH) */ #if defined(powerpc_HOST_ARCH) && defined(linux_HOST_OS) __asm__("obscure_ccall_ret_code:\n\t" @@ -276,7 +276,7 @@ __asm__("obscure_ccall_ret_code:\n\t" "mtlr 0\n\t" "blr"); extern void obscure_ccall_ret_code(void); -#endif +#endif /* defined(powerpc_HOST_ARCH) && defined(linux_HOST_OS) */ #if defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH) #if !(defined(powerpc_HOST_ARCH) && defined(linux_HOST_OS)) @@ -299,8 +299,8 @@ typedef struct AdjustorStub { StgInt extrawords_plus_one; } AdjustorStub; -#endif -#endif +#endif /* !(defined(powerpc_HOST_ARCH) && defined(linux_HOST_OS)) */ +#endif /* defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH) */ #if defined(i386_HOST_ARCH) @@ -316,7 +316,7 @@ typedef struct AdjustorStub { StgInt frame_size; StgInt argument_size; } AdjustorStub; -#endif +#endif /* defined(i386_HOST_ARCH) */ #if defined(i386_HOST_ARCH) || defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH) static int totalArgumentSize(char *typeString) @@ -345,7 +345,7 @@ static int totalArgumentSize(char *typeString) } return sz; } -#endif +#endif /* defined(i386_HOST_ARCH) || defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH) */ void* createAdjustor(int cconv, StgStablePtr hptr, @@ -391,7 +391,7 @@ createAdjustor(int cconv, StgStablePtr hptr, adj_code[0x0c] = (unsigned char)0xff; /* jmp %eax */ adj_code[0x0d] = (unsigned char)0xe0; } -#endif +#endif /* defined(i386_HOST_ARCH) && !defined(darwin_HOST_OS) */ break; case 1: /* _ccall */ |