2 NOTE: Simplifier still going after 4 iterations; bailing out.
5 ================================================================================
8 PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,p-} PrelNum.integer_1{-8d,p-}];
10 (False, True, False, False, True) [] \u []
12 PrelNum.$d14{-rtM,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,p-}}
14 -- lvs: []; rhs lvs: []; uniq: c2b9
15 PrelTup.(,,,){-64,p-}{i} tpl_s1V1 tpl_s1V2 tpl_s1V3 tpl_s1V0 ->
20 PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,p-} PrelNum.integer_1{-8d,p-}];
22 (False, True, False, False, True) [] \u []
24 PrelNum.$d23{-rtW,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
26 -- lvs: []; rhs lvs: []; uniq: c2ba
27 PrelTup.(,,,){-64,p-}{i} tpl_s1Vt tpl_s1Vu tpl_s1Vv tpl_s1Vs ->
33 case ds_s1VJ ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
34 -- lvs: [ds_s1VJ]; rhs lvs: []; uniq: c2bb
35 STBase.S#{-5D,p-}{i} ds_s1Wa ->
37 _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1Wa] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
39 -- lvs: [ds_s1Wa]; rhs lvs: []; uniq: c2bc
40 STBase.StateAndInt#{-5v,p-}{i} ds_s1Wk ds_s1W9 ->
43 PrelBase.I#{-5b,p-}{i}! [ds_s1W9]; } in
46 STBase.S#{-5D,p-}{i}! [ds_s1Wk];
48 PrelTup.(,){-62,p-}{i}! [ds_s1WA ds_s1Wz];
53 case ds_s1WI ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
54 -- lvs: [ds_s1WI]; rhs lvs: []; uniq: c2bd
55 STBase.S#{-5D,p-}{i} ds_s1X9 ->
57 _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1X9] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
59 -- lvs: [ds_s1X9]; rhs lvs: []; uniq: c2be
60 STBase.StateAndInt#{-5v,p-}{i} ds_s1Xj ds_s1X8 ->
63 PrelBase.I#{-5b,p-}{i}! [ds_s1X8]; } in
66 STBase.S#{-5D,p-}{i}! [ds_s1Xj];
68 PrelTup.(,){-62,p-}{i}! [ds_s1XP ds_s1XO];
78 (False, True, False, False, True) [x_s1XY] \r [ds_s1XN]
80 ds_s1XN{-lvs:x_s1XY-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
82 -- lvs: [ds_s1XN x_s1XY]; rhs lvs: [x_s1XY]; uniq: c2bf
83 STBase.S#{-5D,p-}{i} ds_s1XZ ->
84 case x_s1XY{-lvs:ds_s1XZ-} ::PrelBase.Int{-3g,p-} of {
85 -- lvs: [x_s1XY ds_s1XZ]; rhs lvs: [ds_s1XZ]; uniq: c2bg
86 PrelBase.I#{-5b,p-}{i} ds_s1Yp ->
88 _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s1XZ ds_s1Yp] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
90 -- lvs: [ds_s1XZ ds_s1Yp]; rhs lvs: []; uniq: c2bh
91 STBase.StateAndInt#{-5v,p-}{i} ds_s1YA ds_s1Yq ->
94 PrelBase.I#{-5b,p-}{i}! [ds_s1Yq]; } in
97 STBase.S#{-5D,p-}{i}! [ds_s1YA];
99 PrelTup.(,){-62,p-}{i}! [ds_s1Za ds_s1Z9];
106 [] \r [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]
109 (False, True, False, False, True) [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN] \r [ds_s1Z8]
111 ds_s1Z8{-lvs:x1_s1Zj, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
113 -- lvs: [ds_s1Z8 x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]; rhs lvs: [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]; uniq: c2bi
114 STBase.S#{-5D,p-}{i} ds_s1Zk ->
116 x1_s1Zj{-lvs:ds_s1Zk, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::PrelBase.Int{-3g,p-}
118 -- lvs: [x1_s1Zj ds_s1Zk x2_s1Zt x3_s1ZD x4_s1ZN]; rhs lvs: [ds_s1Zk x2_s1Zt x3_s1ZD x4_s1ZN]; uniq: c2bj
119 PrelBase.I#{-5b,p-}{i} ds_s1Zu ->
121 x2_s1Zt{-lvs:ds_s1Zk, ds_s1Zu, x3_s1ZD, x4_s1ZN-} ::PrelBase.Char{-38,p-}
123 -- lvs: [ds_s1Zk x2_s1Zt ds_s1Zu x3_s1ZD x4_s1ZN]; rhs lvs: [ds_s1Zk ds_s1Zu x3_s1ZD x4_s1ZN]; uniq: c2bk
124 PrelBase.C#{-54,p-}{i} ds_s1ZE ->
126 x3_s1ZD{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, x4_s1ZN-} ::PrelBase.Float{-3c,p-}
128 -- lvs: [ds_s1Zk ds_s1Zu x3_s1ZD ds_s1ZE x4_s1ZN]; rhs lvs: [ds_s1Zk ds_s1Zu ds_s1ZE x4_s1ZN]; uniq: c2bl
129 PrelBase.F#{-59,p-}{i} ds_s1ZO ->
131 x4_s1ZN{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, ds_s1ZO-} ::PrelBase.Double{-3a,p-}
133 -- lvs: [ds_s1Zk ds_s1Zu ds_s1ZE x4_s1ZN ds_s1ZO]; rhs lvs: [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO]; uniq: c2bm
134 PrelBase.D#{-56,p-}{i} ds_s20e ->
136 _ccall_ c [(STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-} GHC.Char#{-37,p-} GHC.Float#{-3b,p-} GHC.Double#{-39,p-}]# [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO ds_s20e] ::STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}
138 -- lvs: [ds_s1Zk ds_s1Zu ds_s1ZE ds_s1ZO ds_s20e]; rhs lvs: []; uniq: c2bn
139 STBase.StateAndFloat#{-5u,p-}{i} ds_s20p ds_s20f ->
142 PrelBase.F#{-59,p-}{i}! [ds_s20f]; } in
145 STBase.S#{-5D,p-}{i}! [ds_s20p];
147 PrelTup.(,){-62,p-}{i}! [ds_s217 ds_s216];
161 let { s_s22a = [x_s21g] \r [ds_s215]
163 ds_s215{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
165 -- lvs: [ds_s215 x_s21g]; rhs lvs: [x_s21g]; uniq: c2bo
166 STBase.S#{-5D,p-}{i} ds_s21h ->
167 case x_s21g{-lvs:ds_s21h-} ::PrelBase.Int{-3g,p-} of {
168 -- lvs: [x_s21g ds_s21h]; rhs lvs: [ds_s21h]; uniq: c2bp
169 PrelBase.I#{-5b,p-}{i} ds_s21H ->
171 _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s21h ds_s21H] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
173 -- lvs: [ds_s21h ds_s21H]; rhs lvs: []; uniq: c2bq
174 STBase.StateAndInt#{-5v,p-}{i} ds_s21S ds_s21I ->
177 PrelBase.I#{-5b,p-}{i}! [ds_s21I]; } in
180 STBase.S#{-5D,p-}{i}! [ds_s21S];
182 PrelTup.(,){-62,p-}{i}! [ds_s22c ds_s22b];
186 let { s_s23h = [x_s21g] \r [ds_s22k]
188 ds_s22k{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
190 -- lvs: [x_s21g ds_s22k]; rhs lvs: [x_s21g]; uniq: c2br
191 STBase.S#{-5D,p-}{i} ds_s22t ->
192 case x_s21g{-lvs:ds_s22t-} ::PrelBase.Int{-3g,p-} of {
193 -- lvs: [x_s21g ds_s22t]; rhs lvs: [ds_s22t]; uniq: c2bs
194 PrelBase.I#{-5b,p-}{i} ds_s22T ->
196 _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]# [ds_s22t ds_s22T] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
198 -- lvs: [ds_s22t ds_s22T]; rhs lvs: []; uniq: c2bt
199 STBase.StateAndInt#{-5v,p-}{i} ds_s234 ds_s22U ->
202 PrelBase.I#{-5b,p-}{i}! [ds_s22U]; } in
205 STBase.S#{-5D,p-}{i}! [ds_s234];
207 PrelTup.(,){-62,p-}{i}! [ds_s23A ds_s23z];
216 (False, True, False, False, True) [y_s23K] \r [ds_s23y]
218 ds_s23y{-lvs:y_s23K-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
220 -- lvs: [ds_s23y y_s23K]; rhs lvs: [y_s23K]; uniq: c2bu
221 STBase.S#{-5D,p-}{i} ds_s23L ->
222 case y_s23K{-lvs:ds_s23L-} ::PrelBase.Int{-3g,p-} of {
223 -- lvs: [y_s23K ds_s23L]; rhs lvs: [ds_s23L]; uniq: c2bv
224 PrelBase.I#{-5b,p-}{i} ds_s23U ->
226 lit_a19w{-lvs:ds_s23L, ds_s23U-} ::PrelBase.Float{-3c,p-}
228 -- lvs: [ds_s23L ds_s23U]; rhs lvs: [ds_s23L ds_s23U]; uniq: c2bw
229 PrelBase.F#{-59,p-}{i} ds_s243 ->
231 lit_a19u{-lvs:ds_s23L, ds_s23U, ds_s243-} ::PrelBase.Double{-3a,p-}
233 -- lvs: [ds_s23L ds_s23U ds_s243]; rhs lvs: [ds_s23L ds_s23U ds_s243]; uniq: c2bx
234 PrelBase.D#{-56,p-}{i} ds_s24t ->
236 _ccall_ c [(STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-} GHC.Char#{-37,p-} GHC.Float#{-3b,p-} GHC.Double#{-39,p-}]# [ds_s23L ds_s23U 'f' ds_s243 ds_s24t] ::STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}
238 -- lvs: [ds_s23L ds_s23U ds_s243 ds_s24t]; rhs lvs: []; uniq: c2by
239 STBase.StateAndFloat#{-5u,p-}{i} ds_s24E ds_s24u ->
242 PrelBase.F#{-59,p-}{i}! [ds_s24u]; } in
245 STBase.S#{-5D,p-}{i}! [ds_s24E];
247 PrelTup.(,){-62,p-}{i}! [ds_s24U ds_s24T];
256 STBase.thenPrimIO{-r4w,p-}
259 STBase.thenPrimIO{-r4w,p-}
263 ================================================================================
265 ED_(PrelNum_integerZu2_closure);
266 ED_(PrelNum_integerZu1_closure);
267 SET_STATIC_HDR(s25b_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
268 , (W_)PrelNum_integerZu2_closure, (W_)PrelNum_integerZu1_closure
273 SpA[-1]=s25b_closure;
274 RetReg=StdUpdRetVecReg;
279 GRAN_EXEC(6,1,1,1,0);
280 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
283 UNVECTBL(static,vtbl_c2b9,ret_c2b9)
284 STATIC_ITBL(a19u_info,a19u_entry,StdErrorCode,1,-1,(STATIC_VHS+
285 2),0,static const,IF_,0,0,0);
287 ED_(PrelNum_Z36d14_closure);
289 STK_CHK(1,1,5,0,0,0,1);
290 HEAP_CHK(1,(BH_HS+2),1);
291 SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
292 UPD_CAF(R1.p,Hp-(BH_HS+1));
293 PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
294 RetReg=(StgRetAddr)UNVEC(ret_c2b9,vtbl_c2b9);
295 R1.p=PrelNum_Z36d14_closure;
298 GRAN_EXEC(19,2,2,8,0);
299 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
302 SET_STATIC_HDR(a19u_closure,a19u_info,0,static ,ID_RO_)
305 ED_(PrelNum_integerZu1_closure);
306 SET_STATIC_HDR(s25c_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
307 , (W_)PrelNum_integerZu1_closure, (W_)PrelNum_integerZu1_closure
312 SpA[-1]=s25c_closure;
313 RetReg=StdUpdRetVecReg;
318 GRAN_EXEC(6,1,1,1,0);
319 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
322 UNVECTBL(static,vtbl_c2ba,ret_c2ba)
323 STATIC_ITBL(a19w_info,a19w_entry,StdErrorCode,1,-1,(STATIC_VHS+
324 2),0,static const,IF_,0,0,0);
326 ED_(PrelNum_Z36d23_closure);
328 STK_CHK(1,1,5,0,0,0,1);
329 HEAP_CHK(1,(BH_HS+2),1);
330 SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
331 UPD_CAF(R1.p,Hp-(BH_HS+1));
332 PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
333 RetReg=(StgRetAddr)UNVEC(ret_c2ba,vtbl_c2ba);
334 R1.p=PrelNum_Z36d23_closure;
337 GRAN_EXEC(19,2,2,8,0);
338 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
341 SET_STATIC_HDR(a19w_closure,a19w_info,0,static ,ID_RO_)
345 ED_RO_(PrelBase_IZh_con_info);
346 ED_(STBase_SZh_static_closure);
347 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
350 HEAP_CHK(0,(_FHS+1),0);
361 _ccall_result = (a());
370 CALLER_RESTORE_StdUpdRetVec
371 CALLER_RESTORE_StkStub
374 SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
376 R4.p=STBase_SZh_static_closure;
379 R2.d=PrelTup_Z40Z44Z41_inregs_info;
380 GRAN_EXEC(10,2,21,22,0);
381 JMP_(DIRECT((StgRetAddr)(SpB[1])));
384 UNVECTBL(static,vtbl_c2bb,ret_c2bb)
385 STATIC_ITBL(s1MF_info,s1MF_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
390 ARGS_CHK_A_LOAD_NODE(1,s1MF_closure);
393 GRAN_EXEC(5,2,1,0,0);
399 STK_CHK(1,0,1,0,0,0,0);
401 RetReg=(StgRetAddr)UNVEC(ret_c2bb,vtbl_c2bb);
404 GRAN_EXEC(3,1,1,1,0);
405 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
408 SET_STATIC_HDR(s1MF_closure,s1MF_info,0,static ,ID_RO_)
411 ED_RO_(PrelBase_IZh_con_info);
412 ED_(STBase_SZh_static_closure);
413 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
416 HEAP_CHK(0,(_FHS+1),0);
427 _ccall_result = (a());
436 CALLER_RESTORE_StdUpdRetVec
437 CALLER_RESTORE_StkStub
440 SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
442 R4.p=STBase_SZh_static_closure;
445 R2.d=PrelTup_Z40Z44Z41_inregs_info;
446 GRAN_EXEC(10,2,21,22,0);
447 JMP_(DIRECT((StgRetAddr)(SpB[1])));
450 UNVECTBL(static,vtbl_c2bd,ret_c2bd)
451 STATIC_ITBL(s1Xu_info,s1Xu_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
456 ARGS_CHK_A_LOAD_NODE(1,s1Xu_closure);
459 GRAN_EXEC(5,2,1,0,0);
465 STK_CHK(1,0,1,0,0,0,0);
467 RetReg=(StgRetAddr)UNVEC(ret_c2bd,vtbl_c2bd);
470 GRAN_EXEC(3,1,1,1,0);
471 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
474 SET_STATIC_HDR(s1Xu_closure,s1Xu_info,0,static ,ID_RO_)
476 STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,(STATIC_VHS+
477 2),0,const,EF_,0,0,0);
481 STK_CHK(1,0,4,0,0,0,1);
482 HEAP_CHK(1,(BH_HS+2),1);
483 SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
484 UPD_CAF(R1.p,Hp-(BH_HS+1));
485 PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
486 RetReg=StdUpdRetVecReg;
488 GRAN_EXEC(16,2,1,8,0);
492 SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_)
496 ED_RO_(PrelBase_IZh_con_info);
497 ED_(STBase_SZh_static_closure);
498 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
501 HEAP_CHK(0,(_FHS+1),0);
513 _ccall_result = (b((_ccall_arg1)));
522 CALLER_RESTORE_StdUpdRetVec
523 CALLER_RESTORE_StkStub
526 SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
528 R4.p=STBase_SZh_static_closure;
531 R2.d=PrelTup_Z40Z44Z41_inregs_info;
532 GRAN_EXEC(10,2,22,22,0);
533 JMP_(DIRECT((StgRetAddr)(SpB[1])));
536 UNVECTBL(static,vtbl_c2bg,ret_c2bg)
539 RetReg=(StgRetAddr)UNVEC(ret_c2bg,vtbl_c2bg);
543 GRAN_EXEC(3,1,2,1,0);
544 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
547 UNVECTBL(static,vtbl_c2bf,ret_c2bf)
548 SPEC_N_ITBL(c2ac_info,c2ac_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
555 GRAN_EXEC(5,2,1,0,0);
561 STK_CHK(3,1,1,0,0,0,1);
563 RetReg=(StgRetAddr)UNVEC(ret_c2bf,vtbl_c2bf);
564 SpA[-1]=(P_)(R1.p[_FHS]);
569 GRAN_EXEC(5,1,2,2,0);
570 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
573 STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
578 ARGS_CHK_A_LOAD_NODE(1,Test_b_closure);
581 GRAN_EXEC(5,2,1,0,0);
589 HEAP_CHK(1,(_FHS+1),0);
590 SET_SPEC_HDR(Hp-_FHS,c2ac_info,0,1,1);
593 GRAN_EXEC(5,2,0,2,0);
597 SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_)
600 ED_RO_(PrelBase_FZh_con_info);
601 ED_(STBase_SZh_static_closure);
602 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
605 HEAP_CHK(0,(_FHS+1),0);
607 StgFloat _ccall_result;
608 I_ _ccall_arg1=(I_)(SpB[-2]);
609 StgChar _ccall_arg2=(StgChar)(SpB[-1]);
610 StgFloat _ccall_arg3=PK_FLT(SpB);
611 StgDouble _ccall_arg4=DblReg1;
620 _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
629 CALLER_RESTORE_StdUpdRetVec
630 CALLER_RESTORE_StkStub
633 SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
635 R4.p=STBase_SZh_static_closure;
638 R2.d=PrelTup_Z40Z44Z41_inregs_info;
639 GRAN_EXEC(10,2,25,22,0);
640 JMP_(DIRECT((StgRetAddr)(SpB[1])));
643 UNVECTBL(static,vtbl_c2bm,ret_c2bm)
646 RetReg=(StgRetAddr)UNVEC(ret_c2bm,vtbl_c2bm);
648 ASSIGN_FLT(SpB+1,FltReg1);
652 GRAN_EXEC(4,1,2,1,0);
653 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
656 UNVECTBL(static,vtbl_c2bl,ret_c2bl)
659 RetReg=(StgRetAddr)UNVEC(ret_c2bl,vtbl_c2bl);
665 GRAN_EXEC(3,1,2,2,0);
666 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
669 UNVECTBL(static,vtbl_c2bk,ret_c2bk)
672 RetReg=(StgRetAddr)UNVEC(ret_c2bk,vtbl_c2bk);
678 GRAN_EXEC(3,1,2,2,0);
679 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
682 UNVECTBL(static,vtbl_c2bj,ret_c2bj)
685 RetReg=(StgRetAddr)UNVEC(ret_c2bj,vtbl_c2bj);
689 GRAN_EXEC(2,1,2,2,0);
690 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
693 UNVECTBL(static,vtbl_c2bi,ret_c2bi)
694 SPEC_N_ITBL(c29C_info,c29C_entry,StdErrorCode,1,-1,4,4,static const,IF_,0,0,0);
701 GRAN_EXEC(5,2,1,0,0);
707 STK_CHK(3,4,4,0,0,0,1);
709 RetReg=(StgRetAddr)UNVEC(ret_c2bi,vtbl_c2bi);
710 SpA[-4]=(P_)(R1.p[(_FHS+3)]);
711 SpA[-3]=(P_)(R1.p[(_FHS+2)]);
712 SpA[-2]=(P_)(R1.p[(_FHS+1)]);
713 SpA[-1]=(P_)(R1.p[_FHS]);
718 GRAN_EXEC(5,1,5,5,0);
719 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
722 STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
727 ARGS_CHK_A_LOAD_NODE(4,Test_c_closure);
733 GRAN_EXEC(5,2,4,0,0);
741 HEAP_CHK(15,(_FHS+4),0);
742 SET_SPEC_HDR(Hp-(_FHS+3),c29C_info,0,4,4);
748 GRAN_EXEC(5,2,0,5,0);
752 SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_)
755 ED_RO_(PrelBase_IZh_con_info);
756 ED_(STBase_SZh_static_closure);
757 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
760 HEAP_CHK(0,(_FHS+1),0);
772 _ccall_result = (b((_ccall_arg1)));
781 CALLER_RESTORE_StdUpdRetVec
782 CALLER_RESTORE_StkStub
785 SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
787 R4.p=STBase_SZh_static_closure;
790 R2.d=PrelTup_Z40Z44Z41_inregs_info;
791 GRAN_EXEC(10,2,22,22,0);
792 JMP_(DIRECT((StgRetAddr)(SpB[1])));
795 UNVECTBL(static,vtbl_c2bp,ret_c2bp)
798 RetReg=(StgRetAddr)UNVEC(ret_c2bp,vtbl_c2bp);
802 GRAN_EXEC(3,1,2,1,0);
803 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
806 UNVECTBL(static,vtbl_c2bo,ret_c2bo)
807 SPEC_N_ITBL(s22a_info,s22a_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
814 GRAN_EXEC(5,2,1,0,0);
820 STK_CHK(3,1,1,0,0,0,1);
822 RetReg=(StgRetAddr)UNVEC(ret_c2bo,vtbl_c2bo);
823 SpA[-1]=(P_)(R1.p[_FHS]);
828 GRAN_EXEC(5,1,2,2,0);
829 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
833 ED_RO_(PrelBase_IZh_con_info);
834 ED_(STBase_SZh_static_closure);
835 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
838 HEAP_CHK(0,(_FHS+1),0);
850 _ccall_result = (b((_ccall_arg1)));
859 CALLER_RESTORE_StdUpdRetVec
860 CALLER_RESTORE_StkStub
863 SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
865 R4.p=STBase_SZh_static_closure;
868 R2.d=PrelTup_Z40Z44Z41_inregs_info;
869 GRAN_EXEC(10,2,22,22,0);
870 JMP_(DIRECT((StgRetAddr)(SpB[1])));
873 UNVECTBL(static,vtbl_c2bs,ret_c2bs)
876 RetReg=(StgRetAddr)UNVEC(ret_c2bs,vtbl_c2bs);
880 GRAN_EXEC(3,1,2,1,0);
881 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
884 UNVECTBL(static,vtbl_c2br,ret_c2br)
885 SPEC_N_ITBL(s23h_info,s23h_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
892 GRAN_EXEC(5,2,1,0,0);
898 STK_CHK(3,1,1,0,0,0,1);
900 RetReg=(StgRetAddr)UNVEC(ret_c2br,vtbl_c2br);
901 SpA[-1]=(P_)(R1.p[_FHS]);
906 GRAN_EXEC(5,1,2,2,0);
907 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
911 ED_RO_(PrelBase_FZh_con_info);
912 ED_(STBase_SZh_static_closure);
913 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
916 HEAP_CHK(0,(_FHS+1),0);
918 StgFloat _ccall_result;
919 I_ _ccall_arg1=(I_)(SpB[-1]);
920 StgChar _ccall_arg2=(C_)'f';
921 StgFloat _ccall_arg3=PK_FLT(SpB);
922 StgDouble _ccall_arg4=DblReg1;
931 _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
940 CALLER_RESTORE_StdUpdRetVec
941 CALLER_RESTORE_StkStub
944 SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
946 R4.p=STBase_SZh_static_closure;
949 R2.d=PrelTup_Z40Z44Z41_inregs_info;
950 GRAN_EXEC(11,2,24,22,0);
951 JMP_(DIRECT((StgRetAddr)(SpB[1])));
954 UNVECTBL(static,vtbl_c2bx,ret_c2bx)
958 RetReg=(StgRetAddr)UNVEC(ret_c2bx,vtbl_c2bx);
960 ASSIGN_FLT(SpB+1,FltReg1);
963 GRAN_EXEC(5,1,1,1,0);
964 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
967 UNVECTBL(static,vtbl_c2bw,ret_c2bw)
971 RetReg=(StgRetAddr)UNVEC(ret_c2bw,vtbl_c2bw);
976 GRAN_EXEC(5,1,1,1,0);
977 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
980 UNVECTBL(static,vtbl_c2bv,ret_c2bv)
983 RetReg=(StgRetAddr)UNVEC(ret_c2bv,vtbl_c2bv);
987 GRAN_EXEC(3,1,2,1,0);
988 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
991 UNVECTBL(static,vtbl_c2bu,ret_c2bu)
992 SPEC_N_ITBL(c28E_info,c28E_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
999 GRAN_EXEC(5,2,1,0,0);
1005 STK_CHK(3,1,3,0,0,0,1);
1006 SpB[1]=(W_)(RetReg);
1007 RetReg=(StgRetAddr)UNVEC(ret_c2bu,vtbl_c2bu);
1008 SpA[-1]=(P_)(R1.p[_FHS]);
1013 GRAN_EXEC(5,1,2,2,0);
1014 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1017 SPEC_N_ITBL(s24V_info,s24V_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
1024 GRAN_EXEC(5,2,1,0,0);
1032 HEAP_CHK(3,(_FHS+1),1);
1033 SET_SPEC_HDR(Hp-_FHS,c28E_info,0,1,1);
1036 GRAN_EXEC(5,2,0,2,0);
1040 SPEC_N_ITBL(s258_info,s258_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
1047 GRAN_EXEC(5,2,1,0,0);
1055 ED_(STBase_thenPrimIO_closure);
1057 STK_CHK(3,2,0,0,0,0,1);
1058 HEAP_CHK(3,((_FHS*3)+3),1);
1059 SET_SPEC_HDR(Hp-((_FHS*3)+2),s22a_info,0,1,1);
1060 Hp[-((_FHS*2)+2)]=(W_)(R2.p);
1061 SET_SPEC_HDR(Hp-((_FHS*2)+1),s23h_info,0,1,1);
1062 Hp[-(_FHS+1)]=(W_)(R2.p);
1063 SET_SPEC_HDR(Hp-_FHS,s24V_info,0,1,0);
1065 SpA[-2]=Hp-((_FHS*2)+1);
1066 R1.p=STBase_thenPrimIO_closure;
1069 GRAN_EXEC(11,2,3,7,0);
1070 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1073 STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+
1074 2),0,const,EF_,0,0,0);
1078 ED_(STBase_thenPrimIO_closure);
1080 STK_CHK(1,2,4,0,0,0,1);
1081 HEAP_CHK(1,(BH_HS+_FHS+3),1);
1082 SET_BH_HDR(Hp-(BH_HS+_FHS+2),BH_UPD_info,0,(BH_VHS+2),0);
1083 UPD_CAF(R1.p,Hp-(BH_HS+_FHS+2));
1084 PUSH_STD_UPD_FRAME(Hp-(BH_HS+_FHS+2),0,0);
1085 SET_SPEC_HDR(Hp-_FHS,s258_info,0,1,0);
1087 SpA[-2]=s1Xu_closure;
1088 RetReg=StdUpdRetVecReg;
1089 R1.p=STBase_thenPrimIO_closure;
1093 GRAN_EXEC(23,2,3,11,0);
1094 JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1097 SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_)
1100 ghc: module version changed to 1; reason: no old .hi file