diff options
| author | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-31 13:35:41 -0500 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-31 13:35:41 -0500 |
| commit | 669cbef03c220de43b0f88f2b2238bf3c02ed64c (patch) | |
| tree | a7cdcff80641feeff8ef4f0b1e02e04f9187dcd4 /rts | |
| parent | b61f5f734d08fe9cdca3ac06560fc15e97aa77ab (diff) | |
| parent | 6544f8de1ed575378f14b82a2eaa06cab58b2d65 (diff) | |
| download | haskell-669cbef03c220de43b0f88f2b2238bf3c02ed64c.tar.gz | |
Fix Trac issue #11487.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/AutoApply.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/AutoApply.h b/rts/AutoApply.h index 7c8af93942..4e441ca18b 100644 --- a/rts/AutoApply.h +++ b/rts/AutoApply.h @@ -90,13 +90,13 @@ // Jump to target, saving CCCS and restoring it on return #if defined(PROFILING) -#define jump_SAVE_CCCS(target) \ +#define jump_SAVE_CCCS(target,...) \ Sp(-1) = CCCS; \ Sp(-2) = stg_restore_cccs_info; \ Sp_adj(-2); \ - jump (target) [R1] + jump (target) [__VA_ARGS__] #else -#define jump_SAVE_CCCS(target) jump (target) [R1] +#define jump_SAVE_CCCS(target,...) jump (target) [__VA_ARGS__] #endif #endif /* APPLY_H */ |