From: simonmar <unknown>
Date: Tue, 2 Aug 2005 12:01:57 +0000 (+0000)
Subject: [project @ 2005-08-02 12:01:57 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~280
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5962645829c856afb7dcc9e2bd62a086f6c1e71b;p=ghc-hetmet.git

[project @ 2005-08-02 12:01:57 by simonmar]
Allow an empty list of volatile regs on a call
---

diff --git a/ghc/compiler/cmm/CmmParse.y b/ghc/compiler/cmm/CmmParse.y
index e81d34c..45f411b 100644
--- a/ghc/compiler/cmm/CmmParse.y
+++ b/ghc/compiler/cmm/CmmParse.y
@@ -295,6 +295,7 @@ bool_op :: { ExtFCode BoolExpr }
 -- This is not C-- syntax.  What to do?
 vols 	:: { Maybe [GlobalReg] }
 	: {- empty -}			{ Nothing }
+	| '[' ']'		        { Just [] }
 	| '[' globals ']'		{ Just $2 }
 
 globals :: { [GlobalReg] }