projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Assign more accurate code sizes to primops, so that the inlining
[ghc-hetmet.git]
/
utils
/
genprimopcode
/
Main.hs
diff --git
a/utils/genprimopcode/Main.hs
b/utils/genprimopcode/Main.hs
index
5b802bc
..
d9bfd21
100644
(file)
--- a/
utils/genprimopcode/Main.hs
+++ b/
utils/genprimopcode/Main.hs
@@
-46,13
+46,13
@@
main = getArgs >>= \args ->
"commutable"
"commutableOp" p_o_specs)
"commutable"
"commutableOp" p_o_specs)
- "--needs-wrapper"
+ "--code-size"
-> putStr (gen_switch_from_attribs
-> putStr (gen_switch_from_attribs
- "needs_wrapper"
- "primOpNeedsWrapper" p_o_specs)
+ "code_size"
+ "primOpCodeSize" p_o_specs)
- "--can-fail"
- -> putStr (gen_switch_from_attribs
+ "--can-fail"
+ -> putStr (gen_switch_from_attribs
"can_fail"
"primOpCanFail" p_o_specs)
"can_fail"
"primOpCanFail" p_o_specs)
@@
-91,7
+91,7
@@
known_args
"--has-side-effects",
"--out-of-line",
"--commutable",
"--has-side-effects",
"--out-of-line",
"--commutable",
- "--needs-wrapper",
+ "--code-size",
"--can-fail",
"--strictness",
"--primop-primop-info",
"--can-fail",
"--strictness",
"--primop-primop-info",
@@
-550,6
+550,7
@@
gen_switch_from_attribs attrib_name fn_name (Info defaults entries)
getAltRhs (OptionFalse _) = "False"
getAltRhs (OptionTrue _) = "True"
getAltRhs (OptionFalse _) = "False"
getAltRhs (OptionTrue _) = "True"
+ getAltRhs (OptionInteger _ i) = show i
getAltRhs (OptionString _ s) = s
mkAlt po
getAltRhs (OptionString _ s) = s
mkAlt po