Added the intrinsic CAUSEERROR

backends/GenerateC.hs

@@ -2086,6 +2086,7 @@ cgenProcCall n as
 cgenIntrinsicProc :: Meta -> String -> [A.Actual] -> CGen ()
 cgenIntrinsicProc m "ASSERT" [A.ActualExpression e] = call genAssert m e
 cgenIntrinsicProc _ "RESCHEDULE" [] = call genReschedule
+cgenIntrinsicProc m "CAUSEERROR" [] = call genStop m "CAUSEERROR"
 cgenIntrinsicProc m s as = case lookup s intrinsicProcs of
   Just amtns -> do tell ["occam_", [if c == '.' then '_' else c | c <- s], "(wptr,"]
                    when (s == "RESIZE.MOBILE.ARRAY.1D") $

common/Intrinsics.hs

@@ -128,6 +128,7 @@ simpleFloatIntrinsics = concatMap double $
 intrinsicProcs :: [(String, [(A.AbbrevMode, A.Type, String)])]
 intrinsicProcs =
     [ ("ASSERT", [(A.ValAbbrev, A.Bool, "value")])
+    , ("CAUSEERROR", [])
     , ("RESCHEDULE", [])
     ] ++ concat [
       (zip ["INT" ++ suffix ++ "TOSTRING", "HEX" ++ suffix ++ "TOSTRING"] $ repeat