tools.time: overhaul

diff --git a/basis/bootstrap/tools/tools.factor b/basis/bootstrap/tools/tools.factor
index 848e310d63f50cb3dbb4adc57a27db6655c6c144..51f44025c9c7fe42d0826d7d6fcec1a06d5ec043 100644 (file)
--- a/basis/bootstrap/tools/tools.factor
+++ b/basis/bootstrap/tools/tools.factor
@@ -12,6 +12,7 @@ IN: bootstrap.tools
     "tools.deploy"
     "tools.destructors"
     "tools.disassembler"
+    "tools.dispatch"
     "tools.memory"
     "tools.profiler"
     "tools.test"

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 57d1fd3964efd91f430e317339e06e10860bca50..a42eada5634f81e16d79395dcb2d05cae653b414 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -163,8 +163,10 @@ SYMBOL: interactive-vocabs
     "syntax"
     "tools.annotations"
     "tools.crossref"
+    "tools.deprecation"
     "tools.destructors"
     "tools.disassembler"
+    "tools.dispatch"
     "tools.errors"
     "tools.memory"
     "tools.profiler"

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index 718de7e84c38174525ce4f0e5cf8bebf1607d798..6cff3992019b36f43cac5645b7275a3c4091c9a4 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -110,3 +110,7 @@ SYMBOL: pprint-string-cells?
             ] with-row
         ] each
     ] tabular-output nl ;
+
+: object-table. ( obj alist -- )
+    [ [ nip first ] [ second call( obj -- str ) ] 2bi 2array ] with map
+    simple-table. ;

diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor
index aea9c4b1ce8a8823c8db1f3851e90e0a96857998..2c0ce853aa569a33217b616431f1f6037f290628 100644 (file)
--- a/basis/stack-checker/known-words/known-words.factor
+++ b/basis/stack-checker/known-words/known-words.factor
@@ -13,7 +13,7 @@ words.private definitions assocs summary compiler.units
 system.private combinators combinators.short-circuit locals
 locals.backend locals.types combinators.private
 stack-checker.values generic.single generic.single.private
-alien.libraries
+alien.libraries tools.dispatch.private tools.profiler.private
 stack-checker.alien
 stack-checker.state
 stack-checker.errors
@@ -705,8 +705,6 @@ M: bad-executable summary
 
 \ reset-dispatch-stats { } { } define-primitive
 \ dispatch-stats { } { array } define-primitive
-\ reset-inline-cache-stats { } { } define-primitive
-\ inline-cache-stats { } { array } define-primitive
 
 \ optimized? { word } { object } define-primitive
 
@@ -716,3 +714,5 @@ M: bad-executable summary
 
 \ enable-gc-events { } { } define-primitive
 \ disable-gc-events { } { object } define-primitive
+
+\ profiling { object } { } define-primitive

diff --git a/basis/tools/memory/memory-docs.factor b/basis/tools/memory/memory-docs.factor
index 7ecbf402ab42dd5554e346219eea03cb2b9e3881..f729e8945f5ab73db3e84e599c5ed6d138e491ce 100644 (file)
--- a/basis/tools/memory/memory-docs.factor
+++ b/basis/tools/memory/memory-docs.factor
@@ -1,4 +1,4 @@
-USING: help.markup help.syntax memory sequences ;
+USING: help.markup help.syntax memory sequences vm ;
 IN: tools.memory
 
 ARTICLE: "tools.memory" "Object memory tools"
@@ -39,3 +39,15 @@ HELP: heap-stats.
 { $description "For each class, prints the number of instances and total memory consumed by those instances." } ;
 
 { heap-stats heap-stats. } related-words
+
+HELP: gc-events.
+{ $description "Prints all garbage collection events that took place during the last call to " { $link collect-gc-events } "." } ;
+
+HELP: gc-stats.
+{ $description "Prints a breakdown of different garbage collection events that took place during the last call to " { $link collect-gc-events } "." } ;
+
+HELP: gc-summary.
+{ $description "Prints aggregate garbage collection statistics from the last call to " { $link collect-gc-events } "." } ;
+
+HELP: gc-events
+{ $var-description "A sequence of " { $link gc-event } " instances, set by " { $link collect-gc-events } ". Can be inspected directly, or with the " { $link gc-events. } ", " { $link gc-stats. } " and " { $link gc-summary. } " words." } ;

diff --git a/basis/tools/memory/memory-tests.factor b/basis/tools/memory/memory-tests.factor
index 4b75cf0bfa33ed04d436bc9ae31834ef0945ac01..4711f472a390e17ab8643f198625fed40b29aa18 100644 (file)
--- a/basis/tools/memory/memory-tests.factor
+++ b/basis/tools/memory/memory-tests.factor
@@ -1,5 +1,9 @@
-USING: tools.test tools.memory ;
+USING: tools.test tools.memory memory ;
 IN: tools.memory.tests
 
 [ ] [ room. ] unit-test
 [ ] [ heap-stats. ] unit-test
+[ ] [ [ gc gc ] collect-gc-events ] unit-test
+[ ] [ gc-events. ] unit-test
+[ ] [ gc-stats. ] unit-test
+[ ] [ gc-summary. ] unit-test

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index 93151b403e1c0ec5e0696306561259d852cdfc71..c147426a6fa8132c0d44491e88a9ec51d55f8648 100644 (file)
--- a/basis/tools/memory/memory.factor
+++ b/basis/tools/memory/memory.factor
@@ -22,16 +22,12 @@ IN: tools.memory
 : micros>string ( n -- str )
     commas " µs" append ;
 
-: fancy-table. ( obj alist -- )
-    [ [ nip first ] [ second call( obj -- str ) ] 2bi 2array ] with map
-    simple-table. ;
-
 : copying-room. ( copying-sizes -- )
     {
         { "Size:" [ size>> kilobytes ] }
         { "Occupied:" [ occupied>> kilobytes ] }
         { "Free:" [ free>> kilobytes ] }
-    } fancy-table. ;
+    } object-table. ;
 
 : nursery-room. ( data-room -- )
     "- Nursery space" print nursery>> copying-room. ;
@@ -46,7 +42,7 @@ IN: tools.memory
         { "Total free:" [ total-free>> kilobytes ] }
         { "Contiguous free:" [ contiguous-free>> kilobytes ] }
         { "Free block count:" [ free-block-count>> number>string ] }
-    } fancy-table. ;
+    } object-table. ;
 
 : tenured-room. ( data-room -- )
     "- Tenured space" print tenured>> mark-sweep-table. ;
@@ -57,7 +53,7 @@ IN: tools.memory
         { "Card array:" [ cards>> kilobytes ] }
         { "Deck array:" [ decks>> kilobytes ] }
         { "Mark stack:" [ mark-stack>> kilobytes ] }
-    } fancy-table. ;
+    } object-table. ;
 
 : data-room. ( -- )
     "== Data heap ==" print nl
@@ -100,9 +96,12 @@ PRIVATE>
         ] each 2drop
     ] tabular-output nl ;
 
-: collect-gc-events ( quot -- events )
-    enable-gc-events [ ] [ disable-gc-events drop ] cleanup
-    disable-gc-events byte-array>gc-event-array ; inline
+SYMBOL: gc-events
+
+: collect-gc-events ( quot -- )
+    enable-gc-events
+    [ ] [ disable-gc-events drop ] cleanup
+    disable-gc-events byte-array>gc-event-array gc-events set ; inline
 
 <PRIVATE
 
@@ -169,15 +168,6 @@ TUPLE: gc-stats collections times ;
     [ gc-stats-table-row ] map
     { "" "Number" "Total" "Mean" "Median" "Min" "Max" } prefix ;
 
-: heap-sizes ( events -- seq )
-    [
-        [
-            [ [ start-time>> ] [ space-occupied-before ] bi 2array , ]
-            [ [ [ start-time>> ] [ total-time>> ] bi + ] [ space-occupied-after ] bi 2array , ]
-            bi
-        ] each
-    ] { } make ;
-
 PRIVATE>
 
 : gc-event. ( event -- )
@@ -185,13 +175,16 @@ PRIVATE>
         { "Event type:" [ op>> gc-op-string ] }
         { "Total time:" [ total-time>> micros>string ] }
         { "Space reclaimed:" [ space-reclaimed kilobytes ] }
-    } fancy-table. ;
+    } object-table. ;
 
-: gc-stats. ( events -- )
-    compute-gc-stats gc-stats-table simple-table. ;
+: gc-events. ( -- )
+    gc-events get [ gc-event. nl ] each ;
 
-: gc-summary. ( events -- )
-    {
+: gc-stats. ( -- )
+    gc-events get compute-gc-stats gc-stats-table simple-table. ;
+
+: gc-summary. ( -- )
+    gc-events get {
         { "Collections:" [ length commas ] }
         { "Cards scanned:" [ [ cards-scanned>> ] map-sum commas ] }
         { "Decks scanned:" [ [ decks-scanned>> ] map-sum commas ] }
@@ -202,7 +195,4 @@ PRIVATE>
         { "Data heap sweep time:" [ [ data-sweep-time>> ] map-sum micros>string ] }
         { "Code heap sweep time:" [ [ code-sweep-time>> ] map-sum micros>string ] }
         { "Compaction time:" [ [ compaction-time>> ] map-sum micros>string ] }
-    } fancy-table. ;
-
-: heap-sizes. ( events -- )
-    heap-sizes simple-table. ;
+    } object-table. ;

diff --git a/basis/tools/profiler/profiler-docs.factor b/basis/tools/profiler/profiler-docs.factor
index 0fda4a65e553b8f5ff5dd6abeaab7b86ba1c78cf..66ae5d7bd332485175e53182b8c4761d42c11f30 100644 (file)
--- a/basis/tools/profiler/profiler-docs.factor
+++ b/basis/tools/profiler/profiler-docs.factor
@@ -25,7 +25,7 @@ $nl
     method-profile.
     "profiler-limitations"
 }
-{ $see-also "ui.tools.profiler" } ;
+{ $see-also "ui.tools.profiler" "tools.annotations" "timing" } ;
 
 ABOUT: "profiling"
 

diff --git a/basis/tools/time/time-docs.factor b/basis/tools/time/time-docs.factor
index 3f8cbbf799b24540bde3f9ec36a3222a60c43bdb..9e892c33eccf24f2834f64704358971253602706 100644 (file)
--- a/basis/tools/time/time-docs.factor
+++ b/basis/tools/time/time-docs.factor
@@ -1,9 +1,12 @@
-USING: help.markup help.syntax memory system ;
+USING: help.markup help.syntax memory system tools.dispatch
+tools.memory quotations vm ;
 IN: tools.time
 
-ARTICLE: "timing" "Timing code"
+ARTICLE: "timing" "Timing code and collecting statistics"
 "You can time the execution of a quotation in the listener:"
 { $subsections time }
+"This word also collects statistics about method dispatch and garbage collection:"
+{ $subsections dispatch-stats. gc-events. gc-stats. gc-summary. }
 "A lower-level word puts timings on the stack, intead of printing:"
 { $subsections benchmark }
 "You can also read the system clock directly:"
@@ -13,13 +16,23 @@ ARTICLE: "timing" "Timing code"
 ABOUT: "timing"
 
 HELP: benchmark
-{ $values { "quot" "a quotation" }
+{ $values { "quot" quotation }
           { "runtime" "the runtime in microseconds" } }
       { $description "Runs a quotation, measuring the total wall clock time." }
 { $notes "A nicer word for interactive use is " { $link time } "." } ;
 
 HELP: time
-{ $values { "quot" "a quotation" } }
-{ $description "Runs a quotation and then prints the total run time and some statistics." } ;
+{ $values { "quot" quotation } }
+{ $description "Runs a quotation, gathering statistics about method dispatch and garbage collection, and then prints the total run time." } ;
 
 { benchmark micros time } related-words
+
+HELP: collect-gc-events
+{ $values { "quot" quotation } }
+{ $description "Calls the quotation, storing an array of " { $link gc-event } " instances in the " { $link gc-events } " variable." }
+{ $notes "The " { $link time } " combinator automatically calls this combinator." } ;
+
+HELP: collect-dispatch-stats
+{ $values { "quot" quotation } }
+{ $description "Calls the quotation, collecting method dispatch statistics and storing them in the " { $link last-dispatch-stats } " variable. " }
+{ $notes "The " { $link time } " combinator automatically calls this combinator." } ;

diff --git a/basis/tools/time/time.factor b/basis/tools/time/time.factor
index af1b528051c3ccd5b434a9d31f552256505318d9..3724a741b7f6e068e5b8173961cdecff20a03efc 100644 (file)
--- a/basis/tools/time/time.factor
+++ b/basis/tools/time/time.factor
@@ -1,38 +1,22 @@
 ! Copyright (C) 2003, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math memory io io.styles prettyprint
-namespaces system sequences splitting grouping assocs strings
-generic.single combinators ;
+USING: system kernel math io prettyprint tools.memory
+tools.dispatch ;
 IN: tools.time
 
 : benchmark ( quot -- runtime )
     micros [ call micros ] dip - ; inline
 
 : time. ( time -- )
-    "== Running time ==" print nl 1000000 /f pprint " seconds" print ;
+    "Running time: " write 1000000 /f pprint " seconds" print ;
 
-: dispatch-stats. ( stats -- )
-    "== Megamorphic caches ==" print nl
-    [ { "Hits" "Misses" } ] dip zip simple-table. ;
-
-: inline-cache-stats. ( stats -- )
-    "== Polymorphic inline caches ==" print nl
-    3 cut
-    [
-        "- Transitions:" print
-        [ { "Cold to monomorphic" "Mono to polymorphic" "Poly to megamorphic" } ] dip zip
-        simple-table. nl
-    ] [
-        "- Type check stubs:" print
-        [ { "Tag" "Tuple" } ] dip zip
-        simple-table.
-    ] bi* ;
+: time-banner. ( -- )
+    "Additional information was collected." print
+    "dispatch-stats.  - Print method dispatch statistics" print
+    "gc-events.       - Print all garbage collection events" print
+    "gc-stats.        - Print breakdown of different garbage collection events" print
+    "gc-summary.      - Print aggregate garbage collection statistics" print ;
 
 : time ( quot -- )
-    reset-dispatch-stats
-    reset-inline-cache-stats
-    benchmark dispatch-stats inline-cache-stats
-    [ time. nl ]
-    [ dispatch-stats. nl ]
-    [ inline-cache-stats. ]
-    tri* ; inline
+    [ [ benchmark ] collect-dispatch-stats ] collect-gc-events
+    time. nl time-banner. ; inline

diff --git a/basis/vm/vm.factor b/basis/vm/vm.factor
index 94fa0fcaf5c665ecd043d041c10043c3db9813ba..ba057edffa8f4a7ce4e6fc9ab4017d7e49e19921 100644 (file)
--- a/basis/vm/vm.factor
+++ b/basis/vm/vm.factor
@@ -7,17 +7,17 @@ TYPEDEF: intptr_t cell
 C-TYPE: context
 
 STRUCT: zone
-    { start cell }
-    { here cell }
-    { size cell }
-    { end cell } ;
+{ start cell }
+{ here cell }
+{ size cell }
+{ end cell } ;
 
 STRUCT: vm
-    { stack_chain context* }
-    { nursery zone }
-    { cards_offset cell }
-    { decks_offset cell }
-    { userenv cell[70] } ;
+{ stack_chain context* }
+{ nursery zone }
+{ cards_offset cell }
+{ decks_offset cell }
+{ userenv cell[70] } ;
 
 : vm-field-offset ( field -- offset ) vm offset-of ; inline
 
@@ -66,3 +66,14 @@ STRUCT: gc-event
 { code-sweep-time cell }
 { compaction-time cell }
 { temp-time cell } ;
+
+STRUCT: dispatch-statistics
+{ megamorphic-cache-hits cell }
+{ megamorphic-cache-misses cell }
+
+{ cold-call-to-ic-transitions cell }
+{ ic-to-pic-transitions cell }
+{ pic-to-mega-transitions cell }
+
+{ pic-tag-count cell }
+{ pic-tuple-count cell } ;

diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index 92f6c6f551a7f713bda1cd2a7bb401858476b362..5d4144e3548e0c56257a8361ed4e8021a09cf0eb 100644 (file)
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -99,6 +99,7 @@ bootstrapping? on
     "system"
     "system.private"
     "threads.private"
+    "tools.dispatch.private"
     "tools.profiler.private"
     "words"
     "words.private"
@@ -511,10 +512,8 @@ tuple
     { "inline-cache-miss-tail" "generic.single.private" (( generic methods index cache -- )) }
     { "mega-cache-miss" "generic.single.private" (( methods index cache -- method )) }
     { "lookup-method" "generic.single.private" (( object methods -- method )) }
-    { "reset-dispatch-stats" "generic.single" (( -- )) }
-    { "dispatch-stats" "generic.single" (( -- stats )) }
-    { "reset-inline-cache-stats" "generic.single" (( -- )) }
-    { "inline-cache-stats" "generic.single" (( -- stats )) }
+    { "reset-dispatch-stats" "tools.dispatch.private" (( -- )) }
+    { "dispatch-stats" "tools.dispatch.private" (( -- stats )) }
     { "optimized?" "words" (( word -- ? )) }
     { "quot-compiled?" "quotations" (( quot -- ? )) }
     { "vm-ptr" "vm" (( -- ptr )) }

diff --git a/vm/code_block.cpp b/vm/code_block.cpp
index 56dd27c6b716d14f231f375a8ccceaaa288c623c..dc6a488e26e1533e0ed064c3690684cc097ae52b 100755 (executable)
--- a/vm/code_block.cpp
+++ b/vm/code_block.cpp
@@ -178,7 +178,7 @@ cell factor_vm::compute_relocation(relocation_entry rel, cell index, code_block
        case RT_UNTAGGED:
                return untag_fixnum(ARG);
        case RT_MEGAMORPHIC_CACHE_HITS:
-               return (cell)&megamorphic_cache_hits;
+               return (cell)&dispatch_stats.megamorphic_cache_hits;
        case RT_VM:
                return (cell)this + untag_fixnum(ARG);
        case RT_CARDS_OFFSET:

diff --git a/vm/dispatch.cpp b/vm/dispatch.cpp
index 6bef9709444162a666db59e0e2bbc41c7638a58e..3eba483fe655574f03cdfa5563c78838feb6af53 100755 (executable)
--- a/vm/dispatch.cpp
+++ b/vm/dispatch.cpp
@@ -118,7 +118,7 @@ void factor_vm::update_method_cache(cell cache, cell klass, cell method)
 
 void factor_vm::primitive_mega_cache_miss()
 {
-       megamorphic_cache_misses++;
+       dispatch_stats.megamorphic_cache_misses++;
 
        cell cache = dpop();
        fixnum index = untag_fixnum(dpop());
@@ -135,16 +135,12 @@ void factor_vm::primitive_mega_cache_miss()
 
 void factor_vm::primitive_reset_dispatch_stats()
 {
-       megamorphic_cache_hits = megamorphic_cache_misses = 0;
+       memset(&dispatch_stats,0,sizeof(dispatch_statistics));
 }
 
 void factor_vm::primitive_dispatch_stats()
 {
-       growable_array stats(this);
-       stats.add(allot_cell(megamorphic_cache_hits));
-       stats.add(allot_cell(megamorphic_cache_misses));
-       stats.trim();
-       dpush(stats.elements.value());
+       dpush(tag<byte_array>(byte_array_from_value(&dispatch_stats)));
 }
 
 void quotation_jit::emit_mega_cache_lookup(cell methods_, fixnum index, cell cache_)

diff --git a/vm/dispatch.hpp b/vm/dispatch.hpp
index 412ef35bb4403ee39e5aa0ef975114ad79a07a9b..87d08e2760fb28de9a3662e99f5ab8c395f15cfd 100644 (file)
--- a/vm/dispatch.hpp
+++ b/vm/dispatch.hpp
@@ -1,4 +1,16 @@
 namespace factor
 {
 
+struct dispatch_statistics {
+       cell megamorphic_cache_hits;
+       cell megamorphic_cache_misses;
+
+       cell cold_call_to_ic_transitions;
+       cell ic_to_pic_transitions;
+       cell pic_to_mega_transitions;
+
+       cell pic_tag_count;
+       cell pic_tuple_count;
+};
+
 }

diff --git a/vm/inline_cache.cpp b/vm/inline_cache.cpp
index 21912966d05fe88b8459f6a8097899274c69bfd5..469bb8bf2e8aa2e007e836fc60a5a5dcc63b21db 100755 (executable)
--- a/vm/inline_cache.cpp
+++ b/vm/inline_cache.cpp
@@ -6,11 +6,6 @@ namespace factor
 void factor_vm::init_inline_caching(int max_size)
 {
        max_pic_size = max_size;
-       cold_call_to_ic_transitions = 0;
-       ic_to_pic_transitions = 0;
-       pic_to_mega_transitions = 0;
-       pic_counts[0] = 0;
-       pic_counts[1] = 0;
 }
 
 void factor_vm::deallocate_inline_cache(cell return_address)
@@ -48,7 +43,10 @@ cell factor_vm::determine_inline_cache_type(array *cache_entries)
 
 void factor_vm::update_pic_count(cell type)
 {
-       pic_counts[type - PIC_TAG]++;
+       if(type == PIC_TAG)
+               dispatch_stats.pic_tag_count++;
+       else
+               dispatch_stats.pic_tuple_count++;
 }
 
 struct inline_cache_jit : public jit {
@@ -167,11 +165,11 @@ cell factor_vm::add_inline_cache_entry(cell cache_entries_, cell klass_, cell me
 void factor_vm::update_pic_transitions(cell pic_size)
 {
        if(pic_size == max_pic_size)
-               pic_to_mega_transitions++;
+               dispatch_stats.pic_to_mega_transitions++;
        else if(pic_size == 0)
-               cold_call_to_ic_transitions++;
+               dispatch_stats.cold_call_to_ic_transitions++;
        else if(pic_size == 1)
-               ic_to_pic_transitions++;
+               dispatch_stats.ic_to_pic_transitions++;
 }
 
 /* The cache_entries parameter is empty (on cold call site) or has entries
@@ -241,23 +239,4 @@ VM_C_API void *inline_cache_miss(cell return_address, factor_vm *parent)
        return parent->inline_cache_miss(return_address);
 }
 
-void factor_vm::primitive_reset_inline_cache_stats()
-{
-       cold_call_to_ic_transitions = ic_to_pic_transitions = pic_to_mega_transitions = 0;
-       pic_counts[0] = 0;
-       pic_counts[1] = 0;
-}
-
-void factor_vm::primitive_inline_cache_stats()
-{
-       growable_array stats(this);
-       stats.add(allot_cell(cold_call_to_ic_transitions));
-       stats.add(allot_cell(ic_to_pic_transitions));
-       stats.add(allot_cell(pic_to_mega_transitions));
-       stats.add(allot_cell(pic_counts[0]));
-       stats.add(allot_cell(pic_counts[1]));
-       stats.trim();
-       dpush(stats.elements.value());
-}
-
 }

diff --git a/vm/master.hpp b/vm/master.hpp
index 0654e63bcb01a744e1bdebef8d90f3461431fc6d..39242a36afc6092ac2267db7adb6e5ca534999d8 100755 (executable)
--- a/vm/master.hpp
+++ b/vm/master.hpp
@@ -71,6 +71,7 @@ namespace factor
 #include "image.hpp"
 #include "alien.hpp"
 #include "callbacks.hpp"
+#include "dispatch.hpp"
 #include "vm.hpp"
 #include "allot.hpp"
 #include "tagged.hpp"
@@ -93,7 +94,6 @@ namespace factor
 #include "byte_arrays.hpp"
 #include "jit.hpp"
 #include "quotations.hpp"
-#include "dispatch.hpp"
 #include "inline_cache.hpp"
 #include "factor.hpp"
 #include "utilities.hpp"

diff --git a/vm/primitives.cpp b/vm/primitives.cpp
index f950e19e5ad88136640f6ab6345a66ff0194439a..957e6128ed4a75a09e71d4a5b9c33c7adfb4b54e 100644 (file)
--- a/vm/primitives.cpp
+++ b/vm/primitives.cpp
@@ -121,8 +121,6 @@ PRIMITIVE_FORWARD(mega_cache_miss)
 PRIMITIVE_FORWARD(lookup_method)
 PRIMITIVE_FORWARD(reset_dispatch_stats)
 PRIMITIVE_FORWARD(dispatch_stats)
-PRIMITIVE_FORWARD(reset_inline_cache_stats)
-PRIMITIVE_FORWARD(inline_cache_stats)
 PRIMITIVE_FORWARD(optimized_p)
 PRIMITIVE_FORWARD(quot_compiled_p)
 PRIMITIVE_FORWARD(vm_ptr)
@@ -287,8 +285,6 @@ const primitive_type primitives[] = {
        primitive_lookup_method,
        primitive_reset_dispatch_stats,
        primitive_dispatch_stats,
-       primitive_reset_inline_cache_stats,
-       primitive_inline_cache_stats,
        primitive_optimized_p,
        primitive_quot_compiled_p,
        primitive_vm_ptr,

diff --git a/vm/vm.cpp b/vm/vm.cpp
index 2a41e96dfee79bb97a1d3598a60bc422da2ef81f..72c63292fd94d25d89d85a9832fb492c0eaaae61 100755 (executable)
--- a/vm/vm.cpp
+++ b/vm/vm.cpp
@@ -11,6 +11,8 @@ factor_vm::factor_vm() :
        gc_events(NULL),\r
        fep_disabled(false),\r
        full_output(false)\r
-       { }\r
+{\r
+       primitive_reset_dispatch_stats();\r
+}\r
 \r
 }\r

diff --git a/vm/vm.hpp b/vm/vm.hpp
index aa04c8dffcae5712a2ee68fa6e2c52cc713d2bde..aa5a3051e6cd05768c98dba6a7c82df1762b6760 100755 (executable)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -80,14 +80,7 @@ struct factor_vm
        cell bignum_neg_one;
 
        /* Method dispatch statistics */
-       cell megamorphic_cache_hits;
-       cell megamorphic_cache_misses;
-
-       cell cold_call_to_ic_transitions;
-       cell ic_to_pic_transitions;
-       cell pic_to_mega_transitions;
-       /* Indexed by PIC_TAG, PIC_TUPLE */
-       cell pic_counts[2];
+       dispatch_statistics dispatch_stats;
 
        /* Number of entries in a polymorphic inline cache */
        cell max_pic_size;
@@ -646,8 +639,6 @@ struct factor_vm
        cell add_inline_cache_entry(cell cache_entries_, cell klass_, cell method_);
        void update_pic_transitions(cell pic_size);
        void *inline_cache_miss(cell return_address);
-       void primitive_reset_inline_cache_stats();
-       void primitive_inline_cache_stats();
 
        //factor
        void default_parameters(vm_parameters *p);