X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=db495dde78ee6267863ec5dc8b1a9ecf06f1e1d2;hb=990faa74e434b1ab5578b36220a336c24cff834b;hp=04f272ceb23832058167cbe4dadfc4e46741c5cf;hpb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 04f272c..db495dd 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -537,8 +537,10 @@ typedef struct _RtsSymbolVal {
       SymX(addDLL)               		\
       GMP_SYMS					\
       SymX(__int_encodeDouble)			\
+      SymX(__word_encodeDouble)			\
       SymX(__2Int_encodeDouble)			\
       SymX(__int_encodeFloat)			\
+      SymX(__word_encodeFloat)			\
       SymX(andIntegerzh_fast)			\
       SymX(atomicallyzh_fast)			\
       SymX(barf)				\
@@ -2306,6 +2308,8 @@ ocGetNames_PEi386 ( ObjectCode* oc )
           && 0 != strcmp(".ctors", sectab_i->Name)
           /* ignore section generated from .ident */
           && 0!= strcmp("/4", sectab_i->Name)
+	  /* ignore unknown section that appeared in gcc 3.4.5(?) */
+          && 0!= strcmp(".reloc", sectab_i->Name)
          ) {
          errorBelch("Unknown PEi386 section name `%s' (while processing: %s)", sectab_i->Name, oc->fileName);
          return 0;