HTTP/1.1 -1 Read error in cache disk data: SuccessContent-Type: text/x-perl
Last-Modified: Thu, 03 Dec 2009 10:19:35 GMT
ETag: "45d9d-38e-479d053ec5bc0"
Content-length: 910
Connection: Close
Proxy-Connection: Close
X-Cache: HIT from web1.osuosl.org
Server: ProxyTrack 0.5 (HTTrack 3.49.2)

Index: lib/Parrot/Vtable.pm
===================================================================
--- lib/Parrot/Vtable.pm	(版本 42868)
+++ lib/Parrot/Vtable.pm	(工作副本)
@@ -224,25 +224,12 @@
     (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,9 +241,7 @@
 
     # finally the name mapping
     $macros .= <<'EOM';
-/*
- * vtable slot names
- */
+
 #ifdef PARROT_IN_OBJECTS_C
 
 #define PARROT_VTABLE_LOW 9
ype="a