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

Removed an unused function (genReplicatorSize) from GenOps

Browse Source
This commit is contained in:
Neil Brown 2007-10-03 23:26:24 +00:00
parent f3e15b6f78
commit 25e7e0ef2b
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -124,7 +124,6 @@ data GenOps = GenOps {
genProcess :: GenOps -> A.Process -> CGen (),
genReplicator :: GenOps -> A.Replicator -> CGen () -> CGen (),
genReplicatorLoop :: GenOps -> A.Replicator -> CGen (),
genReplicatorSize :: GenOps -> A.Replicator -> CGen (),
genRetypeSizes :: GenOps -> Meta -> A.AbbrevMode -> A.Type -> A.Name -> A.Type -> A.Variable -> CGen (),
genSeq :: GenOps -> A.Structured -> CGen (),
genSimpleDyadic :: GenOps -> String -> A.Expression -> A.Expression -> CGen (),
@ -215,7 +214,6 @@ cgenOps = GenOps {
genProcess = cgenProcess,
genReplicator = cgenReplicator,
genReplicatorLoop = cgenReplicatorLoop,
genReplicatorSize = cgenReplicatorSize,
genRetypeSizes = cgenRetypeSizes,
genSeq = cgenSeq,
genSimpleDyadic = cgenSimpleDyadic,
@ -1026,8 +1024,6 @@ cgenReplicatorLoop ops (A.For m index base count)
genName index
tell ["++"]
cgenReplicatorSize :: GenOps -> A.Replicator -> CGen ()
cgenReplicatorSize ops rep = call genExpression ops (sizeOfReplicator rep)
--}}}
--{{{ abbreviations