diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-13 15:01:51 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-13 15:01:51 +0000 |
commit | 48b839d15e69c3c9995ca3c25e6a7c4730224292 (patch) | |
tree | 2394d10bcb90b36617bfd79f32aa5e04492a860a /backend/Constprop.v | |
parent | 926bf226e89e0a4935da8815852af76c8d2b3cdf (diff) |
Support for MacOS X's indirect symbols. (first try)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1978 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Constprop.v')
-rw-r--r-- | backend/Constprop.v | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/backend/Constprop.v b/backend/Constprop.v index 19e5d1a..bc6a647 100644 --- a/backend/Constprop.v +++ b/backend/Constprop.v @@ -251,17 +251,6 @@ Definition transf_ros (app: D.t) (ros: reg + ident) : reg + ident := | inr s => ros end. -Parameter generate_float_constants : unit -> bool. - -Definition const_for_result (a: approx) : option operation := - match a with - | I n => Some(Ointconst n) - | F n => if generate_float_constants tt then Some(Ofloatconst n) else None - | G symb ofs => Some(Oaddrsymbol symb ofs) - | S ofs => Some(Oaddrstack ofs) - | _ => None - end. - Definition transf_instr (gapp: global_approx) (app: D.t) (instr: instruction) := match instr with | Iop op args res s => |