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 /driver | |
| parent | 60e1fd71c7e97b2214daf574e0f41b55a3e0bceb (diff) | |
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 'driver')
| -rw-r--r-- | driver/Interp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index 8d8d8eb..25c8b30 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -49,6 +49,7 @@ let print_id_ofs p (id, ofs) = let print_eventval p = function | EVint n -> fprintf p "%ld" (camlint_of_coqint n) | EVfloat f -> fprintf p "%F" (camlfloat_of_coqfloat f) + | EVfloatsingle f -> fprintf p "%F" (camlfloat_of_coqfloat f) | EVlong n -> fprintf p "%Ld" (camlint64_of_coqint n) | EVptr_global(id, ofs) -> fprintf p "&%a" print_id_ofs (id, ofs) |