From 5f87855cc739a7f7cf17758d35140a24d09b9396 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 15 Apr 2009 17:10:29 +0000
Subject: [PATCH] Fixed the backend so that it does not think stack sizes are
 needed for external functions

---
 backends/GenerateC.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 9ef74e0..91b2c86 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -161,17 +161,18 @@ generateC = generate cgenOps
 needStackSizes :: (CSMR m, Die m) => m [A.Name]
 needStackSizes
   = do cs <- getCompState
-       return $ nub $(([A.Name emptyMeta $ nameString $ A.Name emptyMeta n
+       return $ nub $ ([A.Name emptyMeta $ nameString $ A.Name emptyMeta n
                        | A.NameDef {A.ndName = n
                                    ,A.ndSpecType=A.Proc {}
                                    } <- Map.elems $ csNames cs]
-                      )
-                      \\ (map (A.Name emptyMeta . nameString . A.Name emptyMeta . fst) (csExternals cs)))
                        ++
                        [A.Name emptyMeta $ nameString $ A.Name emptyMeta n
                        | A.NameDef {A.ndName = n
                                    ,A.ndSpecType=A.Function {}
                                    } <- Map.elems $ csNames cs]
+                      )
+                      \\ (map (A.Name emptyMeta . nameString . A.Name emptyMeta . fst) (csExternals cs))
+
 
 cgenTopLevel :: String -> A.AST -> CGen ()
 cgenTopLevel headerName s