From 5b05d3668571bd9b748b781b0cc29ae10f745f61 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Thu, 10 Mar 2016 13:35:48 +0100
Subject: Code cleanup.

Removed some unused variables, functions etc. and resolved some
problems which occur if all warnings except 3,4,9 and 29 are active.
Bug 18394.
---
 debug/Dwarfgen.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'debug/Dwarfgen.ml')

diff --git a/debug/Dwarfgen.ml b/debug/Dwarfgen.ml
index d070e3a9..fe0764e8 100644
--- a/debug/Dwarfgen.ml
+++ b/debug/Dwarfgen.ml
@@ -534,7 +534,7 @@ let diab_gen_compilation_section s defs acc =
     start_label = debug_start;
     line_label = line_start;
     entry = cp;
-    locs = Some low_pc,accu.locs;
+    dlocs = Some low_pc,accu.locs;
   }::acc
 
 let gen_diab_debug_info sec_name var_section : debug_entries =
-- 
cgit