diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-19 09:54:40 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-19 09:54:40 +0000 |
commit | be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec (patch) | |
tree | c51b66e9154bc64cf4fd4191251f29d102928841 /backend/PrintXTL.ml | |
parent | 60e1fd71c7e97b2214daf574e0f41b55a3e0bceb (diff) | |
download | compcert-be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec.tar.gz compcert-be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec.zip |
Merge of the float32 branch:
- added RTL type "Tsingle"
- ABI-compatible passing of single-precision floats on ARM and x86
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2260 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/PrintXTL.ml')
-rw-r--r-- | backend/PrintXTL.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/backend/PrintXTL.ml b/backend/PrintXTL.ml index 756fc58c..258babaf 100644 --- a/backend/PrintXTL.ml +++ b/backend/PrintXTL.ml @@ -29,7 +29,11 @@ let mreg pp r = | Some s -> fprintf pp "%s" s | None -> fprintf pp "<unknown machreg>" -let short_name_of_type = function Tint -> 'i' | Tfloat -> 'f' | Tlong -> 'l' +let short_name_of_type = function + | Tint -> 'i' + | Tfloat -> 'f' + | Tlong -> 'l' + | Tsingle -> 's' let loc pp = function | R r -> mreg pp r |