Revert "Get GHCi working on Win64"

This reverts commit 05b55c670c7fe3fc01827ca02aafb6926c0b69cb.

1 files changed, 35 insertions, 116 deletions

diff --git a/rts/Linker.c b/rts/Linker.c
index 879fe32362..2abceef077 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -512,46 +512,6 @@ typedef struct _RtsSymbolVal {
       RTS_MINGW32_ONLY(SymI_NeedsProto(_imp____mb_cur_max)) \
       RTS_MINGW32_ONLY(SymI_NeedsProto(_imp___pctype))   \
       RTS_MINGW32_ONLY(SymI_NeedsProto(__chkstk))        \
-      SymI_NeedsProto(__imp___iob_func)                  \
-      SymI_NeedsProto(___chkstk_ms)                      \
-      SymI_NeedsProto(__imp_localeconv)                  \
-      SymI_NeedsProto(__imp_islower)                     \
-      SymI_NeedsProto(__imp_isspace)                     \
-      SymI_NeedsProto(__imp_isxdigit)                    \
-      SymI_HasProto(close)                               \
-      SymI_HasProto(read)                                \
-      SymI_HasProto(dup)                                 \
-      SymI_HasProto(dup2)                                \
-      SymI_HasProto(write)                               \
-      SymI_NeedsProto(getpid)                            \
-      SymI_HasProto(access)                              \
-      SymI_HasProto(chmod)                               \
-      SymI_HasProto(creat)                               \
-      SymI_HasProto(umask)                               \
-      SymI_HasProto(unlink)                              \
-      SymI_NeedsProto(__imp__errno)                      \
-      SymI_NeedsProto(ftruncate64)                       \
-      SymI_HasProto(setmode)                             \
-      SymI_NeedsProto(__imp__wstat64)                    \
-      SymI_NeedsProto(__imp__fstat64)                    \
-      SymI_NeedsProto(__imp__wsopen)                     \
-      SymI_HasProto(__imp__environ)                      \
-      SymI_NeedsProto(__imp_GetFileType)                 \
-      SymI_NeedsProto(__imp_GetLastError)                \
-      SymI_NeedsProto(__imp_QueryPerformanceFrequency)   \
-      SymI_NeedsProto(__imp_QueryPerformanceCounter)     \
-      SymI_NeedsProto(__imp_GetTickCount)                \
-      SymI_NeedsProto(__imp_WaitForSingleObject)         \
-      SymI_NeedsProto(__imp_PeekConsoleInputA)           \
-      SymI_NeedsProto(__imp_ReadConsoleInputA)           \
-      SymI_NeedsProto(__imp_PeekNamedPipe)               \
-      SymI_NeedsProto(__imp__isatty)                     \
-      SymI_NeedsProto(__imp_select)                      \
-      SymI_HasProto(isatty)                              \
-      SymI_NeedsProto(__imp__get_osfhandle)              \
-      SymI_NeedsProto(__imp_GetConsoleMode)              \
-      SymI_NeedsProto(__imp_SetConsoleMode)              \
-      SymI_NeedsProto(__imp_FlushConsoleInputBuffer)     \
       RTS_MINGW_GETTIMEOFDAY_SYM                         \
       SymI_NeedsProto(closedir)
 
@@ -2257,22 +2217,8 @@ loadObj( pathchar *path )
 #   if defined(mingw32_HOST_OS)
         // TODO: We would like to use allocateExec here, but allocateExec
         //       cannot currently allocate blocks large enough.
-    {
-        int offset;
-#if defined(x86_64_HOST_ARCH)
-        /* We get back 8-byte aligned memory (is that guaranteed?), but
-           the offsets to the sections within the file are all 4 mod 8
-           (is that guaranteed?). We therefore need to offset the image
-           by 4, so that all the pointers are 8-byte aligned, so that
-           pointer tagging works. */
-        offset = 4;
-#else
-        offset = 0;
-#endif
-      image = VirtualAlloc(NULL, fileSize + offset, MEM_RESERVE | MEM_COMMIT,
-                           PAGE_EXECUTE_READWRITE);
-      image += offset;
-    }
+    image = VirtualAlloc(NULL, fileSize, MEM_RESERVE | MEM_COMMIT,
+                             PAGE_EXECUTE_READWRITE);
 #   elif defined(darwin_HOST_OS)
     // In a Mach-O .o file, all sections can and will be misaligned
     // if the total size of the headers is not a multiple of the
@@ -2439,9 +2385,6 @@ unloadObj( pathchar *path )
             // We're going to leave this in place, in case there are
             // any pointers from the heap into it:
                 // #ifdef mingw32_HOST_OS
-                // If uncommenting, note that currently oc->image is
-                // not the right address to free on Win64, as we added
-                // 4 bytes of padding at the start
                 //  VirtualFree(oc->image);
                 // #else
             //  stgFree(oc->image);
@@ -2486,6 +2429,7 @@ addProddableBlock ( ObjectCode* oc, void* start, int size )
    oc->proddables = pb;
 }
 
+#if !defined(x86_64_HOST_ARCH) || !defined(mingw32_HOST_OS)
 static void
 checkProddableBlock (ObjectCode *oc, void *addr )
 {
@@ -2495,18 +2439,14 @@ checkProddableBlock (ObjectCode *oc, void *addr )
       char* s = (char*)(pb->start);
       char* e = s + pb->size - 1;
       char* a = (char*)addr;
-#if WORD_SIZE_IN_BITS == 32
-      /* Assumes that the biggest fixup involves a 4-byte write */
+      /* Assumes that the biggest fixup involves a 4-byte write.  This
+         probably needs to be changed to 8 (ie, +7) on 64-bit
+         plats. */
       if (a >= s && (a+3) <= e) return;
-#elif WORD_SIZE_IN_BITS == 64
-      /* Assumes that the biggest fixup involves a 4-byte write */
-      if (a >= s && (a+7) <= e) return;
-#else
-#error
-#endif
    }
-   barf("checkProddableBlock: invalid fixup in runtime linker: %p", addr);
+   barf("checkProddableBlock: invalid fixup in runtime linker");
 }
+#endif
 
 /* -----------------------------------------------------------------------------
  * Section management.
@@ -2831,11 +2771,10 @@ ocFlushInstructionCache( ObjectCode *oc )
 
 
 
-typedef unsigned char          UChar;
-typedef unsigned short         UInt16;
-typedef unsigned int           UInt32;
-typedef          int           Int32;
-typedef unsigned long long int UInt64;
+typedef unsigned char  UChar;
+typedef unsigned short UInt16;
+typedef unsigned int   UInt32;
+typedef          int   Int32;
 
 
 typedef
@@ -2955,6 +2894,7 @@ printName ( UChar* name, UChar* strtab )
 }
 
 
+#if !defined(x86_64_HOST_ARCH) || !defined(mingw32_HOST_OS)
 static void
 copyName ( UChar* name, UChar* strtab, UChar* dst, int dstSize )
 {
@@ -2973,6 +2913,7 @@ copyName ( UChar* name, UChar* strtab, UChar* dst, int dstSize )
       dst[i] = 0;
    }
 }
+#endif
 
 
 static UChar *
@@ -3028,6 +2969,7 @@ cstring_from_section_name (UChar* name, UChar* strtab)
     }
 }
 
+#if !defined(x86_64_HOST_ARCH) || !defined(mingw32_HOST_OS)
 /* Just compares the short names (first 8 chars) */
 static COFF_section *
 findPEi386SectionCalled ( ObjectCode* oc,  UChar* name )
@@ -3056,6 +2998,7 @@ findPEi386SectionCalled ( ObjectCode* oc,  UChar* name )
 
    return NULL;
 }
+#endif
 
 static void
 zapTrailingAtSign ( UChar* sym )
@@ -3125,20 +3068,10 @@ ocVerifyImage_PEi386 ( ObjectCode* oc )
    strtab = ((UChar*)symtab)
             + hdr->NumberOfSymbols * sizeof_COFF_symbol;
 
-#if defined(i386_HOST_ARCH)
    if (hdr->Machine != 0x14c) {
       errorBelch("%" PATH_FMT ": Not x86 PEi386", oc->fileName);
       return 0;
    }
-#elif defined(x86_64_HOST_ARCH)
-   if (hdr->Machine != 0x8664) {
-      errorBelch("%" PATH_FMT ": Not x86_64 PEi386", oc->fileName);
-      return 0;
-   }
-#else
-   errorBelch("PEi386 not supported on this arch");
-#endif
-
    if (hdr->SizeOfOptionalHeader != 0) {
       errorBelch("%" PATH_FMT ": PEi386 with nonempty optional header", oc->fileName);
       return 0;
@@ -3419,9 +3352,6 @@ ocGetNames_PEi386 ( ObjectCode* oc )
              information. */
           && 0 != strcmp(".stab", (char*)secname)
           && 0 != strcmp(".stabstr", (char*)secname)
-          /* Ignore sections called which contain exception information. */
-          && 0 != strcmp(".pdata", (char*)secname)
-          && 0 != strcmp(".xdata", (char*)secname)
           /* ignore constructor section for now */
           && 0 != strcmp(".ctors", (char*)secname)
           /* ignore section generated from .ident */
@@ -3531,16 +3461,21 @@ ocGetNames_PEi386 ( ObjectCode* oc )
 
 
 static int
-ocResolve_PEi386 ( ObjectCode* oc )
+ocResolve_PEi386 ( ObjectCode* oc
+#if !defined(i386_HOST_ARCH)
+                                  STG_UNUSED
+#endif
+                                             )
 {
+#if defined(i386_HOST_ARCH)
    COFF_header*  hdr;
    COFF_section* sectab;
    COFF_symbol*  symtab;
    UChar*        strtab;
 
    UInt32        A;
-   size_t        S;
-   void *        pP;
+   UInt32        S;
+   UInt32*       pP;
 
    int i;
    UInt32 j, noRelocs;
@@ -3578,8 +3513,6 @@ ocResolve_PEi386 ( ObjectCode* oc )
          information. */
       if (0 == strcmp(".stab", (char*)secname)
           || 0 == strcmp(".stabstr", (char*)secname)
-          || 0 == strcmp(".pdata", (char*)secname)
-          || 0 == strcmp(".xdata", (char*)secname)
           || 0 == strcmp(".ctors", (char*)secname)
           || 0 == strncmp(".debug", (char*)secname, 6)
           || 0 == strcmp(".rdata$zzz", (char*)secname)) {
@@ -3624,14 +3557,14 @@ ocResolve_PEi386 ( ObjectCode* oc )
               myindex ( sizeof_COFF_reloc, reltab, j );
 
          /* the location to patch */
-         pP = (
+         pP = (UInt32*)(
                  ((UChar*)(oc->image))
                  + (sectab_i->PointerToRawData
                     + reltab_j->VirtualAddress
                     - sectab_i->VirtualAddress )
               );
          /* the existing contents of pP */
-         A = *(UInt32*)pP;
+         A = *pP;
          /* the symbol to connect to */
          sym = (COFF_symbol*)
                myindex ( sizeof_COFF_symbol,
@@ -3653,12 +3586,12 @@ ocResolve_PEi386 ( ObjectCode* oc )
                errorBelch("%" PATH_FMT ": can't find section `%s'", oc->fileName, sym->Name);
                return 0;
             }
-            S = ((size_t)(oc->image))
-              + ((size_t)(section_sym->PointerToRawData))
-              + ((size_t)(sym->Value));
+            S = ((UInt32)(oc->image))
+                + (section_sym->PointerToRawData
+                   + sym->Value);
          } else {
             copyName ( sym->Name, strtab, symbol, 1000-1 );
-            S = (size_t) lookupSymbol( (char*)symbol );
+            S = (UInt32) lookupSymbol( (char*)symbol );
             if ((void*)S != NULL) goto foundit;
             errorBelch("%" PATH_FMT ": unknown symbol `%s'", oc->fileName, symbol);
             return 0;
@@ -3666,9 +3599,8 @@ ocResolve_PEi386 ( ObjectCode* oc )
          }
          checkProddableBlock(oc, pP);
          switch (reltab_j->Type) {
-#if defined(i386_HOST_ARCH)
             case MYIMAGE_REL_I386_DIR32:
-               *(UInt32 *)pP = ((UInt32)S) + A;
+               *pP = A + S;
                break;
             case MYIMAGE_REL_I386_REL32:
                /* Tricky.  We have to insert a displacement at
@@ -3696,24 +3628,8 @@ ocResolve_PEi386 ( ObjectCode* oc )
                   relocations with non-zero values. Adding the displacement is
                   the right thing to do.
                */
-               *(UInt32 *)pP = ((UInt32)S) + A - ((UInt32)(size_t)pP) - 4;
-               break;
-#elif defined(x86_64_HOST_ARCH)
-            case 2:  /* R_X86_64_32 */
-            case 17: /* R_X86_64_32S */
-               *(UInt32 *)pP = ((UInt32)S) + A;
-               break;
-            case 4: /* R_X86_64_PC32 */
-               *(UInt32 *)pP = ((UInt32)S) + A - ((UInt32)(size_t)pP) - 4;
+               *pP = S - ((UInt32)pP) - 4 + A;
                break;
-            case 1: /* R_X86_64_64 */
-               {
-                 UInt64 A;
-                 A = *(UInt64*)pP;
-                 *(UInt64 *)pP = ((UInt64)S) + ((UInt64)A);
-                 break;
-               }
-#endif
             default:
                debugBelch("%" PATH_FMT ": unhandled PEi386 relocation type %d",
                      oc->fileName, reltab_j->Type);
@@ -3725,6 +3641,9 @@ ocResolve_PEi386 ( ObjectCode* oc )
 
    IF_DEBUG(linker, debugBelch("completed %" PATH_FMT, oc->fileName));
    return 1;
+#else
+   barf("ocResolve_PEi386: Not supported on this arch");
+#endif
 }
 
 #endif /* defined(OBJFORMAT_PEi386) */