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

Fixed call frame info (for gdb's bt command)

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-11-16 20:49:07 +03:00
parent 6822582552
commit 1849c7029b
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/X86.ml
View file

@ -436,8 +436,8 @@ let compile cmd env imports code =
(List.flatten @@ List.map stabs_scope scopes) (List.flatten @@ List.map stabs_scope scopes)
) )
@ @
[Meta "\t.cfi_startproc"; Meta "\t.cfi_adjust_cfa_offset\t4"] @ [Meta "\t.cfi_startproc"] @
(if has_closure then [Push edx; Meta "\t.cfi_adjust_cfa_offset\t4"] else []) @ (if has_closure then [Push edx] else []) @
(if f = cmd#topname (if f = cmd#topname
then then
[Mov (M "_init", eax); [Mov (M "_init", eax);
@ -450,7 +450,8 @@ let compile cmd env imports code =
else [] else []
) @ ) @
[Push ebp; [Push ebp;
Meta "\t.cfi_adjust_cfa_offset\t4"; Meta ("\t.cfi_def_cfa_offset\t" ^ if has_closure then "12" else "8");
Meta ("\t.cfi_offset 5, -" ^ if has_closure then "12" else "8");
Mov (esp, ebp); Mov (esp, ebp);
Meta "\t.cfi_def_cfa_register\t5"; Meta "\t.cfi_def_cfa_register\t5";
Binop ("-", M ("$" ^ env#lsize), esp); Binop ("-", M ("$" ^ env#lsize), esp);

2
src/version.ml
View file

@ -1 +1 @@
let version = "Version 1.00, 695ddc7d8, Sat Oct 31 02:59:20 2020 +0300" let version = "Version 1.00, 682258255, Mon Nov 16 16:20:19 2020 +0300"