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

Also fixed the types of the ..TOSTRING procs in the occam intrinsic list in Tock

Browse Source
This commit is contained in:
Neil Brown 2009-04-08 19:10:46 +00:00
parent 4a629c27ab
commit 82be1bd726
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/Intrinsics.hs
View File

@ -135,14 +135,14 @@ intrinsicProcs =
(zip ["INT" ++ suffix ++ "TOSTRING", "HEX" ++ suffix ++ "TOSTRING"] $ repeat
[ (A.Abbrev, A.Int, "len")
, (A.Abbrev, A.Array [A.UnknownDimension] A.Byte, "string")
, (A.ValAbbrev, A.Int, "n")
, (A.ValAbbrev, t, "n")
])
++ (zip ["STRINGTOINT" ++ suffix, "STRINGTOHEX" ++ suffix] $ repeat
[ (A.Abbrev, A.Bool, "error")
, (A.Abbrev, A.Int, "n")
, (A.Abbrev, t, "n")
, (A.ValAbbrev, A.Array [A.UnknownDimension] A.Byte, "string")
])
| suffix <- ["","16","32","64"]
| (t, suffix) <- [(A.Int, ""),(A.Int16, "16"),(A.Int32, "32"),(A.Int64, "64")]
] ++ [
("BOOLTOSTRING",
[ (A.Abbrev, A.Int, "len")