From 7ab3b305e4f2b8f7d1e24c45756cfe23b0859ddc Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Mon, 20 Sep 2010 13:06:49 -0700 Subject: Move id counters into sess in preparation for moving desugaring to middle-end. --- src/boot/driver/main.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/boot/driver/main.ml') diff --git a/src/boot/driver/main.ml b/src/boot/driver/main.ml index e80e7682..3bd5d737 100644 --- a/src/boot/driver/main.ml +++ b/src/boot/driver/main.ml @@ -65,6 +65,9 @@ let (sess:Session.sess) = Session.sess_timings = Hashtbl.create 0; Session.sess_lib_dirs = Queue.create (); Session.sess_crate_meta = Hashtbl.create 0; + Session.sess_node_id_counter = ref (Node 0); + Session.sess_opaque_id_counter = ref (Opaque 0); + Session.sess_temp_id_counter = ref (Temp 0); } ;; @@ -101,7 +104,7 @@ let set_default_output_filename (sess:Session.sess) : unit = let dump_sig (filename:filename) : unit = let items = - Lib.get_file_mod sess abi filename (ref (Node 0)) (ref (Opaque 0)) in + Lib.get_file_mod sess abi filename in Printf.fprintf stdout "%s\n" (Fmt.fmt_to_str Ast.fmt_mod_items items); exit_if_failed (); exit 0 -- cgit v1.2.3