tailrec verb flags

[r3984]

diff --git a/ir/ir/irflag.c b/ir/ir/irflag.c
index b822628..ed5967f 100644 (file)
--- a/ir/ir/irflag.c
+++ b/ir/ir/irflag.c
@@ -260,6 +260,15 @@ void set_opt_tail_recursion(int value)
     libFIRM_opt &= ~OPT_TAIL_RECURSION;
 }
 
     libFIRM_opt &= ~OPT_TAIL_RECURSION;
 }
 

+/* Enable/Disable optimization of tail-recursion calls. */
+void set_opt_tail_recursion_verbose(int value)
+{
+  if (value)
+    libFIRM_verb |= OPT_TAIL_RECURSION;
+  else
+    libFIRM_verb &= ~OPT_TAIL_RECURSION;
+}
+

 /* Enable/Disable precise exception context. */
 void set_opt_precise_exc_context(int value)
 {
 /* Enable/Disable precise exception context. */
 void set_opt_precise_exc_context(int value)
 {

diff --git a/ir/ir/irflag.h b/ir/ir/irflag.h
index ff0db4d..fd030fa 100644 (file)
--- a/ir/ir/irflag.h
+++ b/ir/ir/irflag.h
@@ -182,6 +182,7 @@ void set_opt_dyn_meth_dispatch (int value);
  * If the flag is turned on tail-recursion calls are optimized into loops.
  */
 void set_opt_tail_recursion(int value);
  * If the flag is turned on tail-recursion calls are optimized into loops.
  */
 void set_opt_tail_recursion(int value);

+void set_opt_tail_recursion_verbose(int value);

 
 
 /** Enable/Disable normalizations of the firm representation.
 
 
 /** Enable/Disable normalizations of the firm representation.

diff --git a/ir/ir/irflag_t.h b/ir/ir/irflag_t.h
index 87927eb..7754096 100644 (file)
--- a/ir/ir/irflag_t.h
+++ b/ir/ir/irflag_t.h
@@ -219,6 +219,12 @@ static INLINE int get_opt_tail_recursion(void)
   return libFIRM_opt & OPT_TAIL_RECURSION;
 }
 
   return libFIRM_opt & OPT_TAIL_RECURSION;
 }
 

+/** Returns tail-recursion setting. */
+static INLINE int get_opt_tail_recursion_verbose(void)
+{
+  return libFIRM_verb & OPT_TAIL_RECURSION;
+}
+

 /** Returns precise exception context setting. */
 static INLINE int get_opt_precise_exc_context(void)
 {
 /** Returns precise exception context setting. */
 static INLINE int get_opt_precise_exc_context(void)
 {