From cd28ce9dfccf99c9d4bb1263f7abb1b89040ab31 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 3 Apr 2008 19:31:09 +0000
Subject: [PATCH]   * only write set elementdef information if there is an
 elementdef     (can be absent for empty sets)

git-svn-id: trunk@10600 -
---
 compiler/dbgdwarf.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas
index 371efa69d3..092594ebe3 100644
--- a/compiler/dbgdwarf.pas
+++ b/compiler/dbgdwarf.pas
@@ -2763,7 +2763,8 @@ implementation
               append_entry(DW_TAG_set_type,false,[
                 DW_AT_byte_size,DW_FORM_data2,def.size
                 ]);
-            append_labelentry_ref(DW_AT_type,def_dwarf_lab(def.elementdef));
+            if assigned(def.elementdef) then
+              append_labelentry_ref(DW_AT_type,def_dwarf_lab(def.elementdef));
           end
         else
           begin