diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-04-25 12:27:31 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-04-25 12:27:31 +0000 |
| commit | 7abcc8799e5b726f0469512d888fa2f8d11b95c0 (patch) | |
| tree | a328bf1bf7de799d41dc72145ed6444561e8d6f1 /parsing/printast.ml | |
| parent | 00e105ce490f8d7afd16b7c941fdf9d06ff347a6 (diff) | |
| download | ocaml-7abcc8799e5b726f0469512d888fa2f8d11b95c0.tar.gz | |
Ajout des litteraux de type int32, nativeint, int64
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5510 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing/printast.ml')
| -rw-r--r-- | parsing/printast.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index f411935868..a44c61efe5 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -46,9 +46,11 @@ let fmt_constant f x = match x with | Const_int (i) -> fprintf f "Const_int %d" i; | Const_char (c) -> fprintf f "Const_char %02x" (Char.code c); - | Const_string (s) -> - fprintf f "Const_string %S" s; + | Const_string (s) -> fprintf f "Const_string %S" s; | Const_float (s) -> fprintf f "Const_float %s" s; + | Const_int32 (i) -> fprintf f "Const_int32 %ld" i; + | Const_int64 (i) -> fprintf f "Const_int64 %Ld" i; + | Const_nativeint (i) -> fprintf f "Const_nativeint %nd" i; ;; let fmt_mutable_flag f x = |