[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