From a0fc8b5564ade5a595ee5eb28a9aad3aea279036 Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 17 Dec 2007 13:11:13 +0000
Subject: show regexp flags and encoding.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14273 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 .gdbinit | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to '.gdbinit')

diff --git a/.gdbinit b/.gdbinit
index 8db7774f9a..0c5600be9c 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -74,10 +74,10 @@ define rp
       printf "coderange:unknown "
     else
     if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER12
-      printf "coderange:single "
+      printf "coderange:7bit "
     else
     if ($flags & (RUBY_FL_USER12|RUBY_FL_USER13)) == RUBY_FL_USER13
-      printf "coderange:multi "
+      printf "coderange:valid "
     else
       printf "coderange:broken "
     end
@@ -90,7 +90,14 @@ define rp
     set print address off
     output ((struct RRegexp*)$arg0)->str
     set print address on
-    printf " "
+    printf " len:%d ", ((struct RRegexp*)$arg0)->len
+    if $flags & RUBY_FL_USER5
+      printf "(literal) "
+    end
+    if $flags & RUBY_FL_USER4
+      printf "(fixed) "
+    end
+    printf "encoding:%d ", ($flags & (RUBY_FL_USER8|RUBY_FL_USER9|RUBY_FL_USER10|RUBY_FL_USER11)) >> RUBY_ENCODING_SHIFT
     print (struct RRegexp *)$arg0
   else
   if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY
-- 
cgit v1.2.3