forked from rouge-ruby/rouge
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ghc-cmm
23 lines (23 loc) · 804 Bytes
/
ghc-cmm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
[lvl_s4t3_entry() // [R1]
{ info_tbls: [(c4uB,
label: lvl_s4t3_info
rep: HeapRep 1 ptrs { Thunk }
srt: Nothing)]
stack_info: arg_space: 8 updfr_space: Just 8
}
{offset
c4uB: // global
if ((Sp + -32) < SpLim) (likely: False) goto c4uC; else goto c4uD;
c4uC: // global
R1 = R1;
call (stg_gc_enter_1)(R1) args: 8, res: 0, upd: 8;
c4uD: // global
I64[Sp - 16] = stg_upd_frame_info;
P64[Sp - 8] = R1;
R2 = P64[R1 + 16];
I64[Sp - 32] = stg_ap_p_info;
P64[Sp - 24] = Main.fib3_closure+1;
Sp = Sp - 32;
call GHC.Num.fromInteger_info(R2) args: 40, res: 0, upd: 24;
}
}