-- | Memory barrier instruction for LLVM >= 3.0
barrier :: LlvmM StmtData
barrier = do
    let s = Fence False SyncSeqCst
    return (unitOL s, [])

-- | Foreign Calls
barrier :: LlvmM StmtData
barrier = do
    let s = Fence False SyncSeqCst
    return (unitOL s, [])

-- | Foreign Calls
barrier = do
    let s = Fence False SyncSeqCst
    return (unitOL s, [])

-- | Foreign Calls