Fixed a bug where records were being recorded with the wrong name type in the occam parser

This commit is contained in:
Neil Brown 2009-01-28 22:11:23 +00:00
parent 52459e7557
commit 6ff8e3b163

View File

@ -1060,7 +1060,7 @@ definition
sDATA
sTYPE
do { n <- tryVX newDataTypeName sIS; t <- dataType; sColon; eol; return (A.Specification m n (A.DataType m t), DataTypeName) }
<|> do { n <- newRecordName; eol; indent; rec <- structuredType; outdent; sColon; eol; return (A.Specification m n rec, DataTypeName) }
<|> do { n <- newRecordName; eol; indent; rec <- structuredType; outdent; sColon; eol; return (A.Specification m n rec, RecordName) }
<|> do m <- md
sPROTOCOL
n <- newProtocolName