diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-08-17 11:31:23 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-08-17 11:31:23 +0200 |
| commit | 0f9d824914c9dff0bf5d983ab387a5b5326307fc (patch) | |
| tree | 162ffbc12514864db4d1e7cbff86559be4924616 /driver/Configuration.ml | |
| parent | b1a059251053a061d98e4b440bfab40ffd8761c7 (diff) | |
| parent | 5309f16159e4decd81330622dcdd6eb4b25819a1 (diff) | |
| download | compcert-0f9d824914c9dff0bf5d983ab387a5b5326307fc.tar.gz compcert-0f9d824914c9dff0bf5d983ab387a5b5326307fc.zip | |
Merge pull request #107 from AbsInt/add-file
Add support for response files
Diffstat (limited to 'driver/Configuration.ml')
| -rw-r--r-- | driver/Configuration.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/driver/Configuration.ml b/driver/Configuration.ml index e1a02573..0a2b3eec 100644 --- a/driver/Configuration.ml +++ b/driver/Configuration.ml @@ -171,3 +171,15 @@ let struct_return_style = | "int1-8" -> SR_int1to8 | "ref" -> SR_ref | v -> bad_config "struct_return_style" [v] + +type response_file_style = + | Gnu (* responsefiles in gnu compatible syntax *) + | Diab (* responsefiles in diab compatible syntax *) + | Unsupported (* responsefiles are not supported *) + +let response_file_style = + match get_config_string "response_file_style" with + | "unsupported" -> Unsupported + | "gnu" -> Gnu + | "diab" -> Diab + | v -> bad_config "response_file_style" [v] |