From 609940166562b6a5f2ff05fc9d00cf26d531c6dd Mon Sep 17 00:00:00 2001
From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Mon, 13 Jun 2011 20:47:43 +1000
Subject: Added a pragma {-# NOVECTORISE f #-} that suppresses vectorisation of
 toplevel variable 'f'.

---
 compiler/rename/RnSource.lhs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'compiler/rename')

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 54dc378dd5..6b8e5c09ba 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -666,6 +666,10 @@ rnHsVectDecl (HsVect var (Just rhs))
        ; (rhs', fv_rhs) <- rnLExpr rhs
        ; return (HsVect var' (Just rhs'), fv_rhs `addOneFV` unLoc var')
        }
+rnHsVectDecl (HsNoVect var)
+  = do { var' <- wrapLocM lookupTopBndrRn var
+       ; return (HsNoVect var', unitFV (unLoc var'))
+       }
 \end{code}
 
 %*********************************************************
-- 
cgit v1.2.1