From e018264ad93c77e2855f144d004c26873d2f772f Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Wed, 20 Oct 2021 14:37:16 +0200
Subject: [PATCH] internalerror if the section we're about to keep has no
 exesection assigned

---
 compiler/ogbase.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 9d604dc06c..7aa6d1c1ef 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -3523,6 +3523,8 @@ implementation
           while ObjSectionWorkList.Count>0 do
             begin
               objsec:=TObjSection(ObjSectionWorkList.Last);
+              if not assigned(objsec.exesection) then
+                internalerror(202102001);
               if assigned(exemap) then
                 exemap.Add('Keeping '+objsec.FullName+' '+ToStr(objsec.ObjRelocations.Count)+' references');
               ObjSectionWorkList.Delete(ObjSectionWorkList.Count-1);