st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-26 00:28:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP on more dune

Browse source 
Signed-off-by: Kakadu <Kakadu@pm.me>
This commit is contained in:
Kakadu 2024-08-30 00:35:31 +03:00
parent 6761c1d0ef
commit 092d5f2f33
12 changed files with 174 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Options.ml
View file

@ -43,6 +43,7 @@ class options args =
val i = ref 1
val infile = ref (None : string option)
val outfile = ref (None : string option)
val march = ref `AMD64
val runtime_path = runtime_path_
val paths = ref [ runtime_path_ ]
val mode = ref (`Default : [ `Default | `Eval | `SM | `Compile | `BC ])
@ -79,6 +80,8 @@ class options args =
raise
(Commandline_error "Path expected after '-I' specifier")
| Some path -> self#add_include_path path)
| "-march=amd64" -> march := `AMD64
| "-march=x86" -> march := `X86_32
| "-s" -> self#set_mode `SM
| "-b" -> self#set_mode `BC
| "-i" -> self#set_mode `Eval
@ -139,6 +142,8 @@ class options args =
Some args.(j))
else None
method march : [ `AMD64 | `X86_32 ] = !march
method get_debug = ""
method get_mode = !mode
method get_output_option =