From 73729d23ac13275c0d28d23bc1b1f6056104e5d9 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 4 Sep 2006 15:08:29 +0000
Subject: Fusion de la branche "traces": - Ajout de traces d'evenements d'E/S
 dans les semantiques - Ajout constructions switch et allocation dynamique -
 Initialisation des variables globales - Portage Coq 8.1 beta Debut
 d'integration du front-end C: - Traduction Clight -> Csharpminor dans
 cfrontend/ - Modifications de Csharpminor et Globalenvs en consequence.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@72 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/Constprop.v | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'backend/Constprop.v')

diff --git a/backend/Constprop.v b/backend/Constprop.v
index b1c5a2bb..3820311c 100644
--- a/backend/Constprop.v
+++ b/backend/Constprop.v
@@ -195,7 +195,9 @@ Definition eval_static_operation (op: operation) (vl: list approx) :=
   | Ofloatconst n, nil => F n
   | Oaddrsymbol s n, nil => S s n
   | Ocast8signed, I n1 :: nil => I(Int.cast8signed n)
+  | Ocast8unsigned, I n1 :: nil => I(Int.cast8unsigned n)
   | Ocast16signed, I n1 :: nil => I(Int.cast16signed n)
+  | Ocast16unsigned, I n1 :: nil => I(Int.cast16unsigned n)
   | Oadd, I n1 :: I n2 :: nil => I(Int.add n1 n2)
   | Oadd, S s1 n1 :: I n2 :: nil => S s1 (Int.add n1 n2)
   | Oaddimm n, I n1 :: nil => I (Int.add n1 n)
@@ -379,6 +381,12 @@ Inductive eval_static_operation_cases: forall (op: operation) (vl: list approx),
   | eval_static_operation_case47:
       forall c vl,
       eval_static_operation_cases (Ocmp c) (vl)
+  | eval_static_operation_case48:
+      forall n1,
+      eval_static_operation_cases (Ocast8unsigned) (I n1 :: nil)
+  | eval_static_operation_case49:
+      forall n1,
+      eval_static_operation_cases (Ocast16unsigned) (I n1 :: nil)
   | eval_static_operation_default:
       forall (op: operation) (vl: list approx),
       eval_static_operation_cases op vl.
@@ -475,6 +483,10 @@ Definition eval_static_operation_match (op: operation) (vl: list approx) :=
       eval_static_operation_case46 n1
   | Ocmp c, vl =>
       eval_static_operation_case47 c vl
+  | Ocast8unsigned, I n1 :: nil =>
+      eval_static_operation_case48 n1
+  | Ocast16unsigned, I n1 :: nil =>
+      eval_static_operation_case49 n1
   | op, vl =>
       eval_static_operation_default op vl
   end.
@@ -574,6 +586,10 @@ Definition eval_static_operation (op: operation) (vl: list approx) :=
       | None => Unknown
       | Some b => I(if b then Int.one else Int.zero)
       end
+  | eval_static_operation_case48 n1 =>
+      I(Int.cast8unsigned n1)
+  | eval_static_operation_case49 n1 =>
+      I(Int.cast16unsigned n1)
   | eval_static_operation_default op vl =>
       Unknown
   end.
@@ -603,6 +619,8 @@ Definition transfer (f: function) (pc: node) (before: D.t) :=
           before
       | Icall sig ros args res s =>
           D.set res Unknown before
+      | Ialloc arg res s =>
+          D.set res Unknown before
       | Icond cond args ifso ifnot =>
           before
       | Ireturn optarg =>
@@ -986,6 +1004,8 @@ Definition transf_instr (approx: D.t) (instr: instruction) :=
         | inr s => ros
         end in
       Icall sig ros' args res s
+  | Ialloc arg res s =>
+      Ialloc arg res s
   | Icond cond args s1 s2 =>
       match eval_static_condition cond (approx_regs args approx) with
       | Some b =>
@@ -1028,5 +1048,7 @@ Definition transf_function (f: function) : function :=
         (transf_code_wf f approxs f.(fn_code_wf))
   end.
 
+Definition transf_fundef := AST.transf_fundef transf_function.
+
 Definition transf_program (p: program) : program :=
-  transform_program transf_function p.
+  transform_program transf_fundef p.
-- 
cgit