+ case convention of
+ -- Temporary hack so at least some functions are CmmSafe
+ CmmCallConv -> code (stmtC (CmmCall (CmmForeignCall expr convention) results args safety))
+ _ -> case safety of
+ CmmUnsafe ->
+ code (emitForeignCall' PlayRisky results
+ (CmmForeignCall expr convention) args vols NoC_SRT)
+ CmmSafe srt ->
+ code (emitForeignCall' (PlaySafe unused) results
+ (CmmForeignCall expr convention) args vols NoC_SRT) where
+ unused = panic "not used by emitForeignCall'"