[project @ 2004-09-10 14:53:44 by simonmar]

[ghc-hetmet.git] / ghc / compiler / cmm / CmmParse.y

diff --git a/ghc/compiler/cmm/CmmParse.y b/ghc/compiler/cmm/CmmParse.y
index e409f25..55ee5c2 100644 (file)
--- a/ghc/compiler/cmm/CmmParse.y
+++ b/ghc/compiler/cmm/CmmParse.y
@@ -229,9 +229,9 @@ info        :: { ExtFCode (CLabel, [CmmLit],[CmmLit]) }
        | 'INFO_TABLE_RET' '(' NAME ',' INT ',' INT ',' INT maybe_vec ')'
                { retInfo $3 $5 $7 $9 $10 }
 
-maybe_vec :: { [CLabel] }
+maybe_vec :: { [CmmLit] }
        : {- empty -}                   { [] }
-       | ',' NAME maybe_vec            { mkRtsCodeLabelFS $2 : $3 }
+       | ',' NAME maybe_vec            { CmmLabel (mkRtsCodeLabelFS $2) : $3 }
 
 body   :: { ExtCode }
        : {- empty -}                   { return () }