diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-20 18:51:54 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-20 18:51:54 +0200 |
| commit | 24406a351e9d64c2953b0b9fc7ef0b3d79db9b85 (patch) | |
| tree | cb6b03eb38df4e8c9a664b70f2d4aab3ad29a0b7 /aarch64/Machregsaux.ml | |
| parent | adc142066720798ca2e6f7709de6fba93559a336 (diff) | |
| download | compcert-kvx-24406a351e9d64c2953b0b9fc7ef0b3d79db9b85.tar.gz compcert-kvx-24406a351e9d64c2953b0b9fc7ef0b3d79db9b85.zip | |
fix compiling for aarch64
Diffstat (limited to 'aarch64/Machregsaux.ml')
| -rw-r--r-- | aarch64/Machregsaux.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/aarch64/Machregsaux.ml b/aarch64/Machregsaux.ml index d7f10b9b..f13a9ff5 100644 --- a/aarch64/Machregsaux.ml +++ b/aarch64/Machregsaux.ml @@ -33,3 +33,8 @@ let register_by_name s = Machregs.register_by_name (coqstring_uppercase_ascii_of_camlstring s) let can_reserve_register r = Conventions1.is_callee_save r + +let class_of_type = function + | AST.Tint | AST.Tlong -> 0 + | AST.Tfloat | AST.Tsingle -> 1 + | AST.Tany32 | AST.Tany64 -> assert false |