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

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Jun 18 07:51:40 2009
New Revision: 39644
URL: https://trac.parrot.org/parrot/changeset/39644

Log:
[pmc2c] remove a mysterious space in front of dynpmcs' provides string, misc cleanup

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

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 18 02:03:59 2009	(r39643)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 18 07:51:40 2009	(r39644)
@@ -586,12 +586,9 @@
 EOC
     }
 
-    $cout .= <<"EOC";
-    if (pass == 0) {
-EOC
-
     my $flags = $self->vtable_flags;
     $cout .= <<"EOC";
+    if (pass == 0) {
         Hash    *isa_hash  = NULL;
         VTABLE * const vt  = Parrot_${classname}_get_vtable(interp);
         vt->base_type      = $enum_name;
@@ -608,7 +605,7 @@
         vt->whoami       = string_make(interp, "$classname", @{[length($classname)]},
                                        "ascii", PObj_constant_FLAG|PObj_external_FLAG);
         vt->provides_str = Parrot_str_append(interp, vt->provides_str,
-            string_make(interp, " $provides", @{[length($provides) + 1]}, "ascii",
+            string_make(interp, "$provides", @{[length($provides)]}, "ascii",
             PObj_constant_FLAG|PObj_external_FLAG));
 
 EOC
@@ -639,7 +636,6 @@
 EOC
     }
 
-
     for my $k ( keys %extra_vt ) {
         my $k_flags = $self->$k->vtable_flags;
         $cout .= <<"EOC";