diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-14 11:55:11 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-14 11:55:11 +0000 |
| commit | b39791601bb128c37db82eb66a8bc1991047818f (patch) | |
| tree | 5fcdc3d06c24480df59088f2d082db893f180d2a /backend | |
| parent | 5955f24c579250be7701a8f351be4b627d670b81 (diff) | |
Coloringaux: better cost estimate for annotation builtins
Regression: more tests for annotations
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1675 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/Coloringaux.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/Coloringaux.ml b/backend/Coloringaux.ml index 02081d5..34fab90 100644 --- a/backend/Coloringaux.ml +++ b/backend/Coloringaux.ml @@ -817,6 +817,8 @@ let spill_costs f = charge_ros 10 ros; charge_list 1 args; charge 1 res | Itailcall(sg, ros, args) -> charge_ros 10 ros; charge_list 1 args + | Ibuiltin(EF_annot _, args, res, _) -> () (* not actually used *) + | Ibuiltin(EF_annot_val _, args, res, _) -> charge_list 1 args; charge 1 res | Ibuiltin(ef, args, res, _) -> charge_list 10 args; charge 10 res | Icond(cond, args, _, _) -> charge_list 10 args | Ijumptable(arg, _) -> charge 10 arg |