X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=21192620c8e2e98f2c79b904f5cddb8fca58c269;hb=5892af0e08fdb890b5a0b9a64346d9f7773a6ed8;hp=7c1cd40e85f8c19e24ac96cc7859571a02f319e9;hpb=51e6b90f8305ef9b50d7623908893f573b2f2116;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 7c1cd40..2119262 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -4674,7 +4674,7 @@ static void machoInitSymbolsWithoutUnderscore()
     void **p = symbolsWithoutUnderscore;
     __asm__ volatile(".globl _symbolsWithoutUnderscore\n.data\n_symbolsWithoutUnderscore:");
 
-#undef Sym
+#undef SymI_NeedsProto
 #define SymI_NeedsProto(x)  \
     __asm__ volatile(".long " # x);
 
@@ -4682,13 +4682,13 @@ static void machoInitSymbolsWithoutUnderscore()
 
     __asm__ volatile(".text");
     
-#undef Sym
+#undef SymI_NeedsProto
 #define SymI_NeedsProto(x)  \
     ghciInsertStrHashTable("(GHCi built-in symbols)", symhash, #x, *p++);
     
     RTS_MACHO_NOUNDERLINE_SYMBOLS
     
-#undef Sym
+#undef SymI_NeedsProto
 }
 #endif