[Add support for using the Boehm Garbage Collector with -fboehm
John Meacham <john@repetae.net>**20050505065454] hunk ./FlagOpts.flags 1
-# -f code options 
+# -f code options
hunk ./FlagOpts.flags 5
-rules use rules 
+rules use rules
hunk ./FlagOpts.flags 9
-lint perform lots of extra type checks 
-cpp Pass code through cpp.
+lint perform lots of extra type checks
+cpp pass code through cpp
+boehm use Boehm garbage collector
hunk ./Main.hs 70
-    as <- System.getArgs 
+    as <- System.getArgs
hunk ./Main.hs 78
-        Opt { optBuildHl = hlName@(_:_) } -> buildHl hlName (optArgs o) 
+        Opt { optBuildHl = hlName@(_:_) } -> buildHl hlName (optArgs o)
hunk ./Main.hs 307
-        let comm = shellQuote $ [optCC options, "-std=gnu99", "-g", "-Wall", "-o", fn, cf ] ++ rls ++ optCCargs options
+        let boehmOpts | fopts FO.Boehm = ["-DUSE_BOEHM_GC", "-lgc"]
+                      | otherwise = []
+        let comm = shellQuote $ [optCC options, "-std=gnu99", "-g", "-Wall", "-o", fn, cf ] ++ rls ++ optCCargs options  ++ boehmOpts
hunk ./data/jhc_rts.c 13
+#ifdef USE_BOEHM_GC
+#include <gc/gc.h>
+#define malloc GC_malloc
+#define free GC_free
+#endif
+
+