steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.codegen: removing the insn-counts global 

It created a histogram of instructins for debugging, but it is not so
useful...
char-rename
Björn Lindqvist 2016-09-14 14:54:43 +02:00
parent 3bbf421043
commit 409cf9bd3e
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
basis/compiler/codegen/codegen.factor
View File

@ -1,19 +1,14 @@
! Copyright (C) 2008, 2011 Slava Pestov. ! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-arrays classes combinators USING: accessors arrays assocs byte-arrays combinators compiler.cfg
compiler.cfg compiler.cfg.comparisons compiler.cfg.instructions compiler.cfg.comparisons compiler.cfg.instructions
compiler.cfg.linearization compiler.cfg.stack-frame compiler.cfg.linearization compiler.codegen.gc-maps
compiler.codegen.gc-maps compiler.codegen.labels compiler.codegen.labels compiler.codegen.relocation compiler.constants
compiler.codegen.relocation compiler.constants cpu.architecture cpu.architecture fry generic.parser kernel layouts locals make math
fry generic.parser kernel layouts locals make math namespaces namespaces parser quotations sequences sequences.generalizations slots
parser quotations sequences sequences.generalizations slots
words ; words ;
IN: compiler.codegen IN: compiler.codegen
SYMBOL: insn-counts
H{ } clone insn-counts set-global
GENERIC: generate-insn ( insn -- ) GENERIC: generate-insn ( insn -- )
! Control flow ! Control flow
@ -64,11 +59,7 @@ M: ##dispatch generate-insn
[ basic-block set ] [ basic-block set ]
[ lookup-label resolve-label ] [ lookup-label resolve-label ]
[ [
instructions>> [ instructions>> [ generate-insn ] each
[ class-of insn-counts get-global inc-at ]
[ generate-insn ]
bi
] each
] tri ; ] tri ;
: init-fixup ( -- ) : init-fixup ( -- )