From 89bd87cab8e6216b1f87389f93424468710e5f21 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Tue, 24 Jan 2017 13:04:51 +0100
Subject: Do not print anonymous member names in debug info

Anonymous members no longer are printed in the debug information.
Fix 20798
---
 debug/DebugInformation.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'debug/DebugInformation.ml')

diff --git a/debug/DebugInformation.ml b/debug/DebugInformation.ml
index dfde9136..6f159743 100644
--- a/debug/DebugInformation.ml
+++ b/debug/DebugInformation.ml
@@ -395,6 +395,7 @@ let insert_global_declaration env dec =
       let fields = List.map (fun f ->
         {
          cfd_name = f.fld_name;
+         cfd_anon = f.fld_anonymous;
          cfd_typ = insert_type f.fld_typ;
          cfd_bit_size = f.fld_bitfield;
          cfd_bit_offset = None;
-- 
cgit