diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-01 14:27:35 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-01 14:27:35 +0200 |
commit | 886f5550616272d899745d62ec3076fb63a71054 (patch) | |
tree | 39f87466ddf1c3f3fa01878f26b07b77a2456a9f /debug/Dwarfgen.ml | |
parent | 36892f59ced6dd06d6a9cfc6e8af49db8721dd65 (diff) | |
download | compcert-kvx-886f5550616272d899745d62ec3076fb63a71054.tar.gz compcert-kvx-886f5550616272d899745d62ec3076fb63a71054.zip |
Use also fucntion id for local variables since atom is not unique.
Diffstat (limited to 'debug/Dwarfgen.ml')
-rw-r--r-- | debug/Dwarfgen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debug/Dwarfgen.ml b/debug/Dwarfgen.ml index 8f71d487..6c79ce0c 100644 --- a/debug/Dwarfgen.ml +++ b/debug/Dwarfgen.ml @@ -336,7 +336,7 @@ let range_entry_loc (sp,l) = let location_entry f_id atom = try begin - match (Hashtbl.find var_locations atom) with + match (Hashtbl.find var_locations (f_id,atom)) with | FunctionLoc (a,r) -> translate_function_loc a r | RangeLoc l -> |