From 25e7e0ef2b8ef3e9dd9ddf4620f893833146aceb Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 3 Oct 2007 23:26:24 +0000
Subject: [PATCH] Removed an unused function (genReplicatorSize) from GenOps

---
 backends/GenerateC.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 9e833a7..f37a1d0 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -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