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 /compiler/cmm/CmmInfo.hs | |
| 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 'compiler/cmm/CmmInfo.hs')
| -rw-r--r-- | compiler/cmm/CmmInfo.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs index 641f29b880..2851a471b4 100644 --- a/compiler/cmm/CmmInfo.hs +++ b/compiler/cmm/CmmInfo.hs @@ -23,7 +23,6 @@ module CmmInfo ( infoTablePtrs, infoTableNonPtrs, funInfoTable, - funInfoArity, -- info table sizes and offsets stdInfoTableSizeW, @@ -493,22 +492,6 @@ funInfoTable dflags info_ptr = cmmOffsetW dflags info_ptr (1 + stdInfoTableSizeW dflags) -- Past the entry code pointer --- Takes the info pointer of a function, returns the function's arity -funInfoArity :: DynFlags -> CmmExpr -> CmmExpr -funInfoArity dflags iptr - = cmmToWord dflags (cmmLoadIndex dflags rep fun_info offset) - where - fun_info = funInfoTable dflags iptr - rep = cmmBits (widthFromBytes rep_bytes) - - (rep_bytes, offset) - | tablesNextToCode dflags = ( pc_REP_StgFunInfoExtraFwd_arity pc - , oFFSET_StgFunInfoExtraFwd_arity dflags ) - | otherwise = ( pc_REP_StgFunInfoExtraRev_arity pc - , oFFSET_StgFunInfoExtraRev_arity dflags ) - - pc = sPlatformConstants (settings dflags) - ----------------------------------------------------------------------------- -- -- Info table sizes & offsets |