Commit 07177cf1 authored by xleroy's avatar xleroy
Browse files

Fix extraction problem

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1418 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
parent c838d336
......@@ -37,6 +37,6 @@ let register_by_name s =
None
let can_reserve_register r =
List.mem r Conventions.int_callee_save_regs
|| List.mem r Conventions.float_callee_save_regs
List.mem r Conventions1.int_callee_save_regs
|| List.mem r Conventions1.float_callee_save_regs
......@@ -46,6 +46,6 @@ let register_by_name s =
None
let can_reserve_register r =
List.mem r Conventions.int_callee_save_regs
|| List.mem r Conventions.float_callee_save_regs
List.mem r Conventions1.int_callee_save_regs
|| List.mem r Conventions1.float_callee_save_regs
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment