From: sof <unknown>
Date: Tue, 29 Jan 2002 06:15:03 +0000 (+0000)
Subject: [project @ 2002-01-29 06:15:03 by sof]
X-Git-Tag: Approximately_9120_patches~242
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a704ee9c4180bf19a431e507f5d32a1f787c5c47;p=ghc-hetmet.git

[project @ 2002-01-29 06:15:03 by sof]
Update comments re: reloc overflow. A careful re-read of the PE
spec did prove useful; Sec 4.1 (last para) describes how overflow
is handled.
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 8f259f3..2e0f3c8 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.79 2002/01/29 02:41:21 sof Exp $
+ * $Id: Linker.c,v 1.80 2002/01/29 06:15:03 sof Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -1215,9 +1215,8 @@ ocVerifyImage_PEi386 ( ObjectCode* oc )
       if ( sectab_i->Characteristics & MYIMAGE_SCN_LNK_NRELOC_OVFL ) {
 	/* If the relocation field (a short) has overflowed, the
 	 * real count can be found in the first reloc entry.
-	 * The PE spec (Rev 6.0) doesn't really cover this,
-	 * but as always header files provide the final word on
-	 * details like this (cf. WinNT.h).
+	 * 
+	 * See Section 4.1 (last para) of the PE spec (rev6.0).
 	 */
         COFF_reloc* rel = (COFF_reloc*)
                            myindex ( sizeof_COFF_reloc, reltab, 0 );
@@ -1526,9 +1525,8 @@ ocResolve_PEi386 ( ObjectCode* oc )
       if ( sectab_i->Characteristics & MYIMAGE_SCN_LNK_NRELOC_OVFL ) {
 	/* If the relocation field (a short) has overflowed, the
 	 * real count can be found in the first reloc entry.
-	 * The PE spec (Feb 99 version) doesn't really cover this,
-	 * but as always header files provide the final word on
-	 * details like this (cf. WinNT.h).
+         *
+	 * See Section 4.1 (last para) of the PE spec (rev6.0).
 	 */
         COFF_reloc* rel = (COFF_reloc*)
                            myindex ( sizeof_COFF_reloc, reltab, 0 );