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:
parent
f5f151dc19
commit
d2c85e3329
|
@ -314,10 +314,13 @@ let make vars =
|
||||||
let architecture = get vars "architecture" in
|
let architecture = get vars "architecture" in
|
||||||
let model = get vars "model" in
|
let model = get vars "model" in
|
||||||
let system = get vars "system" 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 asm_cfi_supported = get_bool vars "asm_cfi_supported" in
|
||||||
let with_frame_pointers = get_bool vars "with_frame_pointers" 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 =
|
let word_size =
|
||||||
match get_int_opt vars "word_size" with
|
match get_int_opt vars "word_size" with
|
||||||
| Some n -> n
|
| Some n -> n
|
||||||
|
|
Loading…
Reference in New Issue