[svn:parrot] r46560 - trunk/compilers/pct/src/POST
pmichaud at svn.parrot.org
pmichaud at svn.parrot.org
Thu May 13 00:55:15 UTC 2010
Author: pmichaud
Date: Thu May 13 00:55:15 2010
New Revision: 46560
URL: https://trac.parrot.org/parrot/changeset/46560
Log:
[pct]: Remove CodeString from POST::Node.
Modified:
trunk/compilers/pct/src/POST/Node.pir
Modified: trunk/compilers/pct/src/POST/Node.pir
==============================================================================
--- trunk/compilers/pct/src/POST/Node.pir Thu May 13 00:43:04 2010 (r46559)
+++ trunk/compilers/pct/src/POST/Node.pir Thu May 13 00:55:15 2010 (r46560)
@@ -25,13 +25,13 @@
p6meta.'new_class'('POST::Sub', 'parent'=>base)
$P0 = new 'ResizableStringArray'
- $P0[0] = " .param pmc %0"
- $P0[1] = " .param pmc %0 :optional\n .param int has_%0 :opt_flag"
- $P0[2] = " .param pmc %0 :slurpy"
- $P0[4] = " .param pmc %0 :named(%1)"
- $P0[5] = " .param pmc %0 :optional :named(%1)\n .param int has_%0 :opt_flag"
- $P0[6] = " .param pmc %0 :slurpy :named"
- $P0[8] = " .param pmc %0 :call_sig"
+ $P0[0] = " .param pmc %0\n"
+ $P0[1] = " .param pmc %0 :optional\n .param int has_%0 :opt_flag\n"
+ $P0[2] = " .param pmc %0 :slurpy\n"
+ $P0[4] = " .param pmc %0 :named(%1)\n"
+ $P0[5] = " .param pmc %0 :optional :named(%1)\n .param int has_%0 :opt_flag\n"
+ $P0[6] = " .param pmc %0 :slurpy :named\n"
+ $P0[8] = " .param pmc %0 :call_sig\n"
set_hll_global ['POST';'Sub'], '%!paramfmt', $P0
.return ()
.end
@@ -272,15 +272,15 @@
.local pmc code
code = paramlist[paramseq]
unless null code goto have_code
- code = new 'CodeString'
+ code = new 'StringBuilder'
paramlist[paramseq] = code
have_code:
.local pmc paramfmt
paramfmt = get_hll_global ['POST';'Sub'], '%!paramfmt'
$S0 = paramfmt[paramseq]
- named = code.'escape'(named)
- code.'emit'($S0, pname, named)
+ named = self.'escape'(named)
+ code.'append_format'($S0, pname, named)
.return ()
.end
More information about the parrot-commits
mailing list