codestring - s/codestring/stringbuilder/

partcl · Feb 16, 2011 · ade8121 · ade8121
1 parent 1ec07ba
commit ade8121
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 17 deletions.
diff --git a/runtime/builtin/namespace.pir b/runtime/builtin/namespace.pir
@@ -237,7 +237,7 @@ doesnt_exist:
 global_ns:
   .local pmc compileTcl, code
   compileTcl = get_root_global ['_tcl'], 'compileTcl'
-  code     = new 'CodeString'
+  code     = new 'StringBuilder'
   $S0 = join ' ', argv
   ($S0, $S1) = compileTcl($S0, 'pir_only'=>1)
   $I0 = code.'unique'()

diff --git a/runtime/builtin/subst.pir b/runtime/builtin/subst.pir
@@ -89,7 +89,7 @@ subst:
     ret = ast['ret']
 
     .local pmc pir
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
 
     pir.'emit'(<<"END_PIR", namespace, code, ret)
 .HLL 'tcl'

diff --git a/runtime/compilers.pir b/runtime/compilers.pir
@@ -59,7 +59,7 @@ Given an expression, return a subroutine, or optionally, the raw PIR
     ret = ast['ret']
 
     .local pmc pir
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
 
     pir.'emit'(<<"END_PIR", namespace, result, ret)
 .HLL 'tcl'
@@ -156,7 +156,7 @@ end_preamble:
     ret = ast['ret']
 
     .local pmc pir
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
     unless has_pir_only goto do_wrapper
     unless pir_only goto do_wrapper
     if has_wrapper  goto do_wrapper

diff --git a/src/class/tclproc.pir b/src/class/tclproc.pir
@@ -45,9 +45,9 @@ Define the attributes required for the class.
     .pmc(pirc,{compreg 'PIR'})
 
     .local pmc code, args_code, defaults
-    code      = new 'CodeString'
+    code      = new 'StringBuilder'
-    args_code = new 'CodeString'
+    args_code = new 'StringBuilder'
-    defaults  = new 'CodeString'
+    defaults  = new 'StringBuilder'
 
     .str(namespace,'[]')
     $I0 = ns

diff --git a/src/grammar/expr/past2pir.tg b/src/grammar/expr/past2pir.tg
@@ -7,7 +7,7 @@ transform result (ROOT)  {
 
 transform pir (PAST::Expr) {
     .local pmc pir
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
 
     .local pmc value
     value = node['value']
@@ -34,7 +34,7 @@ END_PIR
 
 transform pir (PAST::Program) {
     .local pmc pir
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
 
     .local pmc iterator, child
     iterator = node.'child_iter'()
@@ -56,7 +56,7 @@ transform pir (PAST::Val) {
     .local pmc ret
     .local pmc class
 
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
     ret = pir.'unique'('$P')
     class = node['class']
     $S0 = node['value']
@@ -90,7 +90,7 @@ transform pir (PAST::Val) {
 
 transform pir (PAST::Var) {
     .local pmc pir, ret
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
     ret = pir.'unique'('$P')
     node['ret']    = ret
     node['istemp'] = 1
@@ -130,7 +130,7 @@ transform pir (PAST::Op) {
     .local pmc args,iterator,pir
     .local pmc return_register
 
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
     args = new 'TclList'
     iterator = node.'child_iter'()
   iter_loop: 
@@ -165,7 +165,7 @@ transform pir (PAST::MathFunc) {
     .local pmc args,iterator,pir
     .local pmc return_register
 
-    pir  = new 'CodeString'
+    pir  = new 'StringBuilder'
     args = new 'TclList'
     iterator = node.'child_iter'()
   iter_loop: 
@@ -197,7 +197,7 @@ transform pir (PAST::StaticCommand) {
     .local pmc args, children, iterator, pir
     .local string reg
 
-    pir  = new 'CodeString'
+    pir  = new 'StringBuilder'
     args = new 'TclList'
     children = node.'get_children'()
     iterator = iter children
@@ -325,7 +325,7 @@ END_PIR
 transform pir (PAST::DynamicCommand) {
     .local pmc args, children, iterator, pir, reg
 
-    pir  = new 'CodeString'
+    pir  = new 'StringBuilder'
     args = new 'TclList'
     children = node.'get_children'()
     iterator = iter children
@@ -410,7 +410,7 @@ END_PIR
 
 transform pir (PAST::Expand) {
     .local pmc pir, value
-    pir   = new 'CodeString'
+    pir   = new 'StringBuilder'
     value = node['value']
 
     $S0 = tree.'get'('pir', value)
@@ -433,7 +433,7 @@ transform pir (PAST::Cond) {
     .local pmc children, cond, then, else
     .local string cond_result, then_result, else_result
 
-    pir = new 'CodeString'
+    pir = new 'StringBuilder'
 
     # This node has 3 children. generate PIR so that:
     # if node1 then node2 else node3