suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added the intrinsic CAUSEERROR

Browse Source
This commit is contained in:
Neil Brown 2009-04-03 15:14:24 +00:00
parent 471c3a1ef5
commit b9cbcf0902
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backends/GenerateC.hs
View File

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

1
common/Intrinsics.hs
View File

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