1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2012 Jean Privat <jean@pryen.org>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 # Rapid type analysis on the AST
19 # Rapid type analysis is an analyse that aproximates the set of live classes
20 # and the set of live methods starting from the entry point of the program.
21 # These two sets are interdependant and computed together.
22 # It is quite efficient but the type set is global and pollutes each call site.
23 module rapid_type_analysis
26 private import explain_assert_api
28 import csv
# for live_types_to_csv
29 private import ordered_tree
# for live_methods_to_tree
31 private import more_collections
33 redef class ModelBuilder
34 # Performs a rapid-type-analysis on the program associated with `mainmodule`.
35 fun do_rapid_type_analysis
(mainmodule
: MModule): RapidTypeAnalysis
37 var analysis
= new RapidTypeAnalysis(self, mainmodule
)
40 if toolcontext
.opt_log
.value
then
41 var basename
= toolcontext
.log_directory
/ mainmodule
.name
42 analysis
.live_methods_to_tree
.write_to_file
(basename
+ ".rta_methods.txt")
43 analysis
.live_types_to_csv
.write_to_file
(basename
+ ".rta_types.csv")
50 # RapidTypeAnalysis looks for alive rapid types in application.
51 # The entry point of the analysis is the mainmodule of the application.
52 class RapidTypeAnalysis
53 # The modelbuilder used to get the AST.
54 var modelbuilder
: ModelBuilder
56 # The main module of the analysis.
57 # Used to perform types operations.
58 var mainmodule
: MModule
60 # The pool to live types.
61 # During the analysis, new types are added and combined with
62 # live_methods to determine new methoddefs to visit
63 var live_types
= new HashSet[MClassType]
65 # The pool of unresolved live types
66 # They are globally resolved at the end of the analaysis
67 var live_open_types
= new HashSet[MClassType]
69 # Live (instantiated) classes.
70 var live_classes
= new HashSet[MClass]
72 # The pool of types used to perform type checks (isa and as).
73 var live_cast_types
= new HashSet[MType]
75 # The pool of undesolved types used to perform type checks (isa and as).
76 # They are globally resolved at the end of the analaysis
77 var live_open_cast_types
= new HashSet[MType]
79 # Live method definitions.
80 var live_methoddefs
= new HashSet[MMethodDef]
83 var live_methods
= new HashSet[MMethod]
86 # Those with a live method definitions (see `live_methoddefs`)
87 var live_mmodules
= new HashSet[MModule]
90 var live_callsites
= new HashSet[CallSite]
92 private var live_targets_cache
= new HashMap2[MType, MProperty, Set[MMethodDef]]
94 # The live targets of a specific callsite.
95 fun live_targets
(callsite
: CallSite): Set[MMethodDef]
97 var mtype
= callsite
.recv
98 var anchor
= callsite
.anchor
99 if anchor
!= null then mtype
= mtype
.anchor_to
(callsite
.mmodule
, anchor
)
100 mtype
= mtype
.undecorate
101 if mtype
isa MClassType then mtype
= mtype
.mclass
.intro
.bound_mtype
102 var mproperty
= callsite
.mproperty
103 var res
= live_targets_cache
[mtype
, mproperty
]
104 if res
!= null then return res
105 res
= new ArraySet[MMethodDef]
106 live_targets_cache
[mtype
, mproperty
] = res
108 for c
in live_classes
do
109 var tc
= c
.intro
.bound_mtype
110 if not tc
.is_subtype
(mainmodule
, null, mtype
) then continue
111 var d
= mproperty
.lookup_first_definition
(mainmodule
, tc
)
118 # Live call-to-super.
119 var live_super_sends
= new HashSet[MMethodDef]
121 # Return a ready-to-save CSV document objet that agregates informations about live types.
122 # Each discovered type is listed in a line, with its status: resolution, liveness, cast-liveness.
123 # Note: types are listed in an alphanumeric order to improve human reading.
124 fun live_types_to_csv
: CsvDocument
126 # Gather all kind of type
127 var typeset
= new HashSet[MType]
128 typeset
.add_all
(live_types
)
129 typeset
.add_all
(live_open_types
)
130 typeset
.add_all
(live_cast_types
)
131 typeset
.add_all
(live_open_cast_types
)
132 var types
= typeset
.to_a
133 (new CachedAlphaComparator).sort
(types
)
134 var res
= new CsvDocument
136 res
.header
= ["Type", "Resolution", "Liveness", "Cast-liveness"]
139 if t
.need_anchor
then reso
= "OPEN " else reso
= "CLOSED"
141 if t
isa MClassType and (live_types
.has
(t
) or live_open_types
.has
(t
)) then live
= "LIVE" else live
= "DEAD"
143 if live_cast_types
.has
(t
) or live_open_cast_types
.has
(t
) then cast
= "CAST LIVE" else cast
= "CAST DEAD"
144 res
.add_record
(t
, reso
, live
, cast
)
149 # Return a ready-to-save OrderedTree object that agregates infomration about live methods.
150 # Note: methods are listed in an alphanumeric order to improve human reading.
151 fun live_methods_to_tree
: OrderedTree[Object]
153 var tree
= new OrderedTree[Object]
154 for x
in live_methods
do
157 for z
in x
.mpropdefs
do
159 if live_methoddefs
.has
(z
) then
161 if live_super_sends
.has
(z
) then
162 tree
.add
(zn
, zn
+ "(super)")
164 else if live_super_sends
.has
(z
) then
165 tree
.add
(xn
, zn
+ "(super)")
169 tree
.sort_with
(alpha_comparator
)
173 # Methods that are still candidate to the try_send
174 private var totry_methods
= new HashSet[MMethod]
176 # Methods that are are no more candidate to the try_send
177 private var totry_methods_to_remove
= new Array[MMethod]
179 # Methods that are or were candidate to the try_send
180 # Used to ensure that try_send is only used once
181 private var try_methods
= new HashSet[MMethod]
183 # The method definitions that remain to visit
184 private var todo
= new List[MMethodDef]
186 private fun force_alive
(classname
: String)
188 var classes
= self.modelbuilder
.model
.get_mclasses_by_name
(classname
)
189 if classes
!= null then for c
in classes
do self.add_new
(c
.mclass_type
, c
.mclass_type
)
192 # Run the analysis until all visitable method definitions are visited.
195 var maintype
= mainmodule
.sys_type
196 if maintype
== null then return # No entry point
197 add_new
(maintype
, maintype
)
198 var initprop
= mainmodule
.try_get_primitive_method
("init", maintype
.mclass
)
199 if initprop
!= null then
200 add_send
(maintype
, initprop
)
202 var mainprop
= mainmodule
.try_get_primitive_method
("run", maintype
.mclass
) or else
203 mainmodule
.try_get_primitive_method
("main", maintype
.mclass
)
204 if mainprop
!= null then
205 add_send
(maintype
, mainprop
)
208 var finalizable_type
= mainmodule
.finalizable_type
209 if finalizable_type
!= null then
210 var finalize_meth
= mainmodule
.try_get_primitive_method
("finalize", finalizable_type
.mclass
)
211 if finalize_meth
!= null then add_send
(finalizable_type
, finalize_meth
)
214 # Force primitive types
218 force_alive
("Pointer")
223 force_alive
("UInt16")
225 force_alive
("UInt32")
227 while not todo
.is_empty
do
228 var mmethoddef
= todo
.shift
229 var mmeth
= mmethoddef
.mproperty
230 var msignature
= mmethoddef
.msignature
231 if msignature
== null then continue # Skip broken method
233 #print "# visit {mmethoddef}"
234 var v
= new RapidTypeVisitor(self, mmethoddef
.mclassdef
.bound_mtype
, mmethoddef
)
236 var vararg_rank
= msignature
.vararg_rank
237 if vararg_rank
> -1 then
238 var node
= self.modelbuilder
.mpropdef2node
(mmethoddef
)
239 var elttype
= msignature
.mparameters
[vararg_rank
].mtype
240 #elttype = elttype.anchor_to(self.mainmodule, v.receiver)
241 var vararg
= self.mainmodule
.array_type
(elttype
)
243 var native
= self.mainmodule
.native_array_type
(elttype
)
245 v
.add_monomorphic_send
(vararg
, self.modelbuilder
.force_get_primitive_method
(node
, "with_native", vararg
.mclass
, self.mainmodule
))
249 var osig
= mmeth
.intro
.msignature
.as(not null)
250 for i
in [0..sig
.arity
[ do
251 var origtype
= osig
.mparameters
[i
].mtype
252 if not origtype
.need_anchor
then continue # skip non covariant stuff
253 var paramtype
= sig
.mparameters
[i
].mtype
257 if mmethoddef
.is_abstract
then continue
259 var npropdef
= modelbuilder
.mpropdef2node
(mmethoddef
)
261 if npropdef
isa AClassdef then
262 if mmethoddef
.mproperty
.is_root_init
then
264 if not mmethoddef
.is_intro
then
265 self.add_super_send
(v
.receiver
, mmethoddef
)
267 else if mmethoddef
.mclassdef
.default_init
== mmethoddef
then
269 for i
in mmethoddef
.initializers
do
270 if i
isa MMethod then self.add_send
(v
.receiver
, i
)
273 npropdef
.debug
"cannot RTA {mmethoddef}"
277 else if mmethoddef
.constant_value
!= null then
278 # Make the return type live
279 v
.add_type
(msignature
.return_mtype
.as(MClassType))
281 else if npropdef
== null then
285 if npropdef
isa AMethPropdef then
286 var auto_super_inits
= npropdef
.auto_super_inits
287 if auto_super_inits
!= null then
288 for auto_super_init
in auto_super_inits
do
289 v
.add_callsite
(auto_super_init
)
292 if npropdef
.auto_super_call
then
293 self.add_super_send
(v
.receiver
, mmethoddef
)
297 if mmethoddef
.is_intern
or mmethoddef
.is_extern
then
298 # UGLY: We force the "instantation" of the concrete return type if any
299 var ret
= msignature
.return_mtype
300 if ret
!= null and ret
isa MClassType and ret
.mclass
.kind
!= abstract_kind
and ret
.mclass
.kind
!= interface_kind
then
305 v
.enter_visit
(npropdef
)
308 #print "MMethod {live_methods.length}: {live_methods.join(", ")}"
309 #print "MMethodDef {live_methoddefs.length}: {live_methoddefs.join(", ")}"
311 #print "open MType {live_open_types.length}: {live_open_types.join(", ")}"
312 var todo_types
= new List[MClassType]
313 todo_types
.add_all
(live_types
)
314 while not todo_types
.is_empty
do
315 var t
= todo_types
.shift
316 for ot
in live_open_types
do
318 if not ot
.can_resolve_for
(t
, t
, mainmodule
) then continue
319 var rt
= ot
.anchor_to
(mainmodule
, t
)
320 if live_types
.has
(rt
) then continue
321 if not rt
.is_legal_in
(mainmodule
) then continue
322 if not check_depth
(rt
) then continue
323 #print "{ot}/{t} -> {rt}"
325 # unshift means a deep-first visit.
326 # So that the `check_depth` limit is reached sooner.
327 todo_types
.unshift
(rt
)
330 #print "MType {live_types.length}: {live_types.join(", ")}"
332 #print "open cast MType {live_open_cast_types.length}: {live_open_cast_types.join(", ")}"
333 for ot
in live_open_cast_types
do
334 #print "live_open_cast_type: {ot}"
335 for t
in live_types
do
336 if not ot
.can_resolve_for
(t
, t
, mainmodule
) then continue
337 var rt
= ot
.anchor_to
(mainmodule
, t
)
338 if not rt
.is_legal_in
(mainmodule
) then continue
339 live_cast_types
.add
(rt
)
340 #print " {ot}/{t} -> {rt}"
343 #print "cast MType {live_cast_types.length}: {live_cast_types.join(", ")}"
346 private fun check_depth
(mtype
: MClassType): Bool
350 self.modelbuilder
.toolcontext
.fatal_error
(null, "Fatal Error: limitation in the rapidtype analysis engine: a type depth of {d} is too important, the problematic type is `{mtype}`.")
356 fun add_new
(recv
: MClassType, mtype
: MClassType)
358 assert not recv
.need_anchor
359 if mtype
.need_anchor
then
360 if live_open_types
.has
(mtype
) then return
361 live_open_types
.add
(mtype
)
363 if live_types
.has
(mtype
) then return
364 live_types
.add
(mtype
)
367 var mclass
= mtype
.mclass
368 if live_classes
.has
(mclass
) then return
369 live_classes
.add
(mclass
)
371 for p
in totry_methods
do try_send
(mtype
, p
)
372 for p
in live_super_sends
do try_super_send
(mtype
, p
)
374 # Remove cleared ones
375 for p
in totry_methods_to_remove
do totry_methods
.remove
(p
)
376 totry_methods_to_remove
.clear
378 var bound_mtype
= mtype
.anchor_to
(mainmodule
, recv
)
379 for cd
in bound_mtype
.collect_mclassdefs
(mainmodule
)
381 for npropdef
in modelbuilder
.collect_attr_propdef
(cd
) do
382 if not npropdef
.has_value
then continue
384 var mpropdef
= npropdef
.mreadpropdef
.as(not null)
385 var v
= new RapidTypeVisitor(self, bound_mtype
, mpropdef
)
386 v
.enter_visit
(npropdef
.n_expr
)
387 v
.enter_visit
(npropdef
.n_block
)
392 fun add_cast
(mtype
: MType)
394 if mtype
.need_anchor
then
395 live_open_cast_types
.add
(mtype
)
397 live_cast_types
.add
(mtype
)
401 fun try_send
(recv
: MClassType, mproperty
: MMethod)
403 recv
= recv
.mclass
.intro
.bound_mtype
404 if not recv
.has_mproperty
(mainmodule
, mproperty
) then return
405 var d
= mproperty
.lookup_first_definition
(mainmodule
, recv
)
409 fun add_call
(mpropdef
: MMethodDef)
411 if live_methoddefs
.has
(mpropdef
) then return
412 live_methoddefs
.add
(mpropdef
)
413 live_mmodules
.add
(mpropdef
.mclassdef
.mmodule
)
416 var mproperty
= mpropdef
.mproperty
417 if mproperty
.mpropdefs
.length
<= 1 then return
418 # If all definitions of a method are live, we can remove the definition of the totry set
419 for d
in mproperty
.mpropdefs
do
420 if not live_methoddefs
.has
(d
) then return
422 #print "full property: {mpropdef.mproperty} for {mpropdef.mproperty.mpropdefs.length} definitions"
423 totry_methods_to_remove
.add
(mpropdef
.mproperty
)
426 fun add_send
(recv
: MType, mproperty
: MMethod)
428 if try_methods
.has
(mproperty
) then return
429 #print "new prop: {mproperty}"
430 live_methods
.add
(mproperty
)
431 try_methods
.add
(mproperty
)
432 if mproperty
.mpropdefs
.length
== 1 then
433 # If there is only one definition, just add the definition and do not try again the property
434 var d
= mproperty
.mpropdefs
.first
438 # Else, the property is potentially called with various reciever
439 # So just try the methods with existing receiver and register it for future receiver
440 totry_methods
.add
(mproperty
)
441 for c
in live_classes
do
442 try_send
(c
.intro
.bound_mtype
, mproperty
)
446 fun try_super_send
(recv
: MClassType, mpropdef
: MMethodDef)
448 recv
= recv
.mclass
.intro
.bound_mtype
449 if not recv
.collect_mclassdefs
(mainmodule
).has
(mpropdef
.mclassdef
) then return
450 var d
= mpropdef
.lookup_next_definition
(mainmodule
, recv
)
454 fun add_super_send
(recv
: MType, mpropdef
: MMethodDef)
456 assert mpropdef
.has_supercall
457 if live_super_sends
.has
(mpropdef
) then return
458 #print "new super prop: {mpropdef}"
459 live_super_sends
.add
(mpropdef
)
460 for c
in live_classes
do
461 try_super_send
(c
.intro
.bound_mtype
, mpropdef
)
466 class RapidTypeVisitor
469 var analysis
: RapidTypeAnalysis
470 var receiver
: MClassType
471 var mpropdef
: MPropDef
475 assert not receiver
.need_anchor
481 if n
.mtype
!= null or n
.is_typed
then
482 n
.accept_rapid_type_visitor
(self)
483 var implicit_cast_to
= n
.implicit_cast_to
484 if implicit_cast_to
!= null then self.add_cast_type
(implicit_cast_to
)
487 n
.accept_rapid_type_visitor
(self)
490 # RTA does not enter in AAnnotations
491 if not n
isa AAnnotations then
496 fun cleanup_type
(mtype
: MType): nullable MClassType
498 mtype
= mtype
.anchor_to
(self.analysis
.mainmodule
, self.receiver
)
499 if mtype
isa MNullType then return null
500 mtype
= mtype
.undecorate
501 assert mtype
isa MClassType
502 assert not mtype
.need_anchor
506 fun get_method
(recv
: MType, name
: String): MMethod
508 var mtype
= cleanup_type
(recv
)
510 return self.analysis
.modelbuilder
.force_get_primitive_method
(self.current_node
.as(not null), name
, mtype
.mclass
, self.analysis
.mainmodule
)
513 fun add_type
(mtype
: MClassType) do analysis
.add_new
(receiver
, mtype
)
515 fun add_monomorphic_send
(mtype
: MType, mproperty
: MMethod)
517 analysis
.live_methods
.add
(mproperty
)
518 analysis
.try_send
(mtype
.as(MClassType), mproperty
)
521 fun add_send
(mtype
: MType, mproperty
: MMethod) do analysis
.add_send
(mtype
, mproperty
)
523 fun add_cast_type
(mtype
: MType) do analysis
.add_cast
(mtype
)
525 fun add_callsite
(callsite
: nullable CallSite) do if callsite
!= null then
526 for m
in callsite
.mpropdef
.initializers
do
527 if m
isa MMethod then
528 analysis
.add_send
(callsite
.recv
, m
)
531 analysis
.add_send
(callsite
.recv
, callsite
.mproperty
)
532 analysis
.live_callsites
.add
(callsite
)
539 private fun accept_rapid_type_visitor
(v
: RapidTypeVisitor)
545 # Make the `mtype` of the expression live
546 # Used by literals and instantiations
547 fun allocate_mtype
(v
: RapidTypeVisitor)
549 var mtype
= self.mtype
550 if not mtype
isa MClassType then return
551 v
.add_type
(self.mtype
.as(MClassType))
555 redef class AIntegerExpr
556 redef fun accept_rapid_type_visitor
(v
)
562 redef class AFloatExpr
563 redef fun accept_rapid_type_visitor
(v
)
569 redef class ACharExpr
570 redef fun accept_rapid_type_visitor
(v
)
576 redef class AArrayExpr
577 redef fun accept_rapid_type_visitor
(v
)
579 var mtype
= self.mtype
.as(MClassType)
581 var native
= v
.analysis
.mainmodule
.native_array_type
(mtype
.arguments
.first
)
583 mtype
= v
.cleanup_type
(mtype
).as(not null)
584 var prop
= v
.get_method
(mtype
, "with_native")
585 v
.add_monomorphic_send
(mtype
, prop
)
586 v
.add_callsite
(with_capacity_callsite
)
587 v
.add_callsite
(push_callsite
)
591 redef class AStringFormExpr
592 redef fun accept_rapid_type_visitor
(v
)
594 var native
= v
.analysis
.mainmodule
.c_string_type
596 var prop
= v
.get_method
(native
, "to_s_unsafe")
597 v
.add_monomorphic_send
(native
, prop
)
598 v
.add_callsite
(to_re
)
599 v
.add_callsite
(ignore_case
)
600 v
.add_callsite
(newline
)
601 v
.add_callsite
(extended
)
602 v
.add_callsite
(to_bytes_with_copy
)
606 redef class ASuperstringExpr
607 redef fun accept_rapid_type_visitor
(v
)
609 var mmodule
= v
.analysis
.mainmodule
610 var object_type
= mmodule
.string_type
611 var arraytype
= mmodule
.array_type
(object_type
)
612 v
.add_type
(arraytype
)
613 var nattype
= mmodule
.native_array_type
(object_type
)
615 var prop
= v
.get_method
(arraytype
, "join")
616 v
.add_monomorphic_send
(arraytype
, prop
)
617 var prop2
= v
.get_method
(arraytype
, "with_native")
618 v
.add_monomorphic_send
(arraytype
, prop2
)
619 v
.add_monomorphic_send
(nattype
, v
.get_method
(nattype
, "native_to_s"))
623 redef class ACrangeExpr
624 redef fun accept_rapid_type_visitor
(v
)
626 var mtype
= self.mtype
627 if not mtype
isa MClassType then return
629 v
.add_callsite
(init_callsite
)
633 redef class AOrangeExpr
634 redef fun accept_rapid_type_visitor
(v
)
636 var mtype
= self.mtype
637 if not mtype
isa MClassType then return
639 v
.add_callsite
(init_callsite
)
643 redef class ATrueExpr
644 redef fun accept_rapid_type_visitor
(v
)
650 redef class AFalseExpr
651 redef fun accept_rapid_type_visitor
(v
)
658 redef fun accept_rapid_type_visitor
(v
)
660 var cast_type
= self.cast_type
661 if cast_type
== null then return
662 v
.add_cast_type
(cast_type
)
666 redef class AAsCastExpr
667 redef fun accept_rapid_type_visitor
(v
)
669 var mtype
= self.mtype
670 if mtype
== null then return
671 v
.add_cast_type
(mtype
)
675 redef class AAssertExpr
676 redef fun accept_rapid_type_visitor
(v
)
678 if can_explain_assert
(v
.analysis
.modelbuilder
) then
679 var str
= explain_assert_str
680 if str
!= null then str
.accept_rapid_type_visitor
(v
)
684 # Does `modelbuilder` know the classes to build a superstring to explain a failed assert?
685 private fun can_explain_assert
(modelbuilder
: ModelBuilder): Bool
687 var nas
= modelbuilder
.model
.get_mclasses_by_name
("NativeArray")
688 if nas
== null then return false
690 nas
= modelbuilder
.model
.get_mclasses_by_name
("Array")
691 if nas
== null or nas
.is_empty
then return false
693 nas
= modelbuilder
.model
.get_mclasses_by_name
("String")
694 if nas
== null or nas
.is_empty
then return false
700 redef class ASendExpr
701 redef fun accept_rapid_type_visitor
(v
)
703 v
.add_callsite
(callsite
)
707 redef class ACallrefExpr
708 redef fun accept_rapid_type_visitor
(v
)
711 v
.add_type
(mtype
.as(MClassType))
715 redef class ASendReassignFormExpr
716 redef fun accept_rapid_type_visitor
(v
)
718 v
.add_callsite
(callsite
)
719 v
.add_callsite
(reassign_callsite
)
720 v
.add_callsite
(write_callsite
)
724 redef class AVarReassignExpr
725 redef fun accept_rapid_type_visitor
(v
)
727 v
.add_callsite
(reassign_callsite
)
731 redef class AAttrReassignExpr
732 redef fun accept_rapid_type_visitor
(v
)
734 v
.add_callsite
(reassign_callsite
)
738 redef class ASuperExpr
739 redef fun accept_rapid_type_visitor
(v
)
741 var callsite
= self.callsite
742 if callsite
!= null then
743 v
.add_callsite
(callsite
)
747 v
.analysis
.add_super_send
(v
.receiver
, mpropdef
.as(not null))
751 redef class AForGroup
752 redef fun accept_rapid_type_visitor
(v
)
754 v
.add_callsite
(self.method_iterator
)
755 v
.add_callsite
(self.method_is_ok
)
756 if self.variables
.length
== 1 then
757 v
.add_callsite
(self.method_item
)
758 else if self.variables
.length
== 2 then
759 v
.add_callsite
(self.method_key
)
760 v
.add_callsite
(self.method_item
)
764 v
.add_callsite
(self.method_next
)
765 var mf
= self.method_finish
766 if mf
!= null then v
.add_callsite
(mf
)
771 redef fun accept_rapid_type_visitor
(v
)
773 var mtype
= self.recvtype
.as(not null)
775 v
.add_callsite
(callsite
)