ghc/tests/ccall/should_compile/cc006.stderr

   1
   2 NOTE: Simplifier still going after 4 iterations; bailing out.
   3
   4
   5 ================================================================================
   6 STG syntax:
   7 d{-r5y,x-} =
   8      [] \r [x_s1vw]
   9         let {
  10           stg_c1Fh =
  11               (False, True, False, False, True) [x_s1vw] \r [ds_s1vn]
  12                   case
  13                       ds_s1vn{-lvs:x_s1vw-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
  14                   of {
  15                       -- lvs: [ds_s1vn x_s1vw]; rhs lvs: [x_s1vw]; uniq: c1Fi
  16                     STBase.S#{-5D,p-}{i} ds_s1vx ->
  17                         case
  18                             x_s1vw{-lvs:ds_s1vx-} ::Foreign.StablePtr{-3w,p-} PrelBase.Int{-3g,p-}
  19                         of {
  20                             -- lvs: [x_s1vw ds_s1vx]; rhs lvs: [ds_s1vx]; uniq: c1Fj
  21                           Foreign.StablePtr{-5o,p-}{i} ds_s1vX ->
  22                               case
  23                                   _ccall_ d [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) (GHC.StablePtr#{-3v,p-} PrelBase.Int{-3g,p-})]# [ds_s1vx ds_s1vX] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
  24                               of {
  25                                   -- lvs: [ds_s1vx ds_s1vX]; rhs lvs: []; uniq: c1Fk
  26                                 STBase.StateAndInt#{-5v,p-}{i} ds_s1w8 ds_s1vY ->
  27                                     let {
  28                                       ds_s1wC =
  29                                            PrelBase.I#{-5b,p-}{i}! [ds_s1vY]; } in
  30                                     let {
  31                                       ds_s1wB =
  32                                            STBase.S#{-5D,p-}{i}! [ds_s1w8];
  33                                     } in
  34                                       PrelTup.(,){-62,p-}{i}! [ds_s1wC ds_s1wB];
  35                               };
  36                         };
  37                   };
  38         } in
  39           stg_c1Fh;
  40 c{-r5x,x-} =
  41      [] \r [x_s1wL]
  42         let {
  43           stg_c1EH =
  44               (False, True, False, False, True) [x_s1wL] \r [ds_s1wA]
  45                   case
  46                       ds_s1wA{-lvs:x_s1wL-} ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
  47                   of {
  48                       -- lvs: [ds_s1wA x_s1wL]; rhs lvs: [x_s1wL]; uniq: c1Fl
  49                     STBase.S#{-5D,p-}{i} ds_s1wM ->
  50                         case x_s1wL{-lvs:ds_s1wM-} ::Foreign.ForeignObj{-3l,p-} of {
  51                             -- lvs: [x_s1wL ds_s1wM]; rhs lvs: [ds_s1wM]; uniq: c1Fm
  52                           Foreign.ForeignObj{-5f,p-}{i} ds_s1xc ->
  53                               case
  54                                   _ccall_ c [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.ForeignObj#{-3k,p-}]# [ds_s1wM ds_s1xc] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
  55                               of {
  56                                   -- lvs: [ds_s1wM ds_s1xc]; rhs lvs: []; uniq: c1Fn
  57                                 STBase.StateAndInt#{-5v,p-}{i} ds_s1xn ds_s1xd ->
  58                                     let {
  59                                       ds_s1xL =
  60                                            PrelBase.I#{-5b,p-}{i}! [ds_s1xd]; } in
  61                                     let {
  62                                       ds_s1xK =
  63                                            STBase.S#{-5D,p-}{i}! [ds_s1xn];
  64                                     } in
  65                                       PrelTup.(,){-62,p-}{i}! [ds_s1xL ds_s1xK];
  66                               };
  67                         };
  68                   };
  69         } in
  70           stg_c1EH;
  71 s_s1sE =
  72      [] \r [ds_s1xJ]
  73         case ds_s1xJ ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
  74             -- lvs: [ds_s1xJ]; rhs lvs: []; uniq: c1Fo
  75           STBase.S#{-5D,p-}{i} ds_s1yc ->
  76               case
  77                   _ccall_ b [(Foreign.StateAndStablePtr#{-3J,p-} GHC.RealWorld{-3s,p-} PrelBase.Int{-3g,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1yc] ::Foreign.StateAndStablePtr#{-3J,p-} GHC.RealWorld{-3s,p-} PrelBase.Int{-3g,p-}
  78               of {
  79                   -- lvs: [ds_s1yc]; rhs lvs: []; uniq: c1Fp
  80                 Foreign.StateAndStablePtr#{-5B,p-}{i} ds_s1ym ds_s1yb ->
  81                     let {
  82                       ds_s1yC =
  83                            Foreign.StablePtr{-5o,p-}{i}! [ds_s1yb]; } in
  84                     let {
  85                       ds_s1yB =
  86                            STBase.S#{-5D,p-}{i}! [ds_s1ym];
  87                     } in
  88                       PrelTup.(,){-62,p-}{i}! [ds_s1yC ds_s1yB];
  89               };
  90         };
  91 s_s1zw =
  92     (False, True, False, False, True) [] \r [ds_s1yK]
  93         case ds_s1yK ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
  94             -- lvs: [ds_s1yK]; rhs lvs: []; uniq: c1Fq
  95           STBase.S#{-5D,p-}{i} ds_s1zb ->
  96               case
  97                   _ccall_ b [(Foreign.StateAndStablePtr#{-3J,p-} GHC.RealWorld{-3s,p-} PrelBase.Int{-3g,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1zb] ::Foreign.StateAndStablePtr#{-3J,p-} GHC.RealWorld{-3s,p-} PrelBase.Int{-3g,p-}
  98               of {
  99                   -- lvs: [ds_s1zb]; rhs lvs: []; uniq: c1Fr
 100                 Foreign.StateAndStablePtr#{-5B,p-}{i} ds_s1zl ds_s1za ->
 101                     let {
 102                       ds_s1zL =
 103                            Foreign.StablePtr{-5o,p-}{i}! [ds_s1za]; } in
 104                     let {
 105                       ds_s1zK =
 106                            STBase.S#{-5D,p-}{i}! [ds_s1zl];
 107                     } in
 108                       PrelTup.(,){-62,p-}{i}! [ds_s1zL ds_s1zK];
 109               };
 110         };
 111 b{-r5w,x-} =
 112      [] \u []
 113         s_s1zw;
 114 s_s1uE =
 115      [] \r [ds_s1zJ]
 116         case ds_s1zJ ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
 117             -- lvs: [ds_s1zJ]; rhs lvs: []; uniq: c1Fs
 118           STBase.S#{-5D,p-}{i} ds_s1Ac ->
 119               case
 120                   _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1Ac] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
 121               of {
 122                   -- lvs: [ds_s1Ac]; rhs lvs: []; uniq: c1Ft
 123                 STBase.StateAndInt#{-5v,p-}{i} ds_s1Am ds_s1Ab ->
 124                     let {
 125                       ds_s1AC =
 126                            PrelBase.I#{-5b,p-}{i}! [ds_s1Ab]; } in
 127                     let {
 128                       ds_s1AB =
 129                            STBase.S#{-5D,p-}{i}! [ds_s1Am];
 130                     } in
 131                       PrelTup.(,){-62,p-}{i}! [ds_s1AC ds_s1AB];
 132               };
 133         };
 134 s_s1Bw =
 135     (False, True, False, False, True) [] \r [ds_s1AK]
 136         case ds_s1AK ::STBase.State{-3M,p-} GHC.RealWorld{-3s,p-} of {
 137             -- lvs: [ds_s1AK]; rhs lvs: []; uniq: c1Fu
 138           STBase.S#{-5D,p-}{i} ds_s1Bb ->
 139               case
 140                   _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]# [ds_s1Bb] ::STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}
 141               of {
 142                   -- lvs: [ds_s1Bb]; rhs lvs: []; uniq: c1Fv
 143                 STBase.StateAndInt#{-5v,p-}{i} ds_s1Bl ds_s1Ba ->
 144                     let {
 145                       ds_s1BE =
 146                            PrelBase.I#{-5b,p-}{i}! [ds_s1Ba]; } in
 147                     let {
 148                       ds_s1BF =
 149                            STBase.S#{-5D,p-}{i}! [ds_s1Bl];
 150                     } in
 151                       PrelTup.(,){-62,p-}{i}! [ds_s1BE ds_s1BF];
 152               };
 153         };
 154 a{-r5v,x-} =
 155      [] \u []
 156         s_s1Bw;
 157
 158
 159 ================================================================================
 160 Flat Abstract C:
 161 IFN_(ret_c1Fj) {
 162 ED_RO_(PrelBase_IZh_con_info);
 163 ED_(STBase_SZh_static_closure);
 164 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 165 I_ s1vY;
 166         FB_
 167         HEAP_CHK(0,(_FHS+1),0);
 168         {
 169         I_ _ccall_result;
 170         StgStablePtr _ccall_arg1=R3.i;
 171         CALLER_SAVE_Base
 172         CALLER_SAVE_SpA
 173         CALLER_SAVE_SuA
 174         CALLER_SAVE_SpB
 175         CALLER_SAVE_SuB
 176         CALLER_SAVE_Ret
 177         CALLER_SAVE_Hp
 178         CALLER_SAVE_HpLim
 179         _ccall_result = (d((_ccall_arg1)));
 180         CALLER_RESTORE_Base
 181         CALLER_RESTORE_SpA
 182         CALLER_RESTORE_SuA
 183         CALLER_RESTORE_SpB
 184         CALLER_RESTORE_SuB
 185         CALLER_RESTORE_Ret
 186         CALLER_RESTORE_Hp
 187         CALLER_RESTORE_HpLim
 188         CALLER_RESTORE_StdUpdRetVec
 189         CALLER_RESTORE_StkStub
 190         s1vY=_ccall_result;
 191         }
 192         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 193         *Hp=(W_)(s1vY);
 194         R4.p=STBase_SZh_static_closure;
 195         R3.p=Hp-_FHS;
 196         SpB=SpB-1;
 197         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 198         GRAN_EXEC(10,2,22,22,0);
 199         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 200         FE_
 201 }
 202 UNVECTBL(static,vtbl_c1Fj,ret_c1Fj)
 203 IFN_(ret_c1Fi) {
 204         FB_
 205         RetReg=(StgRetAddr)UNVEC(ret_c1Fj,vtbl_c1Fj);
 206         R1.p=*SpA;
 207         SpA=SpA+1;
 208         ENT_VIA_NODE();
 209         GRAN_EXEC(3,1,2,1,0);
 210         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 211         FE_
 212 }
 213 UNVECTBL(static,vtbl_c1Fi,ret_c1Fi)
 214 SPEC_N_ITBL(c1Fh_info,c1Fh_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
 215 IFN_(c1Fh_entry) {
 216 IF_(c1Fh_fast1);
 217         FB_
 218         ARGS_CHK_A(1);
 219         R2.p=*SpA;
 220         SpA=SpA+1;
 221         GRAN_EXEC(5,2,1,0,0);
 222         JMP_(c1Fh_fast1);
 223         FE_
 224 }
 225 IFN_(c1Fh_fast1) {
 226         FB_
 227         STK_CHK(3,1,1,0,0,0,1);
 228         SpB[1]=(W_)(RetReg);
 229         RetReg=(StgRetAddr)UNVEC(ret_c1Fi,vtbl_c1Fi);
 230         SpA[-1]=(P_)(R1.p[_FHS]);
 231         R1=R2;
 232         SpA=SpA-1;
 233         SpB=SpB+1;
 234         ENT_VIA_NODE();
 235         GRAN_EXEC(5,1,2,2,0);
 236         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 237         FE_
 238 }
 239 STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 240 FN_(Test_d_entry) {
 241 ED_(Test_d_closure);
 242 EF_(Test_d_fast1);
 243         FB_
 244         ARGS_CHK_A_LOAD_NODE(1,Test_d_closure);
 245         R1.p=*SpA;
 246         SpA=SpA+1;
 247         GRAN_EXEC(5,2,1,0,0);
 248         JMP_(Test_d_fast1);
 249         FE_
 250 }
 251 FN_(Test_d_fast1) {
 252 ID_RO_(c1Fh_info);
 253 IF_(c1Fh_entry);
 254         FB_
 255         HEAP_CHK(1,(_FHS+1),0);
 256         SET_SPEC_HDR(Hp-_FHS,c1Fh_info,0,1,1);
 257         *Hp=(W_)(R1.p);
 258         R1.p=Hp-_FHS;
 259         GRAN_EXEC(5,2,0,2,0);
 260         JMP_(c1Fh_entry);
 261         FE_
 262 }
 263 SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_)
 264 };
 265 IFN_(ret_c1Fm) {
 266 ED_RO_(PrelBase_IZh_con_info);
 267 ED_(STBase_SZh_static_closure);
 268 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 269 I_ s1xd;
 270         FB_
 271         HEAP_CHK(4,(_FHS+1),0);
 272         {
 273         I_ _ccall_result;
 274         StgForeignObj _ccall_arg1=ForeignObj_CLOSURE_DATA(R3.p);
 275         CALLER_SAVE_Base
 276         CALLER_SAVE_SpA
 277         CALLER_SAVE_SuA
 278         CALLER_SAVE_SpB
 279         CALLER_SAVE_SuB
 280         CALLER_SAVE_Ret
 281         CALLER_SAVE_Hp
 282         CALLER_SAVE_HpLim
 283         _ccall_result = (c((_ccall_arg1)));
 284         CALLER_RESTORE_Base
 285         CALLER_RESTORE_SpA
 286         CALLER_RESTORE_SuA
 287         CALLER_RESTORE_SpB
 288         CALLER_RESTORE_SuB
 289         CALLER_RESTORE_Ret
 290         CALLER_RESTORE_Hp
 291         CALLER_RESTORE_HpLim
 292         CALLER_RESTORE_StdUpdRetVec
 293         CALLER_RESTORE_StkStub
 294         s1xd=_ccall_result;
 295         }
 296         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 297         *Hp=(W_)(s1xd);
 298         R4.p=STBase_SZh_static_closure;
 299         R3.p=Hp-_FHS;
 300         SpB=SpB-1;
 301         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 302         GRAN_EXEC(10,2,22,22,0);
 303         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 304         FE_
 305 }
 306 UNVECTBL(static,vtbl_c1Fm,ret_c1Fm)
 307 IFN_(ret_c1Fl) {
 308         FB_
 309         RetReg=(StgRetAddr)UNVEC(ret_c1Fm,vtbl_c1Fm);
 310         R1.p=*SpA;
 311         SpA=SpA+1;
 312         ENT_VIA_NODE();
 313         GRAN_EXEC(3,1,2,1,0);
 314         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 315         FE_
 316 }
 317 UNVECTBL(static,vtbl_c1Fl,ret_c1Fl)
 318 SPEC_N_ITBL(c1EH_info,c1EH_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
 319 IFN_(c1EH_entry) {
 320 IF_(c1EH_fast1);
 321         FB_
 322         ARGS_CHK_A(1);
 323         R2.p=*SpA;
 324         SpA=SpA+1;
 325         GRAN_EXEC(5,2,1,0,0);
 326         JMP_(c1EH_fast1);
 327         FE_
 328 }
 329 IFN_(c1EH_fast1) {
 330         FB_
 331         STK_CHK(3,1,1,0,0,0,1);
 332         SpB[1]=(W_)(RetReg);
 333         RetReg=(StgRetAddr)UNVEC(ret_c1Fl,vtbl_c1Fl);
 334         SpA[-1]=(P_)(R1.p[_FHS]);
 335         R1=R2;
 336         SpA=SpA-1;
 337         SpB=SpB+1;
 338         ENT_VIA_NODE();
 339         GRAN_EXEC(5,1,2,2,0);
 340         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 341         FE_
 342 }
 343 STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 344 FN_(Test_c_entry) {
 345 ED_(Test_c_closure);
 346 EF_(Test_c_fast1);
 347         FB_
 348         ARGS_CHK_A_LOAD_NODE(1,Test_c_closure);
 349         R1.p=*SpA;
 350         SpA=SpA+1;
 351         GRAN_EXEC(5,2,1,0,0);
 352         JMP_(Test_c_fast1);
 353         FE_
 354 }
 355 FN_(Test_c_fast1) {
 356 ID_RO_(c1EH_info);
 357 IF_(c1EH_entry);
 358         FB_
 359         HEAP_CHK(1,(_FHS+1),0);
 360         SET_SPEC_HDR(Hp-_FHS,c1EH_info,0,1,1);
 361         *Hp=(W_)(R1.p);
 362         R1.p=Hp-_FHS;
 363         GRAN_EXEC(5,2,0,2,0);
 364         JMP_(c1EH_entry);
 365         FE_
 366 }
 367 SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_)
 368 };
 369 IFN_(ret_c1Fo) {
 370 ED_RO_(Foreign_StablePtr_con_info);
 371 ED_(STBase_SZh_static_closure);
 372 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 373 StgStablePtr s1yb;
 374         FB_
 375         HEAP_CHK(0,(_FHS+1),0);
 376         {
 377         StgStablePtr _ccall_result;
 378         CALLER_SAVE_Base
 379         CALLER_SAVE_SpA
 380         CALLER_SAVE_SuA
 381         CALLER_SAVE_SpB
 382         CALLER_SAVE_SuB
 383         CALLER_SAVE_Ret
 384         CALLER_SAVE_Hp
 385         CALLER_SAVE_HpLim
 386         _ccall_result = (b());
 387         CALLER_RESTORE_Base
 388         CALLER_RESTORE_SpA
 389         CALLER_RESTORE_SuA
 390         CALLER_RESTORE_SpB
 391         CALLER_RESTORE_SuB
 392         CALLER_RESTORE_Ret
 393         CALLER_RESTORE_Hp
 394         CALLER_RESTORE_HpLim
 395         CALLER_RESTORE_StdUpdRetVec
 396         CALLER_RESTORE_StkStub
 397         s1yb=_ccall_result;
 398         }
 399         SET_SPEC_HDR(Hp-_FHS,Foreign_StablePtr_con_info,0,1,0);
 400         *Hp=(W_)(s1yb);
 401         R4.p=STBase_SZh_static_closure;
 402         R3.p=Hp-_FHS;
 403         SpB=SpB-1;
 404         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 405         GRAN_EXEC(10,2,21,22,0);
 406         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 407         FE_
 408 }
 409 UNVECTBL(static,vtbl_c1Fo,ret_c1Fo)
 410 STATIC_ITBL(s1sE_info,s1sE_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
 411 IFN_(s1sE_entry) {
 412 ID_(s1sE_closure);
 413 IF_(s1sE_fast1);
 414         FB_
 415         ARGS_CHK_A_LOAD_NODE(1,s1sE_closure);
 416         R1.p=*SpA;
 417         SpA=SpA+1;
 418         GRAN_EXEC(5,2,1,0,0);
 419         JMP_(s1sE_fast1);
 420         FE_
 421 }
 422 IFN_(s1sE_fast1) {
 423         FB_
 424         STK_CHK(1,0,1,0,0,0,0);
 425         SpB[1]=(W_)(RetReg);
 426         RetReg=(StgRetAddr)UNVEC(ret_c1Fo,vtbl_c1Fo);
 427         SpB=SpB+1;
 428         ENT_VIA_NODE();
 429         GRAN_EXEC(3,1,1,1,0);
 430         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 431         FE_
 432 }
 433 SET_STATIC_HDR(s1sE_closure,s1sE_info,0,static ,ID_RO_)
 434 };
 435 IFN_(ret_c1Fq) {
 436 ED_RO_(Foreign_StablePtr_con_info);
 437 ED_(STBase_SZh_static_closure);
 438 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 439 StgStablePtr s1za;
 440         FB_
 441         HEAP_CHK(0,(_FHS+1),0);
 442         {
 443         StgStablePtr _ccall_result;
 444         CALLER_SAVE_Base
 445         CALLER_SAVE_SpA
 446         CALLER_SAVE_SuA
 447         CALLER_SAVE_SpB
 448         CALLER_SAVE_SuB
 449         CALLER_SAVE_Ret
 450         CALLER_SAVE_Hp
 451         CALLER_SAVE_HpLim
 452         _ccall_result = (b());
 453         CALLER_RESTORE_Base
 454         CALLER_RESTORE_SpA
 455         CALLER_RESTORE_SuA
 456         CALLER_RESTORE_SpB
 457         CALLER_RESTORE_SuB
 458         CALLER_RESTORE_Ret
 459         CALLER_RESTORE_Hp
 460         CALLER_RESTORE_HpLim
 461         CALLER_RESTORE_StdUpdRetVec
 462         CALLER_RESTORE_StkStub
 463         s1za=_ccall_result;
 464         }
 465         SET_SPEC_HDR(Hp-_FHS,Foreign_StablePtr_con_info,0,1,0);
 466         *Hp=(W_)(s1za);
 467         R4.p=STBase_SZh_static_closure;
 468         R3.p=Hp-_FHS;
 469         SpB=SpB-1;
 470         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 471         GRAN_EXEC(10,2,21,22,0);
 472         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 473         FE_
 474 }
 475 UNVECTBL(static,vtbl_c1Fq,ret_c1Fq)
 476 STATIC_ITBL(s1zw_info,s1zw_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
 477 IFN_(s1zw_entry) {
 478 ID_(s1zw_closure);
 479 IF_(s1zw_fast1);
 480         FB_
 481         ARGS_CHK_A_LOAD_NODE(1,s1zw_closure);
 482         R1.p=*SpA;
 483         SpA=SpA+1;
 484         GRAN_EXEC(5,2,1,0,0);
 485         JMP_(s1zw_fast1);
 486         FE_
 487 }
 488 IFN_(s1zw_fast1) {
 489         FB_
 490         STK_CHK(1,0,1,0,0,0,0);
 491         SpB[1]=(W_)(RetReg);
 492         RetReg=(StgRetAddr)UNVEC(ret_c1Fq,vtbl_c1Fq);
 493         SpB=SpB+1;
 494         ENT_VIA_NODE();
 495         GRAN_EXEC(3,1,1,1,0);
 496         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 497         FE_
 498 }
 499 SET_STATIC_HDR(s1zw_closure,s1zw_info,0,static ,ID_RO_)
 500 };
 501 STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,(STATIC_VHS+
 502                                                         2),0,const,EF_,0,0,0);
 503 FN_(Test_b_entry) {
 504 IF_(s1zw_entry);
 505         FB_
 506         STK_CHK(1,0,4,0,0,0,1);
 507         HEAP_CHK(1,(BH_HS+2),1);
 508         SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
 509         UPD_CAF(R1.p,Hp-(BH_HS+1));
 510         PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
 511         RetReg=StdUpdRetVecReg;
 512         SpB=SpB+4;
 513         GRAN_EXEC(16,2,1,8,0);
 514         JMP_(s1zw_entry);
 515         FE_
 516 }
 517 SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_)
 518   , (W_)0, (W_)0
 519 };
 520 IFN_(ret_c1Fs) {
 521 ED_RO_(PrelBase_IZh_con_info);
 522 ED_(STBase_SZh_static_closure);
 523 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 524 I_ s1Ab;
 525         FB_
 526         HEAP_CHK(0,(_FHS+1),0);
 527         {
 528         I_ _ccall_result;
 529         CALLER_SAVE_Base
 530         CALLER_SAVE_SpA
 531         CALLER_SAVE_SuA
 532         CALLER_SAVE_SpB
 533         CALLER_SAVE_SuB
 534         CALLER_SAVE_Ret
 535         CALLER_SAVE_Hp
 536         CALLER_SAVE_HpLim
 537         _ccall_result = (a());
 538         CALLER_RESTORE_Base
 539         CALLER_RESTORE_SpA
 540         CALLER_RESTORE_SuA
 541         CALLER_RESTORE_SpB
 542         CALLER_RESTORE_SuB
 543         CALLER_RESTORE_Ret
 544         CALLER_RESTORE_Hp
 545         CALLER_RESTORE_HpLim
 546         CALLER_RESTORE_StdUpdRetVec
 547         CALLER_RESTORE_StkStub
 548         s1Ab=_ccall_result;
 549         }
 550         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 551         *Hp=(W_)(s1Ab);
 552         R4.p=STBase_SZh_static_closure;
 553         R3.p=Hp-_FHS;
 554         SpB=SpB-1;
 555         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 556         GRAN_EXEC(10,2,21,22,0);
 557         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 558         FE_
 559 }
 560 UNVECTBL(static,vtbl_c1Fs,ret_c1Fs)
 561 STATIC_ITBL(s1uE_info,s1uE_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
 562 IFN_(s1uE_entry) {
 563 ID_(s1uE_closure);
 564 IF_(s1uE_fast1);
 565         FB_
 566         ARGS_CHK_A_LOAD_NODE(1,s1uE_closure);
 567         R1.p=*SpA;
 568         SpA=SpA+1;
 569         GRAN_EXEC(5,2,1,0,0);
 570         JMP_(s1uE_fast1);
 571         FE_
 572 }
 573 IFN_(s1uE_fast1) {
 574         FB_
 575         STK_CHK(1,0,1,0,0,0,0);
 576         SpB[1]=(W_)(RetReg);
 577         RetReg=(StgRetAddr)UNVEC(ret_c1Fs,vtbl_c1Fs);
 578         SpB=SpB+1;
 579         ENT_VIA_NODE();
 580         GRAN_EXEC(3,1,1,1,0);
 581         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 582         FE_
 583 }
 584 SET_STATIC_HDR(s1uE_closure,s1uE_info,0,static ,ID_RO_)
 585 };
 586 IFN_(ret_c1Fu) {
 587 ED_RO_(PrelBase_IZh_con_info);
 588 ED_(STBase_SZh_static_closure);
 589 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 590 I_ s1Ba;
 591         FB_
 592         HEAP_CHK(0,(_FHS+1),0);
 593         {
 594         I_ _ccall_result;
 595         CALLER_SAVE_Base
 596         CALLER_SAVE_SpA
 597         CALLER_SAVE_SuA
 598         CALLER_SAVE_SpB
 599         CALLER_SAVE_SuB
 600         CALLER_SAVE_Ret
 601         CALLER_SAVE_Hp
 602         CALLER_SAVE_HpLim
 603         _ccall_result = (a());
 604         CALLER_RESTORE_Base
 605         CALLER_RESTORE_SpA
 606         CALLER_RESTORE_SuA
 607         CALLER_RESTORE_SpB
 608         CALLER_RESTORE_SuB
 609         CALLER_RESTORE_Ret
 610         CALLER_RESTORE_Hp
 611         CALLER_RESTORE_HpLim
 612         CALLER_RESTORE_StdUpdRetVec
 613         CALLER_RESTORE_StkStub
 614         s1Ba=_ccall_result;
 615         }
 616         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 617         *Hp=(W_)(s1Ba);
 618         R4.p=STBase_SZh_static_closure;
 619         R3.p=Hp-_FHS;
 620         SpB=SpB-1;
 621         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 622         GRAN_EXEC(10,2,21,22,0);
 623         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 624         FE_
 625 }
 626 UNVECTBL(static,vtbl_c1Fu,ret_c1Fu)
 627 STATIC_ITBL(s1Bw_info,s1Bw_entry,StdErrorCode,1,-1,STATIC_VHS,0,static const,IF_,0,0,0);
 628 IFN_(s1Bw_entry) {
 629 ID_(s1Bw_closure);
 630 IF_(s1Bw_fast1);
 631         FB_
 632         ARGS_CHK_A_LOAD_NODE(1,s1Bw_closure);
 633         R1.p=*SpA;
 634         SpA=SpA+1;
 635         GRAN_EXEC(5,2,1,0,0);
 636         JMP_(s1Bw_fast1);
 637         FE_
 638 }
 639 IFN_(s1Bw_fast1) {
 640         FB_
 641         STK_CHK(1,0,1,0,0,0,0);
 642         SpB[1]=(W_)(RetReg);
 643         RetReg=(StgRetAddr)UNVEC(ret_c1Fu,vtbl_c1Fu);
 644         SpB=SpB+1;
 645         ENT_VIA_NODE();
 646         GRAN_EXEC(3,1,1,1,0);
 647         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 648         FE_
 649 }
 650 SET_STATIC_HDR(s1Bw_closure,s1Bw_info,0,static ,ID_RO_)
 651 };
 652 STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,(STATIC_VHS+
 653                                                         2),0,const,EF_,0,0,0);
 654 FN_(Test_a_entry) {
 655 IF_(s1Bw_entry);
 656         FB_
 657         STK_CHK(1,0,4,0,0,0,1);
 658         HEAP_CHK(1,(BH_HS+2),1);
 659         SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
 660         UPD_CAF(R1.p,Hp-(BH_HS+1));
 661         PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
 662         RetReg=StdUpdRetVecReg;
 663         SpB=SpB+4;
 664         GRAN_EXEC(16,2,1,8,0);
 665         JMP_(s1Bw_entry);
 666         FE_
 667 }
 668 SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_)
 669   , (W_)0, (W_)0
 670 };
 671 ghc: module version changed to 1; reason: no old .hi file