|
Lines 7-13
let () =
Link Here
|
| 7 |
match Sys.argv with |
7 |
match Sys.argv with |
| 8 |
| [|_;"-cppo-args"|] -> |
8 |
| [|_;"-cppo-args"|] -> |
| 9 |
let version = Scanf.sscanf Sys.ocaml_version "%d.%d." (fun major minor -> major * 100 + minor) in |
9 |
let version = Scanf.sscanf Sys.ocaml_version "%d.%d." (fun major minor -> major * 100 + minor) in |
| 10 |
printf "-D \\\"OCAML %d\\\"\n" version; |
10 |
printf "-n -D \\\"OCAML %d\\\"\n" version; |
| 11 |
print_endline (if Sys.word_size = 32 then "-D WORD_SIZE_32 " else ""); |
11 |
print_endline (if Sys.word_size = 32 then "-D WORD_SIZE_32 " else ""); |
| 12 |
show_bytes "-D WITH_BYTES"; |
12 |
show_bytes "-D WITH_BYTES"; |
| 13 |
exit 0 |
13 |
exit 0 |
