diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2018-02-08 16:38:54 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2018-02-08 16:38:54 +0100 |
| commit | f02f00a01b598567f70e138c144d9581973802e6 (patch) | |
| tree | db15b2ad60692f936435cdd784e7bb7f6a977a40 /driver/Driveraux.mli | |
| parent | 54fa98c3833091a75d0c1afe84b42afc35452fe3 (diff) | |
| download | compcert-kvx-f02f00a01b598567f70e138c144d9581973802e6.tar.gz compcert-kvx-f02f00a01b598567f70e138c144d9581973802e6.zip | |
Refactor the handling of errors and warnings (#44)
* Module Cerrors is now called Diagnostic and can be used in parts of CompCert other than cparser/
* Replaced eprintf error. Instead of having eprintf msg; exit 2 use the functions from the
Diagnostics module.
* Raise on error before calling external tools.
* Added diagnostics to clightgen.
* Fix error handling of AsmToJson.
* Cleanup error handling of Elab and C2C.
*The implementation of location printing (file & line) is simplified and correctly prints valid filenames with invalid lines.
Diffstat (limited to 'driver/Driveraux.mli')
| -rw-r--r-- | driver/Driveraux.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/driver/Driveraux.mli b/driver/Driveraux.mli index 51333b2a..6f0eaddb 100644 --- a/driver/Driveraux.mli +++ b/driver/Driveraux.mli @@ -16,7 +16,7 @@ val command: ?stdout:string -> string list -> int (** Execute the command with the given arguments and an optional file for the stdout. Returns the exit code. *) -val command_error: string -> int -> unit +val command_error: string -> int -> 'a (** Generate an error message for the given command and exit code *) val safe_remove: string -> unit @@ -38,7 +38,7 @@ val output_filename_default: string -> string val ensure_inputfile_exists: string -> unit (** Test whether the given input file exists *) -val print_error:out_channel -> Errors.errcode list -> unit +val print_error:Format.formatter -> Errors.errcode list -> unit (** Printing of error messages *) val explode_comma_option: string -> string list |