diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-23 09:39:42 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-23 09:39:42 +0000 |
| commit | 2381813837a5ad12f41168412101e919e7106359 (patch) | |
| tree | 8ab891ab79f0c0de960eb876643d16d0a3491cbd | |
| parent | c6dc421ffcc15be7ad2f6a0b93ba790b66ae2e9f (diff) | |
| download | compcert-kvx-2381813837a5ad12f41168412101e919e7106359.tar.gz compcert-kvx-2381813837a5ad12f41168412101e919e7106359.zip | |
Rapport d'erreur dans CIL
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@130 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -rw-r--r-- | caml/Main2.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/caml/Main2.ml b/caml/Main2.ml index 88f5b72d..ff9f3509 100644 --- a/caml/Main2.ml +++ b/caml/Main2.ml @@ -64,8 +64,10 @@ let process_c_file sourcename = try Frontc.parse preproname () with - Frontc.ParseError msg -> + | Frontc.ParseError msg -> eprintf "Error during parsing: %s\n" msg; + exit 2 + | Errormsg.Error -> exit 2 in Sys.remove preproname; (* Restore source file name before preprocessing *) |