diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-04-29 15:12:54 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2020-06-28 10:07:02 +0200 |
| commit | ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2 (patch) | |
| tree | 128b7e26ed98c6035331adfd880103e89e25200b /backend/PrintMach.ml | |
| parent | faa1d7fbfd7c9d5aa333d9b353a6118e105c4428 (diff) | |
| download | compcert-kvx-ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2.tar.gz compcert-kvx-ad2ea9c2e701dd82c26e6cd3e8a777be9bdef2a2.zip | |
Move shared code in new file.
The name_of_register and register_of_name function are shared between
all architectures and can be moved in a common file.
Diffstat (limited to 'backend/PrintMach.ml')
| -rw-r--r-- | backend/PrintMach.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/backend/PrintMach.ml b/backend/PrintMach.ml index 517f3037..8a5f9a7c 100644 --- a/backend/PrintMach.ml +++ b/backend/PrintMach.ml @@ -16,12 +16,11 @@ open Printf open Camlcoq open Datatypes open AST -open Machregsaux open Mach open PrintAST let reg pp r = - match name_of_register r with + match Machregsnames.name_of_register r with | Some s -> fprintf pp "%s" s | None -> fprintf pp "<unknown reg>" |