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

Primitive GDB support

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-09-04 23:45:57 +03:00
parent d000cf2f13
commit 81c060d212
3 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/SM.ml
View file

@ -725,8 +725,9 @@ let compile cmd ((imports, infixes), p) =
add_code (env, flag1, s1) les flag2 s2 add_code (env, flag1, s1) les flag2 s2
and compile_expr tail l env = function and compile_expr tail l env = function
| Expr.Lambda (args, b) -> | Expr.Lambda (args, b) ->
let env, lines = List.fold_left (fun (env, acc) name -> let env, ln = env#gen_line name in env, acc @ ln) (env, []) args in
let env, name = env#add_lambda args b in let env, name = env#add_lambda args b in
env#register_call name, false, [PROTO (name, env#current_function)] env#register_call name, false, lines @ [PROTO (name, env#current_function)]
| Expr.Scope (ds, e) -> | Expr.Scope (ds, e) ->
let env = env#push_scope in let env = env#push_scope in

14
src/X86.ml
View file

@ -395,8 +395,8 @@ let compile cmd env imports code =
env#assert_empty_stack; env#assert_empty_stack;
let has_closure = closure <> [] in let has_closure = closure <> [] in
let env = env#enter f nargs nlocals has_closure in let env = env#enter f nargs nlocals has_closure in
env, [Meta "\t.cfi_startproc\n"] @ env, [Meta "\t.cfi_startproc"] @
(if has_closure then [Push edx] else []) @ (if has_closure then [Push edx; Meta "\t.cfi_adjust_cfa_offset\t8"] else []) @
(if f = cmd#topname (if f = cmd#topname
then then
[Mov (M "_init", eax); [Mov (M "_init", eax);
@ -409,7 +409,9 @@ let compile cmd env imports code =
else [] else []
) @ ) @
[Push ebp; [Push ebp;
Meta "\t.cfi_adjust_cfa_offset\t8";
Mov (esp, ebp); Mov (esp, ebp);
Meta "\t.cfi_def_cfa_register\t5";
Binop ("-", M ("$" ^ env#lsize), esp); Binop ("-", M ("$" ^ env#lsize), esp);
Mov (esp, edi); Mov (esp, edi);
Mov (M "$filler", esi); Mov (M "$filler", esi);
@ -433,12 +435,14 @@ let compile cmd env imports code =
Mov (x, eax); (*!!*) Mov (x, eax); (*!!*)
Label env#epilogue; Label env#epilogue;
Mov (ebp, esp); Mov (ebp, esp);
Pop ebp Pop ebp;
] @ ] @
env#rest_closure @ env#rest_closure @
(if name = "main" then [Binop ("^", eax, eax)] else []) @ (if name = "main" then [Binop ("^", eax, eax)] else []) @
[Ret; [Meta "\t.cfi_restore\t5";
Meta "\t.cfi_endproc\n"; Meta "\t.cfi_def_cfa\t4, 4";
Ret;
Meta "\t.cfi_endproc";
Meta (Printf.sprintf "\t.set\t%s,\t%d" env#lsize (env#allocated * word_size)); Meta (Printf.sprintf "\t.set\t%s,\t%d" env#lsize (env#allocated * word_size));
Meta (Printf.sprintf "\t.set\t%s,\t%d" env#allocated_size env#allocated) Meta (Printf.sprintf "\t.set\t%s,\t%d" env#allocated_size env#allocated)
] ]

2
src/version.ml
View file

@ -1 +1 @@
let version = "Version 1.00, 6ed1b4443, Tue Sep 1 20:31:34 2020 +0300" let version = "Version 1.00, d000cf2f1, Fri Sep 4 00:25:07 2020 +0300"