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 = ...@@ -37,6 +37,6 @@ let register_by_name s =
None None
let can_reserve_register r = let can_reserve_register r =
List.mem r Conventions.int_callee_save_regs List.mem r Conventions1.int_callee_save_regs
|| List.mem r Conventions.float_callee_save_regs || List.mem r Conventions1.float_callee_save_regs
...@@ -46,6 +46,6 @@ let register_by_name s = ...@@ -46,6 +46,6 @@ let register_by_name s =
None None
let can_reserve_register r = let can_reserve_register r =
List.mem r Conventions.int_callee_save_regs List.mem r Conventions1.int_callee_save_regs
|| List.mem r Conventions.float_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