develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34359 - in trunk: compilers/ncigen/src ext/SQLite3

From:
tewk
Date:
December 25, 2008 13:40
Subject:
[svn:parrot] r34359 - in trunk: compilers/ncigen/src ext/SQLite3
Message ID:
20081225214013.CD98BCBA12@x12.develooper.com
Author: tewk
Date: Thu Dec 25 13:40:12 2008
New Revision: 34359

Modified:
   trunk/compilers/ncigen/src/NCIGENAST.pir
   trunk/ext/SQLite3/gen_sqlite3.pl

Log:
[ncigen] fix due to move to Capture pmc I believe


Modified: trunk/compilers/ncigen/src/NCIGENAST.pir
==============================================================================
--- trunk/compilers/ncigen/src/NCIGENAST.pir	(original)
+++ trunk/compilers/ncigen/src/NCIGENAST.pir	Thu Dec 25 13:40:12 2008
@@ -34,6 +34,10 @@
     .return ($P0)
 .end
 
+.sub 'item' :method
+    .return (self)
+.end
+
 =head1 NCIGENAST Node types
 
 =head2 NCIGENAST::Node

Modified: trunk/ext/SQLite3/gen_sqlite3.pl
==============================================================================
--- trunk/ext/SQLite3/gen_sqlite3.pl	(original)
+++ trunk/ext/SQLite3/gen_sqlite3.pl	Thu Dec 25 13:40:12 2008
@@ -15,7 +15,7 @@
 
 print preamble();
 
-for (parse_ast($fn).kv) -> $k,$v {
+for (parse_ast($fn).hash().kv) -> $k,$v {
     #dump_node($v);
     if ($v.WHAT eq "FuncDecl") {
         my @result = pir($v);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About