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

diff --git a/src/rapid_type_analysis.nit b/src/rapid_type_analysis.nit
index ea0dcaf..6ce94cb 100644
--- a/src/rapid_type_analysis.nit
+++ b/src/rapid_type_analysis.nit
@@ -31,6 +31,7 @@ private import ordered_tree # for live_methods_to_tree
 private import more_collections
 
 redef class ModelBuilder
+	# Performs a rapid-type-analysis on the program associated with `mainmodule`.
 	fun do_rapid_type_analysis(mainmodule: MModule): RapidTypeAnalysis
 	do
 		var analysis = new RapidTypeAnalysis(self, mainmodule)
@@ -204,6 +205,7 @@ class RapidTypeAnalysis
 		force_alive("Int")
 		force_alive("Float")
 		force_alive("Char")
+		force_alive("Pointer")
 
 		while not todo.is_empty do
 			var mmethoddef = todo.shift
@@ -238,13 +240,6 @@ class RapidTypeAnalysis
 				if mmeth.name == "init" then
 					var nclassdef = self.modelbuilder.mclassdef2nclassdef[mmethoddef.mclassdef]
 					assert mmethoddef == nclassdef.mfree_init
-					var super_inits = nclassdef.super_inits
-					if super_inits != null then
-						#assert args.length == 1
-						for su in super_inits do
-							v.add_monomorphic_send(v.receiver, su)
-						end
-					end
 
 					if mmethoddef.mproperty.is_root_init and not mmethoddef.is_intro then
 						self.add_super_send(v.receiver, mmethoddef)
@@ -680,6 +675,8 @@ redef class AForExpr
 			abort
 		end
 		v.add_callsite(self.method_next)
+		var mf = self.method_finish
+		if mf != null then v.add_callsite(mf)
 	end
 end