matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use dummy value for asm when absent 

On bytecode only systems, this parameter may be absent. We use a dummy in such
situations. A dummy value is used so that users do not get immediate erros when
using an absent value.
This commit is contained in:
Rudi Grinberg 2018-03-21 00:01:31 +08:00
parent f5f151dc19
commit d2c85e3329
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ocaml-config/ocaml_config.ml
View File

@ -314,10 +314,13 @@ let make vars =
let architecture = get vars "architecture" in
let model = get vars "model" in
let system = get vars "system" in
let asm = get_prog_and_args vars "asm" in
let asm_cfi_supported = get_bool vars "asm_cfi_supported" in
let with_frame_pointers = get_bool vars "with_frame_pointers" in
let asm =
match get_prog_and_args_opt vars "asm" with
| Some asm -> asm
| None -> { prog = "asm-not-found-in-ocaml-config"; args = [] }
in
let word_size =
match get_int_opt vars "word_size" with
| Some n -> n