diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-10-25 22:33:56 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-26 11:08:52 -0500 |
| commit | d34f1c851d6ef01aef109dd3515db17b795056aa (patch) | |
| tree | ce037375bac0c44107d800cf007b53a2cbc46830 /utils | |
| parent | fb1d2cc9f18f3515379a5e329f8da3bd919a91d4 (diff) | |
| download | haskell-d34f1c851d6ef01aef109dd3515db17b795056aa.tar.gz | |
Revert "Implement shortcuts for slow calls that would require PAPs (#6084)"
This reverts commit 2f5db98e90cf0cff1a11971c85f108a7480528ed.
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 10df61ca7d..5b9b7c0bd9 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" - ,structFieldH Both "StgFunInfoExtraFwd" "arity" + ,structField C "StgFunInfoExtraFwd" "arity" ,structField_ C "StgFunInfoExtraFwd_bitmap" "StgFunInfoExtraFwd" "b.bitmap" ,structSize Both "StgFunInfoExtraRev" ,structField C "StgFunInfoExtraRev" "slow_apply_offset" ,structField C "StgFunInfoExtraRev" "fun_type" - ,structFieldH Both "StgFunInfoExtraRev" "arity" + ,structField C "StgFunInfoExtraRev" "arity" ,structField_ C "StgFunInfoExtraRev_bitmap" "StgFunInfoExtraRev" "b.bitmap" ,structField C "StgLargeBitmap" "size" |