diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-11-28 09:43:58 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-11-28 12:52:23 +0000 |
| commit | 4d1ea482885481073d2fee0ea0355848b9d853a1 (patch) | |
| tree | 776e0632c929fdcfbf9b045308edfde390eb3115 /utils | |
| parent | 1df2116c221941ef40a0f6f8fb7dcc42c56738e7 (diff) | |
| download | haskell-4d1ea482885481073d2fee0ea0355848b9d853a1.tar.gz | |
Implement shortcuts for slow calls (#6084)
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/DeriveConstants.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/deriveConstants/DeriveConstants.hs b/utils/deriveConstants/DeriveConstants.hs index 5b9b7c0bd9..10df61ca7d 100644 --- a/utils/deriveConstants/DeriveConstants.hs +++ b/utils/deriveConstants/DeriveConstants.hs @@ -538,13 +538,13 @@ wanteds = concat ,structSize C "StgFunInfoExtraFwd" ,structField C "StgFunInfoExtraFwd" "slow_apply" ,structField C "StgFunInfoExtraFwd" "fun_type" - ,structField C "StgFunInfoExtraFwd" "arity" + ,structFieldH Both "StgFunInfoExtraFwd" "arity" ,structField_ C "StgFunInfoExtraFwd_bitmap" "StgFunInfoExtraFwd" "b.bitmap" ,structSize Both "StgFunInfoExtraRev" ,structField C "StgFunInfoExtraRev" "slow_apply_offset" ,structField C "StgFunInfoExtraRev" "fun_type" - ,structField C "StgFunInfoExtraRev" "arity" + ,structFieldH Both "StgFunInfoExtraRev" "arity" ,structField_ C "StgFunInfoExtraRev_bitmap" "StgFunInfoExtraRev" "b.bitmap" ,structField C "StgLargeBitmap" "size" |