X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FSMinterface.lh;h=4fb03e6d948610337291ca94551c0c2db2b269d2;hb=9065404aff7fea3b996e014da4c2f6a1604a0fb0;hp=88a7eb74d12628d43ea3e8423b8466c235eb981f;hpb=e61549bd9b4bf386404a6ef067c26fe4930b6383;p=ghc-hetmet.git

diff --git a/ghc/includes/SMinterface.lh b/ghc/includes/SMinterface.lh
index 88a7eb7..4fb03e6 100644
--- a/ghc/includes/SMinterface.lh
+++ b/ghc/includes/SMinterface.lh
@@ -453,20 +453,19 @@ Each garbage collector requires different garbage collection entries
 in the info-table.
 
 \begin{code}
-#if   defined(GC2s)
-#define _INFO_COPYING
 
-#else
-#if defined(GC1s)
+#if defined(GCdu) || defined (GCap) || defined (GCgn)
+#define _INFO_COPYING
 #define _INFO_COMPACTING
 #define _INFO_MARKING
-
 #else
-#if defined(GCdu) || defined (GCap) || defined (GCgn)
+#if   defined(GC2s)
 #define _INFO_COPYING
+
+#else
+#if defined(GC1s)
 #define _INFO_COMPACTING
 #define _INFO_MARKING
-
 #else
 /* NO_INFO_SPECIFIED (ToDo: an #error ?) */
 #endif