compiler.codegen: removing the insn-counts global
It created a histogram of instructins for debugging, but it is not so useful...char-rename
parent
3bbf421043
commit
409cf9bd3e
|
@ -1,19 +1,14 @@
|
|||
! Copyright (C) 2008, 2011 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays assocs byte-arrays classes combinators
|
||||
compiler.cfg compiler.cfg.comparisons compiler.cfg.instructions
|
||||
compiler.cfg.linearization compiler.cfg.stack-frame
|
||||
compiler.codegen.gc-maps compiler.codegen.labels
|
||||
compiler.codegen.relocation compiler.constants cpu.architecture
|
||||
fry generic.parser kernel layouts locals make math namespaces
|
||||
parser quotations sequences sequences.generalizations slots
|
||||
USING: accessors arrays assocs byte-arrays combinators compiler.cfg
|
||||
compiler.cfg.comparisons compiler.cfg.instructions
|
||||
compiler.cfg.linearization compiler.codegen.gc-maps
|
||||
compiler.codegen.labels compiler.codegen.relocation compiler.constants
|
||||
cpu.architecture fry generic.parser kernel layouts locals make math
|
||||
namespaces parser quotations sequences sequences.generalizations slots
|
||||
words ;
|
||||
IN: compiler.codegen
|
||||
|
||||
SYMBOL: insn-counts
|
||||
|
||||
H{ } clone insn-counts set-global
|
||||
|
||||
GENERIC: generate-insn ( insn -- )
|
||||
|
||||
! Control flow
|
||||
|
@ -64,11 +59,7 @@ M: ##dispatch generate-insn
|
|||
[ basic-block set ]
|
||||
[ lookup-label resolve-label ]
|
||||
[
|
||||
instructions>> [
|
||||
[ class-of insn-counts get-global inc-at ]
|
||||
[ generate-insn ]
|
||||
bi
|
||||
] each
|
||||
instructions>> [ generate-insn ] each
|
||||
] tri ;
|
||||
|
||||
: init-fixup ( -- )
|
||||
|
|
Loading…
Reference in New Issue