From 409cf9bd3e4963c876d924d34ee2721618b16b19 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 14 Sep 2016 14:54:43 +0200 Subject: [PATCH] compiler.codegen: removing the insn-counts global It created a histogram of instructins for debugging, but it is not so useful... --- basis/compiler/codegen/codegen.factor | 23 +++++++---------------- 1 file changed, 7 insertions(+), 16 deletions(-) diff --git a/basis/compiler/codegen/codegen.factor b/basis/compiler/codegen/codegen.factor index 2dcb25fe2e..e5b7b18ca4 100755 --- a/basis/compiler/codegen/codegen.factor +++ b/basis/compiler/codegen/codegen.factor @@ -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 ( -- )