Compile superstrings with an array.to_s

diff --git a/src/compiling/compiling_methods.nit b/src/compiling/compiling_methods.nit
index 4a56520..4556ba2 100644 (file)
--- a/src/compiling/compiling_methods.nit
+++ b/src/compiling/compiling_methods.nit
@@ -1231,17 +1231,17 @@ end
 redef class ASuperstringExpr
        redef meth compile_expr(v)
        do
-               var recv = meth_init.compile_constructor_call(v, stype, new Array[String])
+               var array = meth_with_capacity.compile_constructor_call(v, atype, ["TAG_Int({n_exprs.length})"])
 
                for ne in n_exprs do
                        var e = v.ensure_var(v.compile_expr(ne))
                        if ne.stype != stype then
                                v.add_assignment(e, meth_to_s.compile_call(v, [e]))
                        end
-                       meth_append.compile_call(v, [recv, e])
+                       meth_add.compile_call(v, [array, e])
                end
 
-               return recv
+               return meth_to_s.compile_call(v, [array])
        end
 end
 

diff --git a/src/syntax/typing.nit b/src/syntax/typing.nit
index 93640e6..f303d7e 100644 (file)
--- a/src/syntax/typing.nit
+++ b/src/syntax/typing.nit
@@ -694,16 +694,18 @@ redef class AStringFormExpr
 end
 
 redef class ASuperstringExpr
-       readable attr _meth_init: MMMethod
-       readable attr _meth_append: MMMethod
+       readable attr _meth_with_capacity: MMMethod
+       readable attr _meth_add: MMMethod
        readable attr _meth_to_s: MMMethod
+       readable attr _atype: MMType
        redef meth after_typing(v)
        do
                _stype = v.type_string
-               _meth_init = _stype.local_class.select_method(once "init".to_symbol)
-               if _meth_init == null then v.error(self, "{_stype} MUST have an init method.")
-               _meth_append = _stype.local_class.select_method(once "append".to_symbol)
-               if _meth_append == null then v.error(self, "{_stype} MUST have a append method.")
+               _atype = v.type_array(_stype)
+               _meth_with_capacity = _atype.local_class.select_method(once "with_capacity".to_symbol)
+               if _meth_with_capacity == null then v.error(self, "{_atype} MUST have a with_capacity method.")
+               _meth_add = _atype.local_class.select_method(once "add".to_symbol)
+               if _meth_add == null then v.error(self, "{_atype} MUST have an add method.")
                _meth_to_s = v.type_object.local_class.select_method(once "to_s".to_symbol)
                if _meth_to_s == null then v.error(self, "Object MUST have a to_s method.")
        end