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

Added missing cases for A.DirectedVariable in the C and C++ backends

Browse Source
This commit is contained in:
Neil Brown 2007-09-12 10:17:15 +00:00
parent c40d94c655
commit aefb02caa6
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

@ -716,6 +716,7 @@ cgenVariable' ops checkValid v
-- treat c->x as if it's just x). -- treat c->x as if it's just x).
accessAbbrevMode :: A.Variable -> CGen A.AbbrevMode accessAbbrevMode :: A.Variable -> CGen A.AbbrevMode
accessAbbrevMode (A.Variable _ n) = abbrevModeOfName n accessAbbrevMode (A.Variable _ n) = abbrevModeOfName n
accessAbbrevMode (A.DirectedVariable _ _ v) = accessAbbrevMode v
accessAbbrevMode (A.SubscriptedVariable _ sub v) accessAbbrevMode (A.SubscriptedVariable _ sub v)
= do am <- accessAbbrevMode v = do am <- accessAbbrevMode v
return $ case (am, sub) of return $ case (am, sub) of

1
backends/GenerateCPPCSP.hs
View File

@ -1266,6 +1266,7 @@ cppgenVariable' ops checkValid v
-- treat c->x as if it's just x). -- treat c->x as if it's just x).
accessAbbrevMode :: A.Variable -> CGen A.AbbrevMode accessAbbrevMode :: A.Variable -> CGen A.AbbrevMode
accessAbbrevMode (A.Variable _ n) = abbrevModeOfName n accessAbbrevMode (A.Variable _ n) = abbrevModeOfName n
accessAbbrevMode (A.DirectedVariable _ _ v) = accessAbbrevMode v
accessAbbrevMode (A.SubscriptedVariable _ sub v) accessAbbrevMode (A.SubscriptedVariable _ sub v)
= do am <- accessAbbrevMode v = do am <- accessAbbrevMode v
return $ case (am, sub) of return $ case (am, sub) of