diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 13:16:28 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-24 13:20:52 +0100 |
commit | 46176dfa4f329af687c92e57740c800a6cada7b1 (patch) | |
tree | d3130f38f3754316aaf5eae82d8559fa04abcf97 /utils/genprimopcode/Parser.y | |
parent | 4177efa79d0ebc45e1319caff1c000f5fb6cfdcf (diff) | |
download | haskell-46176dfa4f329af687c92e57740c800a6cada7b1.tar.gz |
Assign more accurate code sizes to primops, so that the inlining
heuristics work better. Also removed the old unused "needs_wrapper"
predicate for primops. This helps with #4978.
Diffstat (limited to 'utils/genprimopcode/Parser.y')
-rw-r--r-- | utils/genprimopcode/Parser.y | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/genprimopcode/Parser.y b/utils/genprimopcode/Parser.y index b20414d7d2..5773abb4fe 100644 --- a/utils/genprimopcode/Parser.y +++ b/utils/genprimopcode/Parser.y @@ -48,6 +48,7 @@ import Syntax lowerName { TLowerName $$ } upperName { TUpperName $$ } string { TString $$ } + integer { TInteger $$ } noBraces { TNoBraces $$ } %% @@ -66,6 +67,7 @@ pOption :: { Option } pOption : lowerName '=' false { OptionFalse $1 } | lowerName '=' true { OptionTrue $1 } | lowerName '=' pStuffBetweenBraces { OptionString $1 $3 } + | lowerName '=' integer { OptionInteger $1 $3 } pEntries :: { [Entry] } pEntries : pEntry pEntries { $1 : $2 } |