summaryrefslogtreecommitdiff
path: root/utils/genprimopcode/Parser.y
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2011-05-24 13:16:28 +0100
committerSimon Marlow <marlowsd@gmail.com>2011-05-24 13:20:52 +0100
commit46176dfa4f329af687c92e57740c800a6cada7b1 (patch)
treed3130f38f3754316aaf5eae82d8559fa04abcf97 /utils/genprimopcode/Parser.y
parent4177efa79d0ebc45e1319caff1c000f5fb6cfdcf (diff)
downloadhaskell-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.y2
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 }