ghc/compiler/tests/ccall/cc005.stderr

   1
   2 NOTE: Simplifier still going after 4 iterations; bailing out.
   3
   4
   5 ================================================================================
   6 STG syntax:
   7 nrlit_s25b =
   8      PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,p-} PrelNum.integer_1{-8d,p-}];
   9 lit_a19u =
  10     (False, True, False, False, True) [] \u []
  11         case
  12             PrelNum.$d14{-rtM,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,p-}}
  13         of {
  14             -- lvs: []; rhs lvs: []; uniq: c2b9
  15           PrelTup.(,,,){-64,p-}{i} tpl_s1V1 tpl_s1V2 tpl_s1V3 tpl_s1V0 ->
  16               tpl_s1V0
  17                   nrlit_s25b;
  18         };
  19 nrlit_s25c =
  20      PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,p-} PrelNum.integer_1{-8d,p-}];
  21 lit_a19w =
  22     (False, True, False, False, True) [] \u []
  23         case
  24             PrelNum.$d23{-rtW,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
  25         of {
  26             -- lvs: []; rhs lvs: []; uniq: c2ba
  27           PrelTup.(,,,){-64,p-}{i} tpl_s1Vt tpl_s1Vu tpl_s1Vv tpl_s1Vs ->
  28               tpl_s1Vs
  29                   nrlit_s25c;
  30         };
  31 s_s1MF =
  32      [] \r [ds_s1VJ]
  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 ->
  36               case
  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-}
  38               of {
  39                   -- lvs: [ds_s1Wa]; rhs lvs: []; uniq: c2bc
  40                 STBase.StateAndInt#{-5v,p-}{i} ds_s1Wk ds_s1W9 ->
  41                     let {
  42                       ds_s1WA =
  43                            PrelBase.I#{-5b,p-}{i}! [ds_s1W9]; } in
  44                     let {
  45                       ds_s1Wz =
  46                            STBase.S#{-5D,p-}{i}! [ds_s1Wk];
  47                     } in
  48                       PrelTup.(,){-62,p-}{i}! [ds_s1WA ds_s1Wz];
  49               };
  50         };
  51 s_s1Xu =
  52      [] \r [ds_s1WI]
  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 ->
  56               case
  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-}
  58               of {
  59                   -- lvs: [ds_s1X9]; rhs lvs: []; uniq: c2be
  60                 STBase.StateAndInt#{-5v,p-}{i} ds_s1Xj ds_s1X8 ->
  61                     let {
  62                       ds_s1XP =
  63                            PrelBase.I#{-5b,p-}{i}! [ds_s1X8]; } in
  64                     let {
  65                       ds_s1XO =
  66                            STBase.S#{-5D,p-}{i}! [ds_s1Xj];
  67                     } in
  68                       PrelTup.(,){-62,p-}{i}! [ds_s1XP ds_s1XO];
  69               };
  70         };
  71 a{-r1,x-} =
  72      [] \u []
  73         s_s1Xu;
  74 b{-r3,x-} =
  75      [] \r [x_s1XY]
  76         let {
  77           stg_c2ac =
  78               (False, True, False, False, True) [x_s1XY] \r [ds_s1XN]
  79                   case
  80                       ds_s1XN{-lvs:x_s1XY-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
  81                   of {
  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 ->
  87                               case
  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-}
  89                               of {
  90                                   -- lvs: [ds_s1XZ ds_s1Yp]; rhs lvs: []; uniq: c2bh
  91                                 STBase.StateAndInt#{-5v,p-}{i} ds_s1YA ds_s1Yq ->
  92                                     let {
  93                                       ds_s1Za =
  94                                            PrelBase.I#{-5b,p-}{i}! [ds_s1Yq]; } in
  95                                     let {
  96                                       ds_s1Z9 =
  97                                            STBase.S#{-5D,p-}{i}! [ds_s1YA];
  98                                     } in
  99                                       PrelTup.(,){-62,p-}{i}! [ds_s1Za ds_s1Z9];
 100                               };
 101                         };
 102                   };
 103         } in
 104           stg_c2ac;
 105 c{-r5,x-} =
 106      [] \r [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN]
 107         let {
 108           stg_c29C =
 109               (False, True, False, False, True) [x1_s1Zj x2_s1Zt x3_s1ZD x4_s1ZN] \r [ds_s1Z8]
 110                   case
 111                       ds_s1Z8{-lvs:x1_s1Zj, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
 112                   of {
 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 ->
 115                         case
 116                             x1_s1Zj{-lvs:ds_s1Zk, x2_s1Zt, x3_s1ZD, x4_s1ZN-} ::PrelBase.Int{-3g,p-}
 117                         of {
 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 ->
 120                               case
 121                                   x2_s1Zt{-lvs:ds_s1Zk, ds_s1Zu, x3_s1ZD, x4_s1ZN-} ::PrelBase.Char{-38,p-}
 122                               of {
 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 ->
 125                                     case
 126                                         x3_s1ZD{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, x4_s1ZN-} ::PrelBase.Float{-3c,p-}
 127                                     of {
 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 ->
 130                                           case
 131                                               x4_s1ZN{-lvs:ds_s1Zk, ds_s1Zu, ds_s1ZE, ds_s1ZO-} ::PrelBase.Double{-3a,p-}
 132                                           of {
 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 ->
 135                                                 case
 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-}
 137                                                 of {
 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 ->
 140                                                       let {
 141                                                         ds_s217 =
 142                                                              PrelBase.F#{-59,p-}{i}! [ds_s20f]; } in
 143                                                       let {
 144                                                         ds_s216 =
 145                                                              STBase.S#{-5D,p-}{i}! [ds_s20p];
 146                                                       } in
 147                                                         PrelTup.(,){-62,p-}{i}! [ds_s217 ds_s216];
 148                                                 };
 149                                           };
 150                                     };
 151                               };
 152                         };
 153                   };
 154         } in
 155           stg_c29C;
 156 d{-r7,x-} =
 157      [] \u []
 158         let {
 159           ds_s258 =
 160                [] \r [x_s21g]
 161                   let { s_s22a =  [x_s21g] \r [ds_s215]
 162                           case
 163                               ds_s215{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
 164                           of {
 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 ->
 170                                       case
 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-}
 172                                       of {
 173                                           -- lvs: [ds_s21h ds_s21H]; rhs lvs: []; uniq: c2bq
 174                                         STBase.StateAndInt#{-5v,p-}{i} ds_s21S ds_s21I ->
 175                                             let {
 176                                               ds_s22c =
 177                                                    PrelBase.I#{-5b,p-}{i}! [ds_s21I]; } in
 178                                             let {
 179                                               ds_s22b =
 180                                                    STBase.S#{-5D,p-}{i}! [ds_s21S];
 181                                             } in
 182                                               PrelTup.(,){-62,p-}{i}! [ds_s22c ds_s22b];
 183                                       };
 184                                 };
 185                           } } in
 186                   let { s_s23h =  [x_s21g] \r [ds_s22k]
 187                           case
 188                               ds_s22k{-lvs:x_s21g-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
 189                           of {
 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 ->
 195                                       case
 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-}
 197                                       of {
 198                                           -- lvs: [ds_s22t ds_s22T]; rhs lvs: []; uniq: c2bt
 199                                         STBase.StateAndInt#{-5v,p-}{i} ds_s234 ds_s22U ->
 200                                             let {
 201                                               ds_s23A =
 202                                                    PrelBase.I#{-5b,p-}{i}! [ds_s22U]; } in
 203                                             let {
 204                                               ds_s23z =
 205                                                    STBase.S#{-5D,p-}{i}! [ds_s234];
 206                                             } in
 207                                               PrelTup.(,){-62,p-}{i}! [ds_s23A ds_s23z];
 208                                       };
 209                                 };
 210                           } } in
 211                   let {
 212                     ds_s24V =
 213                          [] \r [y_s23K]
 214                             let {
 215                               stg_c28E =
 216                                   (False, True, False, False, True) [y_s23K] \r [ds_s23y]
 217                                       case
 218                                           ds_s23y{-lvs:y_s23K-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
 219                                       of {
 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 ->
 225                                                   case
 226                                                       lit_a19w{-lvs:ds_s23L, ds_s23U-} ::PrelBase.Float{-3c,p-}
 227                                                   of {
 228                                                       -- lvs: [ds_s23L ds_s23U]; rhs lvs: [ds_s23L ds_s23U]; uniq: c2bw
 229                                                     PrelBase.F#{-59,p-}{i} ds_s243 ->
 230                                                         case
 231                                                             lit_a19u{-lvs:ds_s23L, ds_s23U, ds_s243-} ::PrelBase.Double{-3a,p-}
 232                                                         of {
 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 ->
 235                                                               case
 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-}
 237                                                               of {
 238                                                                   -- lvs: [ds_s23L ds_s23U ds_s243 ds_s24t]; rhs lvs: []; uniq: c2by
 239                                                                 STBase.StateAndFloat#{-5u,p-}{i} ds_s24E ds_s24u ->
 240                                                                     let {
 241                                                                       ds_s24U =
 242                                                                            PrelBase.F#{-59,p-}{i}! [ds_s24u]; } in
 243                                                                     let {
 244                                                                       ds_s24T =
 245                                                                            STBase.S#{-5D,p-}{i}! [ds_s24E];
 246                                                                     } in
 247                                                                       PrelTup.(,){-62,p-}{i}! [ds_s24U ds_s24T];
 248                                                               };
 249                                                         };
 250                                                   };
 251                                             };
 252                                       };
 253                             } in
 254                               stg_c28E;
 255                   } in
 256                     STBase.thenPrimIO{-r4w,p-}
 257                         s_s23h ds_s24V;
 258         } in
 259           STBase.thenPrimIO{-r4w,p-}
 260               s_s1Xu ds_s258;
 261
 262
 263 ================================================================================
 264 Flat Abstract C:
 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
 269 };
 270 IFN_(ret_c2b9) {
 271 ID_(s25b_closure);
 272         FB_
 273         SpA[-1]=s25b_closure;
 274         RetReg=StdUpdRetVecReg;
 275         R1=R6;
 276         SpA=SpA-1;
 277         SpB=SpB-1;
 278         ENT_VIA_NODE();
 279         GRAN_EXEC(6,1,1,1,0);
 280         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 281         FE_
 282 }
 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);
 286 IFN_(a19u_entry) {
 287 ED_(PrelNum_Z36d14_closure);
 288         FB_
 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;
 296         SpB=SpB+5;
 297         ENT_VIA_NODE();
 298         GRAN_EXEC(19,2,2,8,0);
 299         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 300         FE_
 301 }
 302 SET_STATIC_HDR(a19u_closure,a19u_info,0,static ,ID_RO_)
 303   , (W_)0, (W_)0
 304 };
 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
 308 };
 309 IFN_(ret_c2ba) {
 310 ID_(s25c_closure);
 311         FB_
 312         SpA[-1]=s25c_closure;
 313         RetReg=StdUpdRetVecReg;
 314         R1=R6;
 315         SpA=SpA-1;
 316         SpB=SpB-1;
 317         ENT_VIA_NODE();
 318         GRAN_EXEC(6,1,1,1,0);
 319         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 320         FE_
 321 }
 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);
 325 IFN_(a19w_entry) {
 326 ED_(PrelNum_Z36d23_closure);
 327         FB_
 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;
 335         SpB=SpB+5;
 336         ENT_VIA_NODE();
 337         GRAN_EXEC(19,2,2,8,0);
 338         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 339         FE_
 340 }
 341 SET_STATIC_HDR(a19w_closure,a19w_info,0,static ,ID_RO_)
 342   , (W_)0, (W_)0
 343 };
 344 IFN_(ret_c2bb) {
 345 ED_RO_(PrelBase_IZh_con_info);
 346 ED_(STBase_SZh_static_closure);
 347 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 348 I_ s1W9;
 349         FB_
 350         HEAP_CHK(0,(_FHS+1),0);
 351         {
 352         I_ _ccall_result;
 353         CALLER_SAVE_Base
 354         CALLER_SAVE_SpA
 355         CALLER_SAVE_SuA
 356         CALLER_SAVE_SpB
 357         CALLER_SAVE_SuB
 358         CALLER_SAVE_Ret
 359         CALLER_SAVE_Hp
 360         CALLER_SAVE_HpLim
 361         _ccall_result = (a());
 362         CALLER_RESTORE_Base
 363         CALLER_RESTORE_SpA
 364         CALLER_RESTORE_SuA
 365         CALLER_RESTORE_SpB
 366         CALLER_RESTORE_SuB
 367         CALLER_RESTORE_Ret
 368         CALLER_RESTORE_Hp
 369         CALLER_RESTORE_HpLim
 370         CALLER_RESTORE_StdUpdRetVec
 371         CALLER_RESTORE_StkStub
 372         s1W9=_ccall_result;
 373         }
 374         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 375         *Hp=(W_)(s1W9);
 376         R4.p=STBase_SZh_static_closure;
 377         R3.p=Hp-_FHS;
 378         SpB=SpB-1;
 379         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 380         GRAN_EXEC(10,2,21,22,0);
 381         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 382         FE_
 383 }
 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);
 386 IFN_(s1MF_entry) {
 387 ID_(s1MF_closure);
 388 IF_(s1MF_fast1);
 389         FB_
 390         ARGS_CHK_A_LOAD_NODE(1,s1MF_closure);
 391         R1.p=*SpA;
 392         SpA=SpA+1;
 393         GRAN_EXEC(5,2,1,0,0);
 394         JMP_(s1MF_fast1);
 395         FE_
 396 }
 397 IFN_(s1MF_fast1) {
 398         FB_
 399         STK_CHK(1,0,1,0,0,0,0);
 400         SpB[1]=(W_)(RetReg);
 401         RetReg=(StgRetAddr)UNVEC(ret_c2bb,vtbl_c2bb);
 402         SpB=SpB+1;
 403         ENT_VIA_NODE();
 404         GRAN_EXEC(3,1,1,1,0);
 405         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 406         FE_
 407 }
 408 SET_STATIC_HDR(s1MF_closure,s1MF_info,0,static ,ID_RO_)
 409 };
 410 IFN_(ret_c2bd) {
 411 ED_RO_(PrelBase_IZh_con_info);
 412 ED_(STBase_SZh_static_closure);
 413 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 414 I_ s1X8;
 415         FB_
 416         HEAP_CHK(0,(_FHS+1),0);
 417         {
 418         I_ _ccall_result;
 419         CALLER_SAVE_Base
 420         CALLER_SAVE_SpA
 421         CALLER_SAVE_SuA
 422         CALLER_SAVE_SpB
 423         CALLER_SAVE_SuB
 424         CALLER_SAVE_Ret
 425         CALLER_SAVE_Hp
 426         CALLER_SAVE_HpLim
 427         _ccall_result = (a());
 428         CALLER_RESTORE_Base
 429         CALLER_RESTORE_SpA
 430         CALLER_RESTORE_SuA
 431         CALLER_RESTORE_SpB
 432         CALLER_RESTORE_SuB
 433         CALLER_RESTORE_Ret
 434         CALLER_RESTORE_Hp
 435         CALLER_RESTORE_HpLim
 436         CALLER_RESTORE_StdUpdRetVec
 437         CALLER_RESTORE_StkStub
 438         s1X8=_ccall_result;
 439         }
 440         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 441         *Hp=(W_)(s1X8);
 442         R4.p=STBase_SZh_static_closure;
 443         R3.p=Hp-_FHS;
 444         SpB=SpB-1;
 445         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 446         GRAN_EXEC(10,2,21,22,0);
 447         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 448         FE_
 449 }
 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);
 452 IFN_(s1Xu_entry) {
 453 ID_(s1Xu_closure);
 454 IF_(s1Xu_fast1);
 455         FB_
 456         ARGS_CHK_A_LOAD_NODE(1,s1Xu_closure);
 457         R1.p=*SpA;
 458         SpA=SpA+1;
 459         GRAN_EXEC(5,2,1,0,0);
 460         JMP_(s1Xu_fast1);
 461         FE_
 462 }
 463 IFN_(s1Xu_fast1) {
 464         FB_
 465         STK_CHK(1,0,1,0,0,0,0);
 466         SpB[1]=(W_)(RetReg);
 467         RetReg=(StgRetAddr)UNVEC(ret_c2bd,vtbl_c2bd);
 468         SpB=SpB+1;
 469         ENT_VIA_NODE();
 470         GRAN_EXEC(3,1,1,1,0);
 471         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 472         FE_
 473 }
 474 SET_STATIC_HDR(s1Xu_closure,s1Xu_info,0,static ,ID_RO_)
 475 };
 476 STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,(STATIC_VHS+
 477                                                         2),0,const,EF_,0,0,0);
 478 FN_(Test_a_entry) {
 479 IF_(s1Xu_entry);
 480         FB_
 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;
 487         SpB=SpB+4;
 488         GRAN_EXEC(16,2,1,8,0);
 489         JMP_(s1Xu_entry);
 490         FE_
 491 }
 492 SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_)
 493   , (W_)0, (W_)0
 494 };
 495 IFN_(ret_c2bg) {
 496 ED_RO_(PrelBase_IZh_con_info);
 497 ED_(STBase_SZh_static_closure);
 498 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 499 I_ s1Yq;
 500         FB_
 501         HEAP_CHK(0,(_FHS+1),0);
 502         {
 503         I_ _ccall_result;
 504         I_ _ccall_arg1=R3.i;
 505         CALLER_SAVE_Base
 506         CALLER_SAVE_SpA
 507         CALLER_SAVE_SuA
 508         CALLER_SAVE_SpB
 509         CALLER_SAVE_SuB
 510         CALLER_SAVE_Ret
 511         CALLER_SAVE_Hp
 512         CALLER_SAVE_HpLim
 513         _ccall_result = (b((_ccall_arg1)));
 514         CALLER_RESTORE_Base
 515         CALLER_RESTORE_SpA
 516         CALLER_RESTORE_SuA
 517         CALLER_RESTORE_SpB
 518         CALLER_RESTORE_SuB
 519         CALLER_RESTORE_Ret
 520         CALLER_RESTORE_Hp
 521         CALLER_RESTORE_HpLim
 522         CALLER_RESTORE_StdUpdRetVec
 523         CALLER_RESTORE_StkStub
 524         s1Yq=_ccall_result;
 525         }
 526         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 527         *Hp=(W_)(s1Yq);
 528         R4.p=STBase_SZh_static_closure;
 529         R3.p=Hp-_FHS;
 530         SpB=SpB-1;
 531         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 532         GRAN_EXEC(10,2,22,22,0);
 533         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 534         FE_
 535 }
 536 UNVECTBL(static,vtbl_c2bg,ret_c2bg)
 537 IFN_(ret_c2bf) {
 538         FB_
 539         RetReg=(StgRetAddr)UNVEC(ret_c2bg,vtbl_c2bg);
 540         R1.p=*SpA;
 541         SpA=SpA+1;
 542         ENT_VIA_NODE();
 543         GRAN_EXEC(3,1,2,1,0);
 544         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 545         FE_
 546 }
 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);
 549 IFN_(c2ac_entry) {
 550 IF_(c2ac_fast1);
 551         FB_
 552         ARGS_CHK_A(1);
 553         R2.p=*SpA;
 554         SpA=SpA+1;
 555         GRAN_EXEC(5,2,1,0,0);
 556         JMP_(c2ac_fast1);
 557         FE_
 558 }
 559 IFN_(c2ac_fast1) {
 560         FB_
 561         STK_CHK(3,1,1,0,0,0,1);
 562         SpB[1]=(W_)(RetReg);
 563         RetReg=(StgRetAddr)UNVEC(ret_c2bf,vtbl_c2bf);
 564         SpA[-1]=(P_)(R1.p[_FHS]);
 565         R1=R2;
 566         SpA=SpA-1;
 567         SpB=SpB+1;
 568         ENT_VIA_NODE();
 569         GRAN_EXEC(5,1,2,2,0);
 570         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 571         FE_
 572 }
 573 STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 574 FN_(Test_b_entry) {
 575 ED_(Test_b_closure);
 576 EF_(Test_b_fast1);
 577         FB_
 578         ARGS_CHK_A_LOAD_NODE(1,Test_b_closure);
 579         R1.p=*SpA;
 580         SpA=SpA+1;
 581         GRAN_EXEC(5,2,1,0,0);
 582         JMP_(Test_b_fast1);
 583         FE_
 584 }
 585 FN_(Test_b_fast1) {
 586 ID_RO_(c2ac_info);
 587 IF_(c2ac_entry);
 588         FB_
 589         HEAP_CHK(1,(_FHS+1),0);
 590         SET_SPEC_HDR(Hp-_FHS,c2ac_info,0,1,1);
 591         *Hp=(W_)(R1.p);
 592         R1.p=Hp-_FHS;
 593         GRAN_EXEC(5,2,0,2,0);
 594         JMP_(c2ac_entry);
 595         FE_
 596 }
 597 SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_)
 598 };
 599 IFN_(ret_c2bm) {
 600 ED_RO_(PrelBase_FZh_con_info);
 601 ED_(STBase_SZh_static_closure);
 602 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 603 StgFloat s20f;
 604         FB_
 605         HEAP_CHK(0,(_FHS+1),0);
 606         {
 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;
 612         CALLER_SAVE_Base
 613         CALLER_SAVE_SpA
 614         CALLER_SAVE_SuA
 615         CALLER_SAVE_SpB
 616         CALLER_SAVE_SuB
 617         CALLER_SAVE_Ret
 618         CALLER_SAVE_Hp
 619         CALLER_SAVE_HpLim
 620         _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
 621         CALLER_RESTORE_Base
 622         CALLER_RESTORE_SpA
 623         CALLER_RESTORE_SuA
 624         CALLER_RESTORE_SpB
 625         CALLER_RESTORE_SuB
 626         CALLER_RESTORE_Ret
 627         CALLER_RESTORE_Hp
 628         CALLER_RESTORE_HpLim
 629         CALLER_RESTORE_StdUpdRetVec
 630         CALLER_RESTORE_StkStub
 631         s20f=_ccall_result;
 632         }
 633         SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
 634         ASSIGN_FLT(Hp,s20f);
 635         R4.p=STBase_SZh_static_closure;
 636         R3.p=Hp-_FHS;
 637         SpB=SpB-4;
 638         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 639         GRAN_EXEC(10,2,25,22,0);
 640         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 641         FE_
 642 }
 643 UNVECTBL(static,vtbl_c2bm,ret_c2bm)
 644 IFN_(ret_c2bl) {
 645         FB_
 646         RetReg=(StgRetAddr)UNVEC(ret_c2bm,vtbl_c2bm);
 647         R1.p=*SpA;
 648         ASSIGN_FLT(SpB+1,FltReg1);
 649         SpA=SpA+4;
 650         SpB=SpB+1;
 651         ENT_VIA_NODE();
 652         GRAN_EXEC(4,1,2,1,0);
 653         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 654         FE_
 655 }
 656 UNVECTBL(static,vtbl_c2bl,ret_c2bl)
 657 IFN_(ret_c2bk) {
 658         FB_
 659         RetReg=(StgRetAddr)UNVEC(ret_c2bl,vtbl_c2bl);
 660         R1.p=SpA[1];
 661         SpB[1]=(W_)(R3.c);
 662         SpA[1]=StkStubReg;
 663         SpB=SpB+1;
 664         ENT_VIA_NODE();
 665         GRAN_EXEC(3,1,2,2,0);
 666         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 667         FE_
 668 }
 669 UNVECTBL(static,vtbl_c2bk,ret_c2bk)
 670 IFN_(ret_c2bj) {
 671         FB_
 672         RetReg=(StgRetAddr)UNVEC(ret_c2bk,vtbl_c2bk);
 673         R1.p=SpA[2];
 674         SpB[1]=(W_)(R3.i);
 675         SpA[2]=StkStubReg;
 676         SpB=SpB+1;
 677         ENT_VIA_NODE();
 678         GRAN_EXEC(3,1,2,2,0);
 679         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 680         FE_
 681 }
 682 UNVECTBL(static,vtbl_c2bj,ret_c2bj)
 683 IFN_(ret_c2bi) {
 684         FB_
 685         RetReg=(StgRetAddr)UNVEC(ret_c2bj,vtbl_c2bj);
 686         R1.p=SpA[3];
 687         SpA[3]=StkStubReg;
 688         ENT_VIA_NODE();
 689         GRAN_EXEC(2,1,2,2,0);
 690         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 691         FE_
 692 }
 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);
 695 IFN_(c29C_entry) {
 696 IF_(c29C_fast1);
 697         FB_
 698         ARGS_CHK_A(1);
 699         R2.p=*SpA;
 700         SpA=SpA+1;
 701         GRAN_EXEC(5,2,1,0,0);
 702         JMP_(c29C_fast1);
 703         FE_
 704 }
 705 IFN_(c29C_fast1) {
 706         FB_
 707         STK_CHK(3,4,4,0,0,0,1);
 708         SpB[1]=(W_)(RetReg);
 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]);
 714         R1=R2;
 715         SpA=SpA-4;
 716         SpB=SpB+1;
 717         ENT_VIA_NODE();
 718         GRAN_EXEC(5,1,5,5,0);
 719         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 720         FE_
 721 }
 722 STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 723 FN_(Test_c_entry) {
 724 ED_(Test_c_closure);
 725 EF_(Test_c_fast4);
 726         FB_
 727         ARGS_CHK_A_LOAD_NODE(4,Test_c_closure);
 728         R1.p=*SpA;
 729         R2.p=SpA[1];
 730         R3.p=SpA[2];
 731         R4.p=SpA[3];
 732         SpA=SpA+4;
 733         GRAN_EXEC(5,2,4,0,0);
 734         JMP_(Test_c_fast4);
 735         FE_
 736 }
 737 FN_(Test_c_fast4) {
 738 ID_RO_(c29C_info);
 739 IF_(c29C_entry);
 740         FB_
 741         HEAP_CHK(15,(_FHS+4),0);
 742         SET_SPEC_HDR(Hp-(_FHS+3),c29C_info,0,4,4);
 743         Hp[-3]=(W_)(R1.p);
 744         Hp[-2]=(W_)(R2.p);
 745         Hp[-1]=(W_)(R3.p);
 746         *Hp=(W_)(R4.p);
 747         R1.p=Hp-(_FHS+3);
 748         GRAN_EXEC(5,2,0,5,0);
 749         JMP_(c29C_entry);
 750         FE_
 751 }
 752 SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_)
 753 };
 754 IFN_(ret_c2bp) {
 755 ED_RO_(PrelBase_IZh_con_info);
 756 ED_(STBase_SZh_static_closure);
 757 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 758 I_ s21I;
 759         FB_
 760         HEAP_CHK(0,(_FHS+1),0);
 761         {
 762         I_ _ccall_result;
 763         I_ _ccall_arg1=R3.i;
 764         CALLER_SAVE_Base
 765         CALLER_SAVE_SpA
 766         CALLER_SAVE_SuA
 767         CALLER_SAVE_SpB
 768         CALLER_SAVE_SuB
 769         CALLER_SAVE_Ret
 770         CALLER_SAVE_Hp
 771         CALLER_SAVE_HpLim
 772         _ccall_result = (b((_ccall_arg1)));
 773         CALLER_RESTORE_Base
 774         CALLER_RESTORE_SpA
 775         CALLER_RESTORE_SuA
 776         CALLER_RESTORE_SpB
 777         CALLER_RESTORE_SuB
 778         CALLER_RESTORE_Ret
 779         CALLER_RESTORE_Hp
 780         CALLER_RESTORE_HpLim
 781         CALLER_RESTORE_StdUpdRetVec
 782         CALLER_RESTORE_StkStub
 783         s21I=_ccall_result;
 784         }
 785         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 786         *Hp=(W_)(s21I);
 787         R4.p=STBase_SZh_static_closure;
 788         R3.p=Hp-_FHS;
 789         SpB=SpB-1;
 790         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 791         GRAN_EXEC(10,2,22,22,0);
 792         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 793         FE_
 794 }
 795 UNVECTBL(static,vtbl_c2bp,ret_c2bp)
 796 IFN_(ret_c2bo) {
 797         FB_
 798         RetReg=(StgRetAddr)UNVEC(ret_c2bp,vtbl_c2bp);
 799         R1.p=*SpA;
 800         SpA=SpA+1;
 801         ENT_VIA_NODE();
 802         GRAN_EXEC(3,1,2,1,0);
 803         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 804         FE_
 805 }
 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);
 808 IFN_(s22a_entry) {
 809 IF_(s22a_fast1);
 810         FB_
 811         ARGS_CHK_A(1);
 812         R2.p=*SpA;
 813         SpA=SpA+1;
 814         GRAN_EXEC(5,2,1,0,0);
 815         JMP_(s22a_fast1);
 816         FE_
 817 }
 818 IFN_(s22a_fast1) {
 819         FB_
 820         STK_CHK(3,1,1,0,0,0,1);
 821         SpB[1]=(W_)(RetReg);
 822         RetReg=(StgRetAddr)UNVEC(ret_c2bo,vtbl_c2bo);
 823         SpA[-1]=(P_)(R1.p[_FHS]);
 824         R1=R2;
 825         SpA=SpA-1;
 826         SpB=SpB+1;
 827         ENT_VIA_NODE();
 828         GRAN_EXEC(5,1,2,2,0);
 829         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 830         FE_
 831 }
 832 IFN_(ret_c2bs) {
 833 ED_RO_(PrelBase_IZh_con_info);
 834 ED_(STBase_SZh_static_closure);
 835 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 836 I_ s22U;
 837         FB_
 838         HEAP_CHK(0,(_FHS+1),0);
 839         {
 840         I_ _ccall_result;
 841         I_ _ccall_arg1=R3.i;
 842         CALLER_SAVE_Base
 843         CALLER_SAVE_SpA
 844         CALLER_SAVE_SuA
 845         CALLER_SAVE_SpB
 846         CALLER_SAVE_SuB
 847         CALLER_SAVE_Ret
 848         CALLER_SAVE_Hp
 849         CALLER_SAVE_HpLim
 850         _ccall_result = (b((_ccall_arg1)));
 851         CALLER_RESTORE_Base
 852         CALLER_RESTORE_SpA
 853         CALLER_RESTORE_SuA
 854         CALLER_RESTORE_SpB
 855         CALLER_RESTORE_SuB
 856         CALLER_RESTORE_Ret
 857         CALLER_RESTORE_Hp
 858         CALLER_RESTORE_HpLim
 859         CALLER_RESTORE_StdUpdRetVec
 860         CALLER_RESTORE_StkStub
 861         s22U=_ccall_result;
 862         }
 863         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 864         *Hp=(W_)(s22U);
 865         R4.p=STBase_SZh_static_closure;
 866         R3.p=Hp-_FHS;
 867         SpB=SpB-1;
 868         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 869         GRAN_EXEC(10,2,22,22,0);
 870         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 871         FE_
 872 }
 873 UNVECTBL(static,vtbl_c2bs,ret_c2bs)
 874 IFN_(ret_c2br) {
 875         FB_
 876         RetReg=(StgRetAddr)UNVEC(ret_c2bs,vtbl_c2bs);
 877         R1.p=*SpA;
 878         SpA=SpA+1;
 879         ENT_VIA_NODE();
 880         GRAN_EXEC(3,1,2,1,0);
 881         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 882         FE_
 883 }
 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);
 886 IFN_(s23h_entry) {
 887 IF_(s23h_fast1);
 888         FB_
 889         ARGS_CHK_A(1);
 890         R2.p=*SpA;
 891         SpA=SpA+1;
 892         GRAN_EXEC(5,2,1,0,0);
 893         JMP_(s23h_fast1);
 894         FE_
 895 }
 896 IFN_(s23h_fast1) {
 897         FB_
 898         STK_CHK(3,1,1,0,0,0,1);
 899         SpB[1]=(W_)(RetReg);
 900         RetReg=(StgRetAddr)UNVEC(ret_c2br,vtbl_c2br);
 901         SpA[-1]=(P_)(R1.p[_FHS]);
 902         R1=R2;
 903         SpA=SpA-1;
 904         SpB=SpB+1;
 905         ENT_VIA_NODE();
 906         GRAN_EXEC(5,1,2,2,0);
 907         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 908         FE_
 909 }
 910 IFN_(ret_c2bx) {
 911 ED_RO_(PrelBase_FZh_con_info);
 912 ED_(STBase_SZh_static_closure);
 913 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 914 StgFloat s24u;
 915         FB_
 916         HEAP_CHK(0,(_FHS+1),0);
 917         {
 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;
 923         CALLER_SAVE_Base
 924         CALLER_SAVE_SpA
 925         CALLER_SAVE_SuA
 926         CALLER_SAVE_SpB
 927         CALLER_SAVE_SuB
 928         CALLER_SAVE_Ret
 929         CALLER_SAVE_Hp
 930         CALLER_SAVE_HpLim
 931         _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
 932         CALLER_RESTORE_Base
 933         CALLER_RESTORE_SpA
 934         CALLER_RESTORE_SuA
 935         CALLER_RESTORE_SpB
 936         CALLER_RESTORE_SuB
 937         CALLER_RESTORE_Ret
 938         CALLER_RESTORE_Hp
 939         CALLER_RESTORE_HpLim
 940         CALLER_RESTORE_StdUpdRetVec
 941         CALLER_RESTORE_StkStub
 942         s24u=_ccall_result;
 943         }
 944         SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
 945         ASSIGN_FLT(Hp,s24u);
 946         R4.p=STBase_SZh_static_closure;
 947         R3.p=Hp-_FHS;
 948         SpB=SpB-3;
 949         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 950         GRAN_EXEC(11,2,24,22,0);
 951         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 952         FE_
 953 }
 954 UNVECTBL(static,vtbl_c2bx,ret_c2bx)
 955 IFN_(ret_c2bw) {
 956 ID_(a19u_closure);
 957         FB_
 958         RetReg=(StgRetAddr)UNVEC(ret_c2bx,vtbl_c2bx);
 959         R1.p=a19u_closure;
 960         ASSIGN_FLT(SpB+1,FltReg1);
 961         SpB=SpB+1;
 962         ENT_VIA_NODE();
 963         GRAN_EXEC(5,1,1,1,0);
 964         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 965         FE_
 966 }
 967 UNVECTBL(static,vtbl_c2bw,ret_c2bw)
 968 IFN_(ret_c2bv) {
 969 ID_(a19w_closure);
 970         FB_
 971         RetReg=(StgRetAddr)UNVEC(ret_c2bw,vtbl_c2bw);
 972         R1.p=a19w_closure;
 973         SpB[1]=(W_)(R3.i);
 974         SpB=SpB+1;
 975         ENT_VIA_NODE();
 976         GRAN_EXEC(5,1,1,1,0);
 977         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 978         FE_
 979 }
 980 UNVECTBL(static,vtbl_c2bv,ret_c2bv)
 981 IFN_(ret_c2bu) {
 982         FB_
 983         RetReg=(StgRetAddr)UNVEC(ret_c2bv,vtbl_c2bv);
 984         R1.p=*SpA;
 985         SpA=SpA+1;
 986         ENT_VIA_NODE();
 987         GRAN_EXEC(3,1,2,1,0);
 988         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 989         FE_
 990 }
 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);
 993 IFN_(c28E_entry) {
 994 IF_(c28E_fast1);
 995         FB_
 996         ARGS_CHK_A(1);
 997         R2.p=*SpA;
 998         SpA=SpA+1;
 999         GRAN_EXEC(5,2,1,0,0);
1000         JMP_(c28E_fast1);
1001         FE_
1002 }
1003 IFN_(c28E_fast1) {
1004         FB_
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]);
1009         R1=R2;
1010         SpA=SpA-1;
1011         SpB=SpB+1;
1012         ENT_VIA_NODE();
1013         GRAN_EXEC(5,1,2,2,0);
1014         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1015         FE_
1016 }
1017 SPEC_N_ITBL(s24V_info,s24V_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
1018 IFN_(s24V_entry) {
1019 IF_(s24V_fast1);
1020         FB_
1021         ARGS_CHK_A(1);
1022         R2.p=*SpA;
1023         SpA=SpA+1;
1024         GRAN_EXEC(5,2,1,0,0);
1025         JMP_(s24V_fast1);
1026         FE_
1027 }
1028 IFN_(s24V_fast1) {
1029 ID_RO_(c28E_info);
1030 IF_(c28E_entry);
1031         FB_
1032         HEAP_CHK(3,(_FHS+1),1);
1033         SET_SPEC_HDR(Hp-_FHS,c28E_info,0,1,1);
1034         *Hp=(W_)(R2.p);
1035         R1.p=Hp-_FHS;
1036         GRAN_EXEC(5,2,0,2,0);
1037         JMP_(c28E_entry);
1038         FE_
1039 }
1040 SPEC_N_ITBL(s258_info,s258_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
1041 IFN_(s258_entry) {
1042 IF_(s258_fast1);
1043         FB_
1044         ARGS_CHK_A(1);
1045         R2.p=*SpA;
1046         SpA=SpA+1;
1047         GRAN_EXEC(5,2,1,0,0);
1048         JMP_(s258_fast1);
1049         FE_
1050 }
1051 IFN_(s258_fast1) {
1052 ID_RO_(s22a_info);
1053 ID_RO_(s23h_info);
1054 ID_RO_(s24V_info);
1055 ED_(STBase_thenPrimIO_closure);
1056         FB_
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);
1064         SpA[-1]=Hp-_FHS;
1065         SpA[-2]=Hp-((_FHS*2)+1);
1066         R1.p=STBase_thenPrimIO_closure;
1067         SpA=SpA-2;
1068         ENT_VIA_NODE();
1069         GRAN_EXEC(11,2,3,7,0);
1070         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1071         FE_
1072 }
1073 STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+
1074                                                         2),0,const,EF_,0,0,0);
1075 FN_(Test_d_entry) {
1076 ID_RO_(s258_info);
1077 ID_(s1Xu_closure);
1078 ED_(STBase_thenPrimIO_closure);
1079         FB_
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);
1086         SpA[-1]=Hp-_FHS;
1087         SpA[-2]=s1Xu_closure;
1088         RetReg=StdUpdRetVecReg;
1089         R1.p=STBase_thenPrimIO_closure;
1090         SpA=SpA-2;
1091         SpB=SpB+4;
1092         ENT_VIA_NODE();
1093         GRAN_EXEC(23,2,3,11,0);
1094         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
1095         FE_
1096 }
1097 SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_)
1098   , (W_)0, (W_)0
1099 };
1100 ghc: module version changed to 1; reason: no old .hi file