diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-08-18 12:50:19 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-08-18 12:50:19 +0200 |
commit | b4846ffadfa3fbb73ffa7d9c43e5218adeece8da (patch) | |
tree | 335b09957f37285721efe31dd185e3b50587d563 /debug/CtoDwarf.ml | |
parent | 7fe3c745283dcfd7cd304bca68ae2cc3ea7cd4a5 (diff) | |
download | compcert-b4846ffadfa3fbb73ffa7d9c43e5218adeece8da.tar.gz compcert-b4846ffadfa3fbb73ffa7d9c43e5218adeece8da.zip |
Added support for the location of non static global variables.
Diffstat (limited to 'debug/CtoDwarf.ml')
-rw-r--r-- | debug/CtoDwarf.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debug/CtoDwarf.ml b/debug/CtoDwarf.ml index cead6099..99b77e6f 100644 --- a/debug/CtoDwarf.ml +++ b/debug/CtoDwarf.ml @@ -304,7 +304,7 @@ let glob_var_to_dwarf (s,n,t,_) gloc = variable_file_loc = (Some gloc); variable_declaration = Some at_decl; variable_external = Some ext; - variable_location = None; + variable_location = if ext then Some (LocSymbol n.name) else None; variable_name = n.name; variable_segment = None; variable_type = i; |