diff options
Diffstat (limited to 'arm/Machregsaux.ml')
| -rw-r--r-- | arm/Machregsaux.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/arm/Machregsaux.ml b/arm/Machregsaux.ml index 5486c4b4..3f7d0693 100644 --- a/arm/Machregsaux.ml +++ b/arm/Machregsaux.ml @@ -41,3 +41,10 @@ let can_reserve_register r = List.mem r Conventions1.int_callee_save_regs || List.mem r Conventions1.float_callee_save_regs +let mregs_of_clobber idl = + List.fold_left + (fun l c -> + match register_by_name (Camlcoq.extern_atom c) with + | Some r -> r :: l + | None -> l) + [] idl |