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

Fix known-dimension arrays in specifiers

Browse Source
This commit is contained in:
Adam Sampson 2007-04-30 04:25:13 +00:00
parent 576c31aa72
commit 39ec48c1e3
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fco2/Parse.hs
View File

@ -1275,6 +1275,7 @@ dataSpecifier
= dataType = dataType
<|> do s <- tryXXV sLeft sRight dataSpecifier <|> do s <- tryXXV sLeft sRight dataSpecifier
return $ makeArrayType A.UnknownDimension s return $ makeArrayType A.UnknownDimension s
<|> arrayType dataSpecifier
<?> "data specifier" <?> "data specifier"
specifier :: OccParser A.Type specifier :: OccParser A.Type
@ -1285,6 +1286,7 @@ specifier
<|> portType <|> portType
<|> do s <- tryXXV sLeft sRight specifier <|> do s <- tryXXV sLeft sRight specifier
return $ makeArrayType A.UnknownDimension s return $ makeArrayType A.UnknownDimension s
<|> arrayType specifier
<?> "specifier" <?> "specifier"
--{{{ PROCs and FUNCTIONs --{{{ PROCs and FUNCTIONs

8
fco2/testcases/array-arg.occ Normal file
View File

@ -0,0 +1,8 @@
-- from cgtest07
PROC bug.308()
PROC bug.308a([10][][5]INT a)
a[3] := a[2]
:
[10][3][5]INT a :
bug.308a(a)
: