Andreas Klebinger pushed to branch wip/andreask/arm-ffi at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Cmm/Parser.y
    ... ... @@ -745,6 +745,8 @@ stmt :: { CmmParse () }
    745 745
                     { doCall $2 [] $4 }
    
    746 746
             | '(' formals ')' '=' 'call' expr '(' exprs0 ')' ';'
    
    747 747
                     { doCall $6 $2 $8 }
    
    748
    +        -- NB: bool_expr most be a *boolean* expression: A comparison machOp or 1/0 word literals.
    
    749
    +        -- We don't allow arbitrary expressions as conditions (See checkCond, #27543).
    
    748 750
             | 'if' bool_expr cond_likely 'goto' NAME
    
    749 751
                     { do l <- lookupLabel $5; cmmRawIf $2 l $3 }
    
    750 752
             | 'if' bool_expr cond_likely '{' body '}' else