diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-11-13 15:20:12 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-11-13 15:20:12 +0100 |
commit | 3f24b362f5ac2aa252ee14f1b793ebbf2f69ff08 (patch) | |
tree | fe290a38c7675f965d0ffb67cde20d161ce4444e /debug/Dwarfgen.ml | |
parent | 4fad3b8da1227d4f5f7ff7d6cd2dbd2565d06ce4 (diff) | |
parent | d90ba4443294b80bd940daedfdcdc3d4334fdc7c (diff) | |
download | compcert-3f24b362f5ac2aa252ee14f1b793ebbf2f69ff08.tar.gz compcert-3f24b362f5ac2aa252ee14f1b793ebbf2f69ff08.zip |
Merge branch 'master' of ssh://github.com/AbsInt/CompCert
Diffstat (limited to 'debug/Dwarfgen.ml')
-rw-r--r-- | debug/Dwarfgen.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/debug/Dwarfgen.ml b/debug/Dwarfgen.ml index f62fac26..7addaba3 100644 --- a/debug/Dwarfgen.ml +++ b/debug/Dwarfgen.ml @@ -384,7 +384,9 @@ module Dwarfgenaux (Target: TARGET) = with Not_found -> None,[] let function_parameter_to_entry f_id acc p = - let loc,loc_list = location_entry f_id (get_opt_val p.parameter_atom) in + let loc,loc_list = match p.parameter_atom with + | None -> None,[] + | Some p -> location_entry f_id p in let p = { formal_parameter_artificial = None; formal_parameter_name = name_opt p.parameter_name; |