diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-14 08:05:36 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-14 08:05:36 +0000 |
commit | bd85aba84475dd956af21c461c44a584958099d1 (patch) | |
tree | bab1cefe9f84210559a4716a070d79967b60f2b5 /ia32/ConstpropOp.vp | |
parent | 48b839d15e69c3c9995ca3c25e6a7c4730224292 (diff) |
Support for indirect symbols under MacOS X (final).
Remove stdio hack in runtime/
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1979 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'ia32/ConstpropOp.vp')
-rw-r--r-- | ia32/ConstpropOp.vp | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/ia32/ConstpropOp.vp b/ia32/ConstpropOp.vp index 0643296..ff5044f 100644 --- a/ia32/ConstpropOp.vp +++ b/ia32/ConstpropOp.vp @@ -145,19 +145,6 @@ Nondetfunction eval_static_operation (op: operation) (vl: list approx) := | _, _ => Unknown end. -(** * Generation of constants *) - -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(Olea (Aglobal symb ofs)) - | S ofs => Some(Olea (Ainstack ofs)) - | _ => None - end. - (** * Operator strength reduction *) (** We now define auxiliary functions for strength reduction of |