From d558545b65870e64c16fa1d5688d6e90dc692886 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 1 Jun 2009 03:05:49 -0500
Subject: [PATCH] Remove obsolete optimization
---
.../cfg/value-numbering/rewrite/rewrite.factor | 14 --------------
1 file changed, 14 deletions(-)
diff --git a/basis/compiler/cfg/value-numbering/rewrite/rewrite.factor b/basis/compiler/cfg/value-numbering/rewrite/rewrite.factor
index 8653aaab04..7630d0a658 100644
--- a/basis/compiler/cfg/value-numbering/rewrite/rewrite.factor
+++ b/basis/compiler/cfg/value-numbering/rewrite/rewrite.factor
@@ -114,18 +114,4 @@ M: ##compare-imm rewrite
] when
] when ;
-: dispatch-offset ( expr -- n )
- [ in2>> vn>constant tag-bits get neg shift ] [ op>> ] bi
- \ ##sub-imm eq? [ neg ] when ;
-
-: add-dispatch-offset? ( insn -- expr ? )
- src>> vreg>expr dup op>> { ##add-imm ##sub-imm } memq? ; inline
-
-M: ##dispatch rewrite
- dup add-dispatch-offset? [
- [ clone ] dip
- [ in1>> vn>vreg >>src ]
- [ dispatch-offset '[ _ + ] change-offset ] bi
- ] [ drop ] if ;
-
M: insn rewrite ;