Full implem of BU_over_Max and TP_max (to be tested) + my.xml from thesis + stuffs...

[tatoo.git] / src / asta.ml

diff --git a/src/asta.ml b/src/asta.ml
index bbbba49..3189b27 100644 (file)
--- a/src/asta.ml
+++ b/src/asta.ml
@@ -121,6 +121,10 @@ let init_top ast  = ast.top <- (StateSet.empty)
 
 let top_states ast = StateSet.elements ast.top
 
+let bot_states ast = ast.bottom
+
+let selec_states ast = ast.selec
+
 let print fmt asta =
   let print_box fmt flag = 
     let pp = Format.fprintf fmt in