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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sat Feb  7 00:48:37 2009
New Revision: 36407
URL: https://trac.parrot.org/parrot/changeset/36407

Log:
[lib] fix handling of ATTR types in Pmc2c

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

Modified: trunk/lib/Parrot/Pmc2c/Attribute.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Attribute.pm	Fri Feb  6 21:26:14 2009	(r36406)
+++ trunk/lib/Parrot/Pmc2c/Attribute.pm	Sat Feb  7 00:48:37 2009	(r36407)
@@ -121,14 +121,14 @@
             (dest) = VTABLE_get_number(interp, attr_value); \\
 EOA
     }
-    elsif ($attrtype =~ /STRING\s*\*[^\*]/) {
+    elsif ($attrtype =~ /STRING\s*\*$/) {
         $decl .= <<"EOA";
             PMC *attr_value = VTABLE_get_attr_str(interp, \\
                               pmc, Parrot_str_new_constant(interp, "$attrname")); \\
             (dest) = VTABLE_get_string(interp, attr_value); \\
 EOA
     }
-    elsif ($attrtype =~ /PMC\s*\*[^\*]/) {
+    elsif ($attrtype =~ /PMC\s*\*$/) {
         $decl .= <<"EOA";
             (dest) = VTABLE_get_attr_str(interp, \\
                               pmc, Parrot_str_new_constant(interp, "$attrname")); \\
@@ -170,7 +170,7 @@
                               Parrot_str_new_constant(interp, "$attrname"), attr_value); \\
 EOA
     }
-    elsif ($attrtype =~ /STRING\s*\*[^\*]/) {
+    elsif ($attrtype =~ /STRING\s*\*$/) {
         $decl .= <<"EOA";
             PMC *attr_value = pmc_new(interp, enum_class_String); \\
             VTABLE_set_string_native(interp, attr_value, value); \\
@@ -178,7 +178,7 @@
                               Parrot_str_new_constant(interp, "$attrname"), attr_value); \\
 EOA
     }
-    elsif ($attrtype =~ /PMC\s\*[^\*]/) {
+    elsif ($attrtype =~ /PMC\s*\*$/) {
         $decl .= <<"EOA";
             VTABLE_set_attr_str(interp, pmc, \\
                               Parrot_str_new_constant(interp, "$attrname"), value); \\