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

Debugging support (weak for now)

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-09-04 00:25:07 +03:00
parent 6ed1b44439
commit d000cf2f13
5 changed files with 32 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Driver.ml
View file

@ -65,6 +65,7 @@ class options args =
val outfile = ref (None : string option)
val paths = ref [X86.get_std_path ()]
val mode = ref (`Default : [`Default | `Eval | `SM | `Compile ])
val curdir = Unix.getcwd ()
(* Workaround until Ostap starts to memoize properly *)
val const = ref false
(* end of the workaround *)
@ -127,6 +128,9 @@ class options args =
match !outfile with
| None -> Printf.sprintf "-o %s" self#basename
| Some name -> Printf.sprintf "-o %s" name
method get_absolute_infile =
let f = self#get_infile in
if Filename.is_relative f then Filename.concat curdir f else f
method get_infile =
match !infile with
| None -> raise (Commandline_error "Input file not specified")