diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-02 11:10:39 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-02 11:10:39 +0200 |
commit | 007ed4b93ac06e9cd5cf3107008f13df19f580f0 (patch) | |
tree | ee6ee065719470cd99c1e69a85a9f11a4d3d80b2 | |
parent | 13b1d1fbe9408659c278696fb6a0eb2f213ea78f (diff) | |
download | compcert-007ed4b93ac06e9cd5cf3107008f13df19f580f0.tar.gz compcert-007ed4b93ac06e9cd5cf3107008f13df19f580f0.zip |
Add also all files for local variables.
-rw-r--r-- | debug/DebugInformation.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/debug/DebugInformation.ml b/debug/DebugInformation.ml index 9100e60b..6046f894 100644 --- a/debug/DebugInformation.ml +++ b/debug/DebugInformation.ml @@ -521,6 +521,7 @@ let add_lvar_scope f_id var_id s_id = with Not_found -> () let insert_local_declaration sto id ty loc = + add_file (fst loc); let ty = insert_type ty in let var = { lvar_name = id.name; |