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

diff --git a/src/metrics/rta_metrics.nit b/src/metrics/rta_metrics.nit
index 7e31319..00f9d02 100644
--- a/src/metrics/rta_metrics.nit
+++ b/src/metrics/rta_metrics.nit
@@ -17,12 +17,10 @@
 # Metrics from RTA
 module rta_metrics
 
-import modelbuilder
 private import rapid_type_analysis
-private import metrics_base
+import metrics_base
 import mmodules_metrics
 import mclasses_metrics
-import frontend
 
 redef class ToolContext
 	var rta_metrics_phase: Phase = new RTAMetricsPhase(self, null)
@@ -80,12 +78,40 @@ private class RTAMetricsPhase
 		gmetrics.to_console(1, not toolcontext.opt_nocolors.value)
 		if csv then gmetrics.to_csv.save("{out}/complexity.csv")
 
+		callsite_info(analysis)
+
 		# dump type and method infos
 		if csv then
 			analysis.live_types_to_csv.save("{out}/rta_types.csv")
 			analysis.live_methods_to_tree.write_to_file("{out}/rta_methods.dat")
 		end
 	end
+
+	fun callsite_info(rta: RapidTypeAnalysis)
+	do
+		print toolcontext.format_h2("\n ## Callsites")
+		print "* {rta.live_callsites.length} live callsites"
+
+		var csep = new Counter[MPropDef]
+		var cglo = new Counter[MPropDef]
+		var morphisme = new Counter[Int]
+		for cs in rta.live_callsites do
+			csep.inc(cs.mpropdef)
+			var targets = rta.live_targets(cs)
+			for d in targets do
+				cglo.inc(d)
+			end
+			morphisme.inc(targets.length)
+		end
+
+		print toolcontext.format_h3("MMethodDef locally designated (by number of CallSites)")
+		csep.print_summary
+		csep.print_elements(5)
+
+		print toolcontext.format_h3("MMethodDef possibly invoked at runtime (by number of CallSites)")
+		cglo.print_summary
+		cglo.print_elements(5)
+	end
 end
 
 # Summary metrics
@@ -348,7 +374,7 @@ redef class RapidTypeAnalysis
 		super
 		tnlc.values.inc(mtype)
 
-		if mtype isa MNullableType then mtype = mtype.mtype
+		mtype = mtype.undecorate
 		if mtype isa MClassType then
 			cnlc.values.inc(mtype.mclass)
 		end
@@ -359,8 +385,7 @@ end
 
 redef class MType
 	private fun signature_depth: Int do
-		var mtype = self
-		if mtype isa MNullableType then mtype = mtype.mtype
+		var mtype = self.undecorate
 		if not mtype isa MGenericType then return 0
 
 		var depth = 0