X-Git-Url: http://nitlanguage.org

diff --git a/src/naive_interpreter.nit b/src/naive_interpreter.nit
index f53be09..7f8d5ee 100644
--- a/src/naive_interpreter.nit
+++ b/src/naive_interpreter.nit
@@ -794,6 +794,9 @@ redef class AMethPropdef
 				return v.bool_instance(args[0].to_f.is_inf != 0)
 			end
 		else if cname == "NativeString" then
+			if pname == "init" then
+				return v.native_string_instance("!" * args[1].to_i)
+			end
 			var recvval = args.first.val.as(Buffer)
 			if pname == "[]" then
 				var arg1 = args[1].to_i
@@ -852,6 +855,10 @@ redef class AMethPropdef
 		else if pname == "calloc_string" then
 			return v.native_string_instance("!" * args[1].to_i)
 		else if cname == "NativeArray" then
+			if pname == "init" then
+				var val = new Array[Instance].filled_with(v.null_instance, args[1].to_i)
+				return new PrimitiveInstance[Array[Instance]](args[0].mtype, val)
+			end
 			var recvval = args.first.val.as(Array[Instance])
 			if pname == "[]" then
 				if args[1].to_i >= recvval.length or args[1].to_i < 0 then
@@ -1000,11 +1007,11 @@ redef class AClassdef
 	do
 		var super_inits = self.super_inits
 		if super_inits != null then
-			assert args.length == 1
+			var args_of_super = args
+			if args.length > 1 then args_of_super = [args.first]
 			for su in super_inits do
-				v.send(su, args)
+				v.send(su, args_of_super)
 			end
-			return null
 		end
 		var recv = args.first
 		assert recv isa MutableInstance
@@ -1560,7 +1567,7 @@ redef class ASuperExpr
 		if callsite != null then
 			# Add additionnals arguments for the super init call
 			if args.length == 1 then
-				for i in [0..callsite.mproperty.intro.msignature.arity[ do
+				for i in [0..callsite.msignature.arity[ do
 					args.add(v.frame.arguments[i+1])
 				end
 			end