Ticket #1354: Vtable.pm.patch

File Vtable.pm.patch, 0.9 KB (added by jimmy, 5 years ago)
  • lib/Parrot/Vtable.pm

     
    224224    (pmc)->vtable->$entry->[1]($args) 
    225225EOM 
    226226    } 
    227     $macros .= <<'EOM'; 
    228  
     227    # Slot numbers 
     228    $macros .= <<"EOM"; 
    229229/* 
    230  * vtable method name defines for delegate 
     230 * vtable slot names 
    231231 */ 
    232  
    233232EOM 
    234     for my $entry ( @{$vtable} ) { 
    235         my $uc_meth = uc $entry->[1]; 
    236         $macros .= <<"EOM"; 
    237 #define PARROT_VTABLE_${uc_meth}_METHNAME \"$entry->[1]\" 
    238 EOM 
    239  
    240     } 
    241     $macros .= <<'EOM'; 
    242  
    243 EOM 
    244  
    245     # Slot numbers 
    246233    my $vtable_slot_num = 9; 
    247234    for my $entry ( @{$vtable} ) { 
    248235        my $uc_meth = uc $entry->[1]; 
     
    254241 
    255242    # finally the name mapping 
    256243    $macros .= <<'EOM'; 
    257 /* 
    258  * vtable slot names 
    259  */ 
     244 
    260245#ifdef PARROT_IN_OBJECTS_C 
    261246 
    262247#define PARROT_VTABLE_LOW 9