|
|
@ -57,9 +57,12 @@ module MethodRangeMap = struct
|
|
|
|
in
|
|
|
|
in
|
|
|
|
let range = (start_location, end_location) in
|
|
|
|
let range = (start_location, end_location) in
|
|
|
|
let classname, methodname = split_class_method_name decl.method_name in
|
|
|
|
let classname, methodname = split_class_method_name decl.method_name in
|
|
|
|
let signature = match decl.signature with Some s -> s | _ -> "" in
|
|
|
|
match decl.signature with
|
|
|
|
let key = JavaProfilerSamples.create ~classname ~methodname ~signature in
|
|
|
|
| Some signature ->
|
|
|
|
RangeMap.add key range acc )
|
|
|
|
let key = JavaProfilerSamples.create ~classname ~methodname ~signature in
|
|
|
|
|
|
|
|
RangeMap.add key range acc
|
|
|
|
|
|
|
|
| None ->
|
|
|
|
|
|
|
|
acc )
|
|
|
|
in
|
|
|
|
in
|
|
|
|
map := map'
|
|
|
|
map := map'
|
|
|
|
| _ ->
|
|
|
|
| _ ->
|
|
|
|