diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-21 22:39:27 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-21 22:39:27 +0100 |
| commit | 23fa2a18e015b9d330ad6f1f08cf50adf90bd80b (patch) | |
| tree | e3e39eebc5164b967db9b16504bfe19edc4d2bdc /arm/Machregsaux.ml | |
| parent | ab5528fb4caf637a0c7014d943302198079e7c20 (diff) | |
| download | compcert-kvx-23fa2a18e015b9d330ad6f1f08cf50adf90bd80b.tar.gz compcert-kvx-23fa2a18e015b9d330ad6f1f08cf50adf90bd80b.zip | |
try to be portable across archs
Diffstat (limited to 'arm/Machregsaux.ml')
| -rw-r--r-- | arm/Machregsaux.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/arm/Machregsaux.ml b/arm/Machregsaux.ml index ce5c67f6..14c75155 100644 --- a/arm/Machregsaux.ml +++ b/arm/Machregsaux.ml @@ -33,3 +33,8 @@ let register_by_name s = let can_reserve_register r = List.mem r Conventions1.int_callee_save_regs || List.mem r Conventions1.float_callee_save_regs + +let class_of_type = function + | AST.Tint | AST.Tlong -> 0 + | AST.Tfloat | AST.Tsingle -> 1 + | AST.Tany32 | AST.Tany64 -> assert false |