add debug secno patch

Author: angerman

overlays/bootstrap.nix

@@ -300,6 +300,7 @@ in {
                 ++ final.lib.optional (versionAtLeast "9.4"                             && final.stdenv.targetPlatform.isWindows) ./patches/ghc/ghc-9.6-fix-code-symbol-jumps.patch
                 ++ final.lib.optional (versionAtLeast "9.6.3"  && versionLessThan "9.10" && final.stdenv.targetPlatform.isAndroid) ./patches/ghc/ghc-9.6-iog.patch
                 ++ final.lib.optional (versionAtLeast "9.6"    && versionLessThan "9.12" && final.stdenv.targetPlatform.is32bit) ./patches/ghc/ghc-9.6-genapply-cross-arch.patch
+                ++ final.lib.optional (versionAtLeast "9.6"    && versionLessThan "9.9" && final.stdenv.targetPlatform.isAndroid) ./patches/ghc/ghc-9.6-debug-secno.patch
                 ;
         in ({
             ghc865 = final.callPackage ../compiler/ghc (traceWarnOld "8.6" {

overlays/patches/ghc/ghc-9.6-debug-secno.patch

@@ -0,0 +1,16 @@
+diff --git a/rts/linker/Elf.c b/rts/linker/Elf.c
+index 9f623a6..d5fc91c 100644
+--- a/rts/linker/Elf.c
++++ b/rts/linker/Elf.c
+@@ -1056,6 +1056,11 @@ ocGetNames_ELF ( ObjectCode* oc )
+                           )
+                        ) {
+                    /* Section 0 is the undefined section, hence > and not >=. */
++                   if (!(secno > 0 && secno < shnum)) {
++                      debugBelch("while processing %s\n", OC_INFORMATIVE_FILENAME(oc));
++                      debugBelch("while processing symbol %s (%d)\n", nm, j);
++                      barf("secno %d out of range (0, %d)\n", secno, shnum);
++                   }
+                    CHECK(secno > 0 && secno < shnum);
+                    /*
+                    if (shdr[secno].sh_type == SHT_NOBITS) {