diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-24 08:05:35 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-24 08:05:35 +0000 |
| commit | 04ff02a9f4bc4f766a450e5463729102ee26882e (patch) | |
| tree | 8aa397a531c75a3f634f068ff08293718c7f9fe6 /checklink/Frameworks.ml | |
| parent | a19eb81876d9739b569b946ccdbf2778d2e9aca7 (diff) | |
Update for single-precision floats. Calls to vararg functions remain
to be updated.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2544 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Frameworks.ml')
| -rw-r--r-- | checklink/Frameworks.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/checklink/Frameworks.ml b/checklink/Frameworks.ml index ec11412..0f7ec44 100644 --- a/checklink/Frameworks.ml +++ b/checklink/Frameworks.ml @@ -25,6 +25,7 @@ type byte_chunk_desc = | Stub of string | Jumptable | Float_literal of float + | Float32_literal of float | Padding | Unknown of string @@ -208,5 +209,6 @@ let string_of_byte_chunk_desc = function | Stub(s) -> "Stub for: " ^ s | Jumptable -> "Jump table" | Float_literal(f) -> "Float literal: " ^ string_of_float f +| Float32_literal(f) -> "Float32 literal: " ^ string_of_float f | Padding -> "Padding" | Unknown(s) -> "???" ^ (if !verbose_elfmap then s else "") |