aboutsummaryrefslogtreecommitdiffstats
path: root/backend/PrintAsm.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2015-07-02 12:59:10 +0200
committerBernhard Schommer <bernhardschommer@gmail.com>2015-07-02 12:59:10 +0200
commitc32e15e23759d354c1491a69767093e374f52754 (patch)
treed661c371fab8b4c684bfd4b34a2b53f6e54a6686 /backend/PrintAsm.ml
parentb946cdfc8e33468a813cd8b2e41aa3442b51f04f (diff)
downloadcompcert-kvx-c32e15e23759d354c1491a69767093e374f52754.tar.gz
compcert-kvx-c32e15e23759d354c1491a69767093e374f52754.zip
Do not search for high and low pc of inlined functions.
Diffstat (limited to 'backend/PrintAsm.ml')
-rw-r--r--backend/PrintAsm.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml
index e91b4e03..f3c80f3e 100644
--- a/backend/PrintAsm.ml
+++ b/backend/PrintAsm.ml
@@ -119,7 +119,7 @@ module Printer(Target:TARGET) =
let get_end_addr = Target.get_end_addr
let get_stmt_list_addr = Target.get_stmt_list_addr
let name_of_section = Target.name_of_section
- let get_fun_addr s = Hashtbl.find addr_mapping s
+ let get_fun_addr s = try Some (Hashtbl.find addr_mapping s) with Not_found -> None
end
module DebugPrinter = DwarfPrinter (DwarfTarget) (Target.DwarfAbbrevs)