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

Remove X86 mode

Browse source
This commit is contained in:
Roman Venediktov 2024-07-05 15:00:07 +02:00
parent 02209117f4
commit e74b092f3a
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Options.ml
View file

@ -1,6 +1,5 @@
exception Commandline_error of string exception Commandline_error of string
type arch_t = X86_64 | X86
type os_t = Linux | Darwin type os_t = Linux | Darwin
class options args = class options args =
@ -29,7 +28,6 @@ class options args =
^ " -i --- interpret on a source-level interpreter\n" ^ " -i --- interpret on a source-level interpreter\n"
^ " -s --- compile into stack machine code and interpret on the \ ^ " -s --- compile into stack machine code and interpret on the \
stack machine initerpreter\n" stack machine initerpreter\n"
^ " -m32 --- compile into x86 architecture\n"
^ " -g --- add more debug info and runtime checks\n" ^ " -g --- add more debug info and runtime checks\n"
^ " -dp --- dump AST (the output will be written into .ast file)\n" ^ " -dp --- dump AST (the output will be written into .ast file)\n"
^ " -dsrc --- dump pretty-printed source code\n" ^ " -dsrc --- dump pretty-printed source code\n"
@ -50,7 +48,6 @@ class options args =
val mode = ref (`Default : [ `Default | `Eval | `SM | `Compile | `BC ]) val mode = ref (`Default : [ `Default | `Eval | `SM | `Compile | `BC ])
val curdir = Unix.getcwd () val curdir = Unix.getcwd ()
val debug = ref false val debug = ref false
val arch = ref X86_64
val target_os = host_os val target_os = host_os
(* Workaround until Ostap starts to memoize properly *) (* Workaround until Ostap starts to memoize properly *)
@ -61,7 +58,6 @@ class options args =
initializer initializer
let set_debug () = debug := true in let set_debug () = debug := true in
let set_x86 () = arch := X86 in
let rec loop () = let rec loop () =
match self#peek with match self#peek with
| Some opt -> | Some opt ->
@ -92,7 +88,6 @@ class options args =
| "-h" -> self#set_help | "-h" -> self#set_help
| "-v" -> self#set_version | "-v" -> self#set_version
| "-g" -> set_debug () | "-g" -> set_debug ()
| "-m32" -> set_x86 ()
| _ -> | _ ->
if opt.[0] = '-' then if opt.[0] = '-' then
raise raise
@ -206,6 +201,5 @@ class options args =
if !help then Printf.printf "%s" help_string if !help then Printf.printf "%s" help_string
method is_debug = !debug method is_debug = !debug
method arch = !arch
method target_os = target_os method target_os = target_os
end end