From 82be1bd7261573841a3de0e50520d2abb7fbaf38 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 8 Apr 2009 19:10:46 +0000 Subject: [PATCH] Also fixed the types of the ..TOSTRING procs in the occam intrinsic list in Tock --- common/Intrinsics.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/common/Intrinsics.hs b/common/Intrinsics.hs index e008f8d..749d3b1 100644 --- a/common/Intrinsics.hs +++ b/common/Intrinsics.hs @@ -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")