mikros/rust
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make minimal-mode slightly less aggressive.

Browse Source
This commit is contained in:
Graydon Hoare 2010-10-07 18:20:51 -07:00
parent b184be07e1
commit facc5f8826
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/boot/be/x86.ml
View File

@ -1236,7 +1236,7 @@ let fn_prologue
(nabi:nabi)
(grow_task_fixup:fixup)
(is_obj_fn:bool)
(minimal:bool)
(_(*minimal*):bool)
: unit =
let esi_n = word_n (h esi) in
@ -1373,12 +1373,8 @@ let fn_prologue
in
(* "Full" frame size-check. *)
match dynamic_grow_jmp with
None when minimal -> ()
| _ ->
stack_growth_check e nabi grow_task_fixup
dynamic_frame_sz dynamic_grow_jmp restart_pc (h esi) (h edi);
stack_growth_check e nabi grow_task_fixup
dynamic_frame_sz dynamic_grow_jmp restart_pc (h esi) (h edi);
(* Establish a frame, wherever we landed. *)
sub (rc esp) dynamic_frame_sz;