diff options
| author | Pierre-Marie Pédrot | 2014-06-02 16:31:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-02 16:31:55 +0200 |
| commit | 2e3f59f8d689b45fcad8cfd0f3dc1d5e693d8546 (patch) | |
| tree | ba1a34a555e957c13b2333251020e869e381c543 /kernel/nativevalues.ml | |
| parent | 1f0976cbed9f1ee23b082bd5dc5da126e8b47a75 (diff) | |
Fixing incorrect printf format.
Diffstat (limited to 'kernel/nativevalues.ml')
| -rw-r--r-- | kernel/nativevalues.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index d88d5d25d3..51bf4c2738 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -484,7 +484,7 @@ let compare accu x y = if is_int x && is_int y then no_check_compare x y else accu x y -let hobcnv = Array.init 256 (fun i -> Printf.sprintf "%.2x" i) +let hobcnv = Array.init 256 (fun i -> Printf.sprintf "%02x" i) let bohcnv = Array.init 256 (fun i -> i - (if 0x30 <= i then 0x30 else 0) - (if 0x41 <= i then 0x7 else 0) - |