diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2003-05-14 09:48:20 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2003-05-14 09:48:20 +0000 |
| commit | 4d7abfbc16022eab8af392bd3e6d76cf4773f2c2 (patch) | |
| tree | e883430c77d37c7c933652bca86be8dcc3697272 /parsing/printast.ml | |
| parent | 6ef3a9c5a2ca32049682798e1e6f4521ea196836 (diff) | |
| download | ocaml-multimatch.tar.gz | |
merge from HEADmultimatch
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/multimatch@5563 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing/printast.ml')
| -rw-r--r-- | parsing/printast.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index 3d334c3981..53688aa5ef 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 = @@ -322,6 +324,9 @@ and type_kind i ppf x = | Ptype_record (l) -> line i ppf "Ptype_record\n"; list (i+1) string_x_mutable_flag_x_core_type ppf l; + | Ptype_private x -> + line i ppf "Ptype_private\n"; + type_kind (i + 1) ppf x and exception_declaration i ppf x = list i core_type ppf x |