[svn:parrot] r42581 - trunk/compilers/pct/src/PAST

pmichaud at svn.parrot.org pmichaud at svn.parrot.org
Thu Nov 19 03:15:45 UTC 2009


Author: pmichaud
Date: Thu Nov 19 03:15:44 2009
New Revision: 42581
URL: https://trac.parrot.org/parrot/changeset/42581

Log:
[past]:  Enable anonymous parameters.

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Thu Nov 19 03:14:19 2009	(r42580)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Thu Nov 19 03:15:44 2009	(r42581)
@@ -2077,7 +2077,8 @@
     subpost = get_global '$?SUB'
 
     ##  determine lexical, register, and parameter names
-    .local string name, named, pname, has_pname
+    .local string named, pname, has_pname
+    .local pmc name
     name = node.'name'()
     named = node.'named'()
     pname = self.'unique'('param_')
@@ -2109,8 +2110,11 @@
     subpost.'add_param'(pname, 'named'=>named, 'slurpy'=>slurpy, 'call_sig'=>call_sig)
 
   param_done:
+    $I0 = defined name
+    unless $I0 goto param_lex_done
     name = self.'escape'(name)
     ops.'push_pirop'('.lex', name, ops)
+  param_lex_done:
     .return (ops)
 .end
 


More information about the parrot-commits mailing list