[svn:parrot] r39661 - trunk/lib/Parrot/Pmc2c

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Jun 18 21:58:30 2009
New Revision: 39661
URL: https://trac.parrot.org/parrot/changeset/39661

Log:
[pmc2c] unbreak the build

Modified:
   trunk/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 18 21:42:24 2009	(r39660)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 18 21:58:30 2009	(r39661)
@@ -826,14 +826,14 @@
     my $cout      = "";
     my $classname = $self->name;
     my $get_mro = '';
-    my $parent_name = @{ $self->parents }[0];
     my @parent_names;
     my $export = $self->is_dynamic ? 'PARROT_DYNEXT_EXPORT ' : 'PARROT_EXPORT';
 
-    #pmc has no direct parents other than default
-    for my $dp (@{ $self->direct_parents}) {
-        $get_mro .= "    mro = Parrot_${dp}_get_mro(interp, mro);\n"
+    if ($classname ne 'default') {
+        for my $dp (@{ $self->direct_parents}) {
+            $get_mro .= "    mro = Parrot_${dp}_get_mro(interp, mro);\n"
             unless $dp eq 'default';
+        }
     }
 
     $cout .= <<"EOC";
@@ -867,14 +867,14 @@
     my $cout      = "";
     my $classname = $self->name;
     my $get_isa = '';
-    my $parent_name = @{ $self->parents }[0];
     my @parent_names;
     my $export = $self->is_dynamic ? 'PARROT_DYNEXT_EXPORT ' : 'PARROT_EXPORT';
 
-    #pmc has no direct parents other than default
-    for my $dp (@{ $self->direct_parents}) {
-        $get_isa .= "    isa = Parrot_${dp}_get_isa(interp, isa);\n"
+    if ($classname ne 'default') {
+        for my $dp (@{ $self->direct_parents}) {
+            $get_isa .= "    isa = Parrot_${dp}_get_isa(interp, isa);\n"
             unless $dp eq 'default';
+        }
     }
 
     $cout .= <<"EOC";