Ticket #1354: Vtable.pm.patch

lib/Parrot/Vtable.pm

@@ -224 +224 @@
     (pmc)->vtable->$entry->[1]($args)
 EOM
     }
-    $macros .= <<'EOM';
-
+    # Slot numbers
+    $macros .= <<"EOM";
 /*
- * vtable method name defines for delegate
+ * vtable slot names
  */
-
 EOM
-    for my $entry ( @{$vtable} ) {
-        my $uc_meth = uc $entry->[1];
-        $macros .= <<"EOM";
-#define PARROT_VTABLE_${uc_meth}_METHNAME \"$entry->[1]\"
-EOM
-
-    }
-    $macros .= <<'EOM';
-
-EOM
-
-    # Slot numbers
     my $vtable_slot_num = 9;
     for my $entry ( @{$vtable} ) {
         my $uc_meth = uc $entry->[1];
@@ -254 +241 @@
 
     # finally the name mapping
     $macros .= <<'EOM';
-/*
- * vtable slot names
- */
+
 #ifdef PARROT_IN_OBJECTS_C
 
 #define PARROT_VTABLE_LOW 9