| Subject: | v1.01: add binfo support |
Atached patch fixes Bug #57341
Class 'GCC::Node::call_expr' tried to inherit from itself
and adds support for g++ binfo with "bases" as new spec violator #2
@146 binfo type: @131 bases: 1 accs: pub binf: @175
--
Reini Urban
| Subject: | 1.01.patch |
diff -bu ./Changes~ ./Changes
--- ./Changes~ 2003-11-10 07:50:23.000000000 +0100
+++ ./Changes 2010-05-10 17:37:34.237875000 +0200
@@ -1,5 +1,9 @@
Revision history for Perl extension GCC::TranslationUnit.
+1.01 2010-05-10 17:36:51 rurban
+ * add binfo and check for bases
+ * fix Class 'GCC::Node::call_expr' tried to inherit from itself #57341
+
1.00 Sun Nov 9 22:02:49 2003
- original version; created by h2xs 1.22 with options
-n GCC::TranslationUnit -X
diff -bu ./TranslationUnit.pm~ ./TranslationUnit.pm
--- ./TranslationUnit.pm~ 2003-11-10 07:51:18.000000000 +0100
+++ ./TranslationUnit.pm 2010-05-10 17:36:42.159750000 +0200
@@ -1,7 +1,7 @@
package GCC::TranslationUnit;
use strict;
-our $VERSION = "1.00";
+our $VERSION = "1.01";
use GCC::Tree;
@@ -234,6 +234,8 @@
#
# Remember: 4 character max per key!
$node->{raises} = $self->node($1) if $dump =~ s/\sraises: \@(\d+)//;
+ # And another one, within binfo
+ $node->{bases} = $self->node($1) if $dump =~ s/\sbases: (\d+)//;
# At this point, we assume all the remaining key/value pairs match
# the following regex.
diff -bu ./lib/GCC/Node/Expression.pm~ ./lib/GCC/Node/Expression.pm
--- ./lib/GCC/Node/Expression.pm~ 2003-11-10 07:03:34.000000000 +0100
+++ ./lib/GCC/Node/Expression.pm 2010-05-10 13:24:29.800375000 +0200
@@ -49,7 +49,7 @@
# DEFTREECODE (CALL_EXPR, "call_expr", 'e', 2)
package GCC::Node::call_expr;
-use base qw(GCC::Node::call_expr);
+use base qw(GCC::Node::Expression);
sub fn { shift->{fn} }
sub args { shift->{args} }
diff -bu ./lib/GCC/Node/Type.pm~ ./lib/GCC/Node/Type.pm
--- ./lib/GCC/Node/Type.pm~ 2003-11-10 07:03:34.000000000 +0100
+++ ./lib/GCC/Node/Type.pm 2010-05-10 17:30:23.753500000 +0200
@@ -227,5 +227,15 @@
# DEFTREECODE (TYPEOF_TYPE, "typeof_type", 't', 0)
package GCC::Node::typeof_type; use base qw(GCC::Node::Type);
+# TYPE_BINFO
+#@146 binfo type: @131 bases: 1 accs: pub binf: @175
+package GCC::Node::binfo;
+use base qw(GCC::Node::Type);
+
+sub type { shift->{type} }
+sub bases { shift->{bases} }
+sub access { shift->{accs} }
+sub binfo { shift->{binf} }
+
# vim:set shiftwidth=4 softtabstop=4:
1;