diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-28 12:13:15 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-28 12:13:15 +0000 |
| commit | 04d0d602ef7245fd566debd91bcb148acd9ed067 (patch) | |
| tree | 77a11f3e551303521aa72af1e63cea0285bcd1bc /checklink/Frameworks.ml | |
| parent | b8e535ccf82385573f80f6d146c04892b25ea0a6 (diff) | |
PowerPC port: refactored the expansion of built-in functions and
pseudo-instructions so that it does not need to be re-done in
cchecklink.
cchecklink: updated accordingly.
testsuite: compile with -sdump and run cchecklink if supported.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2553 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Frameworks.ml')
| -rw-r--r-- | checklink/Frameworks.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/checklink/Frameworks.ml b/checklink/Frameworks.ml index 0f7ec44..30c0b38 100644 --- a/checklink/Frameworks.ml +++ b/checklink/Frameworks.ml @@ -24,8 +24,8 @@ type byte_chunk_desc = | Zero_symbol | Stub of string | Jumptable - | Float_literal of float - | Float32_literal of float + | Float_literal of int64 + | Float32_literal of int32 | Padding | Unknown of string @@ -208,7 +208,7 @@ let string_of_byte_chunk_desc = function | Zero_symbol -> "Symbol 0" | 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 +| Float_literal(f) -> "Float literal: " ^ string_of_int64 f +| Float32_literal(f) -> "Float32 literal: " ^ string_of_int32 f | Padding -> "Padding" | Unknown(s) -> "???" ^ (if !verbose_elfmap then s else "") |