From 7abcc8799e5b726f0469512d888fa2f8d11b95c0 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Fri, 25 Apr 2003 12:27:31 +0000 Subject: Ajout des litteraux de type int32, nativeint, int64 git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5510 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- bytecomp/printlambda.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'bytecomp/printlambda.ml') diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index 909ee4639..b8af27831 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -21,12 +21,12 @@ open Lambda let rec struct_const ppf = function | Const_base(Const_int n) -> fprintf ppf "%i" n - | Const_base(Const_char c) -> - fprintf ppf "%C" c - | Const_base(Const_string s) -> - fprintf ppf "%S" s - | Const_base(Const_float s) -> - fprintf ppf "%s" s + | Const_base(Const_char c) -> fprintf ppf "%C" c + | Const_base(Const_string s) -> fprintf ppf "%S" s + | Const_base(Const_float f) -> fprintf ppf "%s" f + | Const_base(Const_int32 n) -> fprintf ppf "%lil" n + | Const_base(Const_int64 n) -> fprintf ppf "%LiL" n + | Const_base(Const_nativeint n) -> fprintf ppf "%nin" n | Const_pointer n -> fprintf ppf "%ia" n | Const_block(tag, []) -> fprintf ppf "[%i]" tag -- cgit v1.2.3-70-g09d2