From 32e62d01510c7b1c0dbd39f9ecc9fd997c2ff2b9 Mon Sep 17 00:00:00 2001
From: Marijn Haverbeke <marijnh@gmail.com>
Date: Thu, 7 Apr 2011 23:55:02 +0200
Subject: add a -parse-only option to rustc

(undocumented, only used for profiling the parser)
---
 src/comp/driver/rustc.rs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/comp/driver')

diff --git a/src/comp/driver/rustc.rs b/src/comp/driver/rustc.rs
index 928c934a..28953696 100644
--- a/src/comp/driver/rustc.rs
+++ b/src/comp/driver/rustc.rs
@@ -59,10 +59,12 @@ impure fn compile_input(session.session sess,
                         str input, str output,
                         bool shared,
                         bool optimize,
+                        bool parse_only,
                         vec[str] library_search_paths) {
     auto def = tup(0, 0);
     auto p = parser.new_parser(sess, env, def, input);
     auto crate = parse_input(sess, p, input);
+    if (parse_only) {ret;}
     crate = creader.read_crates(sess, crate, library_search_paths);
     crate = resolve.resolve_crate(sess, crate);
     auto typeck_result = typeck.check_crate(sess, crate);
@@ -132,6 +134,7 @@ impure fn main(vec[str] args) {
     let bool shared = false;
     let bool pretty = false;
     let bool ls = false;
+    let bool parse_only = false;
     let bool glue = false;
 
     // FIXME: Maybe we should support -O0, -O1, -Os, etc
@@ -156,6 +159,8 @@ impure fn main(vec[str] args) {
                 pretty = true;
             } else if (_str.eq(arg, "-ls")) {
                 ls = true;
+            } else if (_str.eq(arg, "-parse-only")) {
+                parse_only = true;
             } else if (_str.eq(arg, "-o")) {
                 if (i+1u < len) {
                     output_file = some(args.(i+1u));
@@ -228,11 +233,13 @@ impure fn main(vec[str] args) {
                         parts += vec(".bc");
                         auto ofile = _str.concat(parts);
                         compile_input(sess, env, ifile, ofile, shared,
-                                      optimize, library_search_paths);
+                                      optimize, parse_only,
+                                      library_search_paths);
                     }
                     case (some[str](?ofile)) {
                         compile_input(sess, env, ifile, ofile, shared,
-                                      optimize, library_search_paths);
+                                      optimize, parse_only,
+                                      library_search_paths);
                     }
                 }
             }
-- 
cgit v1.2.3