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

Fixed the last few of the channel uses to request abbreviations of channels when using them

Browse Source
This commit is contained in:
Neil Brown 2009-03-21 23:24:21 +00:00
parent e0bec17672
commit e79fa43fa2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backends/GenerateC.hs
View File

@ -1549,7 +1549,7 @@ cgenOutputCase c tag ois
A.Chan _ (A.UserProtocol n) -> n A.Chan _ (A.UserProtocol n) -> n
A.ChanEnd _ _ (A.UserProtocol n) -> n A.ChanEnd _ _ (A.UserProtocol n) -> n
tell ["ChanOutInt(wptr,"] tell ["ChanOutInt(wptr,"]
call genVariable c A.Original call genVariable c A.Abbrev
tell [","] tell [","]
genName tag genName tag
tell ["_"] tell ["_"]
@ -1731,7 +1731,7 @@ cgenAlt isPri s
tell [");\n"] tell [");\n"]
_ -> _ ->
do tell ["AltEnableChannel (wptr,", id, "++,"] do tell ["AltEnableChannel (wptr,", id, "++,"]
call genVariable c A.Original call genVariable c A.Abbrev
tell [");\n"] tell [");\n"]
genAltDisable :: String -> A.Structured A.Alternative -> CGen () genAltDisable :: String -> A.Structured A.Alternative -> CGen ()
@ -1751,7 +1751,7 @@ cgenAlt isPri s
tell [");\n"] tell [");\n"]
_ -> _ ->
do tell ["AltDisableChannel (wptr,", id, "++, "] do tell ["AltDisableChannel (wptr,", id, "++, "]
call genVariable c A.Original call genVariable c A.Abbrev
tell [");\n"] tell [");\n"]
genAltProcesses :: String -> String -> String -> A.Structured A.Alternative -> CGen () genAltProcesses :: String -> String -> String -> A.Structured A.Alternative -> CGen ()