[Pmc2c] "METHOD TYPE *foo()" fails at runtime with an NCI signature e…

…rror,

when there's a space between TYPE and *.

Fix that by removing spaces from the type before doing the signature lookup.


git-svn-id: https://svn.parrot.org/parrot/trunk@20577 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

lib/Parrot/Pmc2c/PMCEmitter.pm

@@ -252,6 +252,9 @@ sub proto {
     $parameters =~ s/\w+(,|$)/,/g;
     $parameters =~ s/ //g;
 
+    # flatten whitespace before "*" in return value
+    $type =~ s/\s+\*$/\*/ if defined $type;
+
     # type method(interp, self, parameters...)
     my $ret = $calltype{ $type or "void" };
     $ret .= "JO" . join( '', map { $calltype{$_} or "?" } split( /,/, $parameters ) );