From a2d78ebe0451484e20ad3dc4d7f662e8c1e9650e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 22 Jan 2007 11:40:16 +0000 Subject: Semi-tagging optimisation In the generated code for case-of-variable, test the tag of the scrutinee closure and only enter if it is unevaluated. Also turn *off* vectored returns. --- compiler/codeGen/CgUtils.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'compiler/codeGen/CgUtils.hs') diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index f2b3c72d40..804aeabd13 100644 --- a/compiler/codeGen/CgUtils.hs +++ b/compiler/codeGen/CgUtils.hs @@ -17,8 +17,6 @@ module CgUtils ( tagToClosure, cmmAndWord, cmmOrWord, cmmNegate, cmmEqWord, cmmNeWord, - cmmULtWord, cmmUGtWord, - cmmULeWord, cmmUGeWord, cmmOffsetExprW, cmmOffsetExprB, cmmRegOffW, cmmRegOffB, cmmLabelOffW, cmmLabelOffB, @@ -153,7 +151,6 @@ cmmOrWord e1 e2 = CmmMachOp mo_wordOr [e1, e2] cmmAndWord e1 e2 = CmmMachOp mo_wordAnd [e1, e2] cmmNeWord e1 e2 = CmmMachOp mo_wordNe [e1, e2] cmmEqWord e1 e2 = CmmMachOp mo_wordEq [e1, e2] -cmmULeWord e1 e2 = CmmMachOp mo_wordULe [e1, e2] cmmULtWord e1 e2 = CmmMachOp mo_wordULt [e1, e2] cmmUGeWord e1 e2 = CmmMachOp mo_wordUGe [e1, e2] cmmUGtWord e1 e2 = CmmMachOp mo_wordUGt [e1, e2] -- cgit v1.2.1