ghc/tests/ccall/should_compile/cc005.stderr

   1
   2
   3 ================================================================================
   4 STG syntax:
   5 $g0_g0 =
   6      PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,w-} PrelNum.integer_1{-8d,w-}];
   7 $g1_a15t =
   8     (False, True, False, False, True) [] \u []
   9         case
  10             PrelNum.$d14{-rs6,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}}
  11         of {
  12             -- lvs: []; rhs lvs: []; uniq: c1QY
  13           PrelTup.(,,,){-64,w-}{i} $x0_s1En $x1_s1Eo $x2_s1Ep $x3_s1Em ->
  14               $x3_s1Em $g0_g0;
  15         };
  16 $g2_g2 =
  17      PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,w-} PrelNum.integer_1{-8d,w-}];
  18 $g3_a15r =
  19     (False, True, False, False, True) [] \u []
  20         case
  21             PrelNum.$d23{-rsg,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}}
  22         of {
  23             -- lvs: []; rhs lvs: []; uniq: c1QZ
  24           PrelTup.(,,,){-64,w-}{i} $x0_s1EP $x1_s1EQ $x2_s1ER $x3_s1EO ->
  25               $x3_s1EO $g2_g2;
  26         };
  27 a{-r1,x-} =
  28      [] \r [$x0_s1F9]
  29         case $x0_s1F9 ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} of {
  30             -- lvs: [$x0_s1F9]; rhs lvs: []; uniq: c1R0
  31           STBase.S#{-5D,w-}{i} $x1_s1FA ->
  32               case
  33                   _ccall_ a [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]# [$x1_s1FA] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
  34               of {
  35                   -- lvs: [$x1_s1FA]; rhs lvs: []; uniq: c1R1
  36                 STBase.StateAndInt#{-5v,w-}{i} $x2_s1FK $x3_s1Fz ->
  37                     let { $x4_s1Gc =  PrelBase.I#{-5b,w-}{i}! [$x3_s1Fz]; } in
  38                     let { $x5_s1Gb =  STBase.S#{-5D,w-}{i}! [$x2_s1FK];
  39                     } in  PrelTup.(,){-62,w-}{i}! [$x4_s1Gc $x5_s1Gb];
  40               };
  41         };
  42 b{-r3,x-} =
  43      [] \r [$x0_s1Gl]
  44         let {
  45           stg_c1Qp =
  46               (False, True, False, False, True) [$x0_s1Gl] \r [$x1_s1Ga]
  47                   case
  48                       $x1_s1Ga{-lvs:$x0_s1Gl-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
  49                   of {
  50                       -- lvs: [$x1_s1Ga $x0_s1Gl]; rhs lvs: [$x0_s1Gl]; uniq: c1R2
  51                     STBase.S#{-5D,w-}{i} $x2_s1Gm ->
  52                         case $x0_s1Gl{-lvs:$x2_s1Gm-} ::PrelBase.Int{-3g,W-} of {
  53                             -- lvs: [$x0_s1Gl $x2_s1Gm]; rhs lvs: [$x2_s1Gm]; uniq: c1R3
  54                           PrelBase.I#{-5b,w-}{i} $x3_s1GM ->
  55                               case
  56                                   _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1Gm $x3_s1GM] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
  57                               of {
  58                                   -- lvs: [$x2_s1Gm $x3_s1GM]; rhs lvs: []; uniq: c1R4
  59                                 STBase.StateAndInt#{-5v,w-}{i} $x4_s1GX $x5_s1GN ->
  60                                     let { $x6_s1Hx =  PrelBase.I#{-5b,w-}{i}! [$x5_s1GN]; } in
  61                                     let { $x7_s1Hw =  STBase.S#{-5D,w-}{i}! [$x4_s1GX];
  62                                     } in  PrelTup.(,){-62,w-}{i}! [$x6_s1Hx $x7_s1Hw];
  63                               };
  64                         };
  65                   };
  66         } in  stg_c1Qp;
  67 c{-r5,x-} =
  68      [] \r [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]
  69         let {
  70           stg_c1PP =
  71               (False, True, False, False, True) [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia] \r [$x4_s1Hv]
  72                   case
  73                       $x4_s1Hv{-lvs:$x0_s1HG, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
  74                   of {
  75                       -- lvs: [$x4_s1Hv $x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R5
  76                     STBase.S#{-5D,w-}{i} $x5_s1HH ->
  77                         case
  78                             $x0_s1HG{-lvs:$x5_s1HH, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Int{-3g,W-}
  79                         of {
  80                             -- lvs: [$x0_s1HG $x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R6
  81                           PrelBase.I#{-5b,w-}{i} $x6_s1HR ->
  82                               case
  83                                   $x1_s1HQ{-lvs:$x5_s1HH, $x6_s1HR, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Char{-38,W-}
  84                               of {
  85                                   -- lvs: [$x5_s1HH $x1_s1HQ $x6_s1HR $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x3_s1Ia]; uniq: c1R7
  86                                 PrelBase.C#{-54,w-}{i} $x7_s1I1 ->
  87                                     case
  88                                         $x2_s1I0{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x3_s1Ia-} ::PrelBase.Float{-3c,W-}
  89                                     of {
  90                                         -- lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x7_s1I1 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia]; uniq: c1R8
  91                                       PrelBase.F#{-59,w-}{i} $x8_s1Ib ->
  92                                           case
  93                                               $x3_s1Ia{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x8_s1Ib-} ::PrelBase.Double{-3a,W-}
  94                                           of {
  95                                               -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia $x8_s1Ib]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib]; uniq: c1R9
  96                                             PrelBase.D#{-56,w-}{i} $x9_s1IB ->
  97                                                 case
  98                                                     _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}
  99                                                 of {
 100                                                     -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB]; rhs lvs: []; uniq: c1Ra
 101                                                   STBase.StateAndFloat#{-5u,w-}{i} $xa_s1IM $xb_s1IC ->
 102                                                       let {
 103                                                         $xc_s1Jy =
 104                                                              PrelBase.F#{-59,w-}{i}! [$xb_s1IC]; } in
 105                                                       let {
 106                                                         $xd_s1Jx =
 107                                                              STBase.S#{-5D,w-}{i}! [$xa_s1IM];
 108                                                       } in
 109                                                         PrelTup.(,){-62,w-}{i}! [$xc_s1Jy $xd_s1Jx];
 110                                                 };
 111                                           };
 112                                     };
 113                               };
 114                         };
 115                   };
 116         } in  stg_c1PP;
 117 d{-r7,x-} =
 118      [] \u []
 119         let {
 120           $xk_s1Ma =
 121                [] \r [$x0_s1JH]
 122                   let { $x8_s1KM =  [$x0_s1JH] \r [$x1_s1Jw]
 123                           case
 124                               $x1_s1Jw{-lvs:$x0_s1JH-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
 125                           of {
 126                               -- lvs: [$x1_s1Jw $x0_s1JH]; rhs lvs: [$x0_s1JH]; uniq: c1Rb
 127                             STBase.S#{-5D,w-}{i} $x2_s1JI ->
 128                                 case $x0_s1JH{-lvs:$x2_s1JI-} ::PrelBase.Int{-3g,W-} of {
 129                                     -- lvs: [$x0_s1JH $x2_s1JI]; rhs lvs: [$x2_s1JI]; uniq: c1Rc
 130                                   PrelBase.I#{-5b,w-}{i} $x3_s1K8 ->
 131                                       case
 132                                           _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1JI $x3_s1K8] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}
 133                                       of {
 134                                           -- lvs: [$x2_s1JI $x3_s1K8]; rhs lvs: []; uniq: c1Rd
 135                                         STBase.StateAndInt#{-5v,w-}{i} $x4_s1Kj $x5_s1K9 ->
 136                                             let {
 137                                               $x6_s1KL =  PrelBase.I#{-5b,w-}{i}! [$x5_s1K9]; } in
 138                                             let { $x7_s1KK =  STBase.S#{-5D,w-}{i}! [$x4_s1Kj];
 139                                             } in  PrelTup.(,){-62,w-}{i}! [$x6_s1KL $x7_s1KK];
 140                                       };
 141                                 };
 142                           } } in
 143                   let {
 144                     $xj_s1M6 =
 145                          [] \r [$x9_s1KV]
 146                             let {
 147                               stg_c1OR =
 148                                   (False, True, False, False, True) [$x9_s1KV] \r [$xa_s1KJ]
 149                                       case
 150                                           $xa_s1KJ{-lvs:$x9_s1KV-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}
 151                                       of {
 152                                           -- lvs: [$xa_s1KJ $x9_s1KV]; rhs lvs: [$x9_s1KV]; uniq: c1Re
 153                                         STBase.S#{-5D,w-}{i} $xb_s1KW ->
 154                                             case
 155                                                 $x9_s1KV{-lvs:$xb_s1KW-} ::PrelBase.Int{-3g,W-}
 156                                             of {
 157                                                 -- lvs: [$x9_s1KV $xb_s1KW]; rhs lvs: [$xb_s1KW]; uniq: c1Rf
 158                                               PrelBase.I#{-5b,w-}{i} $xc_s1L5 ->
 159                                                   case
 160                                                       $g3_a15r{-lvs:$xb_s1KW, $xc_s1L5-} ::PrelBase.Float{-3c,W-}
 161                                                   of {
 162                                                       -- lvs: [$xb_s1KW $xc_s1L5]; rhs lvs: [$xb_s1KW $xc_s1L5]; uniq: c1Rg
 163                                                     PrelBase.F#{-59,w-}{i} $xd_s1Le ->
 164                                                         case
 165                                                             $g1_a15t{-lvs:$xb_s1KW, $xc_s1L5, $xd_s1Le-} ::PrelBase.Double{-3a,W-}
 166                                                         of {
 167                                                             -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; rhs lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; uniq: c1Rh
 168                                                           PrelBase.D#{-56,w-}{i} $xe_s1LE ->
 169                                                               case
 170                                                                   _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$xb_s1KW $xc_s1L5 'f' $xd_s1Le $xe_s1LE] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}
 171                                                               of {
 172                                                                   -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le $xe_s1LE]; rhs lvs: []; uniq: c1Ri
 173                                                                 STBase.StateAndFloat#{-5u,w-}{i} $xf_s1LP $xg_s1LF ->
 174                                                                     let {
 175                                                                       $xh_s1M5 =
 176                                                                            PrelBase.F#{-59,w-}{i}! [$xg_s1LF]; } in
 177                                                                     let {
 178                                                                       $xi_s1M4 =
 179                                                                            STBase.S#{-5D,w-}{i}! [$xf_s1LP];
 180                                                                     } in
 181                                                                       PrelTup.(,){-62,w-}{i}! [$xh_s1M5 $xi_s1M4];
 182                                                               };
 183                                                         };
 184                                                   };
 185                                             };
 186                                       };
 187                             } in  stg_c1OR;
 188                   } in  STBase.thenPrimIO{-r4t,p-} $x8_s1KM $xj_s1M6;
 189         } in  STBase.thenPrimIO{-r4t,p-} a{-r1,x-} $xk_s1Ma;
 190
 191
 192 ================================================================================
 193 Flat Abstract C:
 194 ED_(PrelNum_integerZu2_closure);
 195 ED_(PrelNum_integerZu1_closure);
 196 SET_STATIC_HDR(g0_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
 197   , (W_)PrelNum_integerZu2_closure, (W_)PrelNum_integerZu1_closure
 198 };
 199 IFN_(ret_c1QY) {
 200 ID_(g0_closure);
 201         FB_
 202         SpA[-1]=g0_closure;
 203         RetReg=StdUpdRetVecReg;
 204         R1=R6;
 205         SpA=SpA-1;
 206         SpB=SpB-1;
 207         ENT_VIA_NODE();
 208         GRAN_EXEC(6,1,1,1,0);
 209         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 210         FE_
 211 }
 212 UNVECTBL(static,vtbl_c1QY,ret_c1QY)
 213 STATIC_ITBL(a15t_info,a15t_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0);
 214 IFN_(a15t_entry) {
 215 ED_(PrelNum_Z36d14_closure);
 216         FB_
 217         STK_CHK(1,1,5,0,0,0,1);
 218         HEAP_CHK(1,(BH_HS+2),1);
 219         SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
 220         UPD_CAF(R1.p,Hp-(BH_HS+1));
 221         PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
 222         RetReg=(StgRetAddr)UNVEC(ret_c1QY,vtbl_c1QY);
 223         R1.p=PrelNum_Z36d14_closure;
 224         SpB=SpB+5;
 225         ENT_VIA_NODE();
 226         GRAN_EXEC(19,2,2,8,0);
 227         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 228         FE_
 229 }
 230 SET_STATIC_HDR(a15t_closure,a15t_info,0,static ,ID_RO_)
 231   , (W_)0, (W_)0
 232 };
 233 ED_(PrelNum_integerZu1_closure);
 234 SET_STATIC_HDR(g2_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_)
 235   , (W_)PrelNum_integerZu1_closure, (W_)PrelNum_integerZu1_closure
 236 };
 237 IFN_(ret_c1QZ) {
 238 ID_(g2_closure);
 239         FB_
 240         SpA[-1]=g2_closure;
 241         RetReg=StdUpdRetVecReg;
 242         R1=R6;
 243         SpA=SpA-1;
 244         SpB=SpB-1;
 245         ENT_VIA_NODE();
 246         GRAN_EXEC(6,1,1,1,0);
 247         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 248         FE_
 249 }
 250 UNVECTBL(static,vtbl_c1QZ,ret_c1QZ)
 251 STATIC_ITBL(a15r_info,a15r_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0);
 252 IFN_(a15r_entry) {
 253 ED_(PrelNum_Z36d23_closure);
 254         FB_
 255         STK_CHK(1,1,5,0,0,0,1);
 256         HEAP_CHK(1,(BH_HS+2),1);
 257         SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0);
 258         UPD_CAF(R1.p,Hp-(BH_HS+1));
 259         PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0);
 260         RetReg=(StgRetAddr)UNVEC(ret_c1QZ,vtbl_c1QZ);
 261         R1.p=PrelNum_Z36d23_closure;
 262         SpB=SpB+5;
 263         ENT_VIA_NODE();
 264         GRAN_EXEC(19,2,2,8,0);
 265         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 266         FE_
 267 }
 268 SET_STATIC_HDR(a15r_closure,a15r_info,0,static ,ID_RO_)
 269   , (W_)0, (W_)0
 270 };
 271 IFN_(ret_c1R0) {
 272 ED_RO_(PrelBase_IZh_con_info);
 273 ED_(STBase_SZh_static_closure);
 274 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 275 I_ s1Fz_;
 276         FB_
 277         HEAP_CHK(0,(_FHS+1),0);
 278         {
 279         I_ _ccall_result;
 280         CALLER_SAVE_Base
 281         CALLER_SAVE_SpA
 282         CALLER_SAVE_SuA
 283         CALLER_SAVE_SpB
 284         CALLER_SAVE_SuB
 285         CALLER_SAVE_Ret
 286         CALLER_SAVE_Hp
 287         CALLER_SAVE_HpLim
 288         _ccall_result = (a());
 289         CALLER_RESTORE_Base
 290         CALLER_RESTORE_SpA
 291         CALLER_RESTORE_SuA
 292         CALLER_RESTORE_SpB
 293         CALLER_RESTORE_SuB
 294         CALLER_RESTORE_Ret
 295         CALLER_RESTORE_Hp
 296         CALLER_RESTORE_HpLim
 297         CALLER_RESTORE_StdUpdRetVec
 298         CALLER_RESTORE_StkStub
 299         s1Fz_=_ccall_result;
 300         }
 301         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 302         *Hp=(W_)(s1Fz_);
 303         R4.p=STBase_SZh_static_closure;
 304         R3.p=Hp-_FHS;
 305         SpB=SpB-1;
 306         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 307         GRAN_EXEC(10,2,21,22,0);
 308         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 309         FE_
 310 }
 311 UNVECTBL(static,vtbl_c1R0,ret_c1R0)
 312 STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 313 FN_(Test_a_entry) {
 314 ED_(Test_a_closure);
 315 EF_(Test_a_fast1);
 316         FB_
 317         ARGS_CHK_A_LOAD_NODE(1,Test_a_closure);
 318         R1.p=*SpA;
 319         SpA=SpA+1;
 320         GRAN_EXEC(5,2,1,0,0);
 321         JMP_(Test_a_fast1);
 322         FE_
 323 }
 324 FN_(Test_a_fast1) {
 325         FB_
 326         STK_CHK(1,0,1,0,0,0,0);
 327         SpB[1]=(W_)(RetReg);
 328         RetReg=(StgRetAddr)UNVEC(ret_c1R0,vtbl_c1R0);
 329         SpB=SpB+1;
 330         ENT_VIA_NODE();
 331         GRAN_EXEC(3,1,1,1,0);
 332         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 333         FE_
 334 }
 335 SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_)
 336 };
 337 IFN_(ret_c1R3) {
 338 ED_RO_(PrelBase_IZh_con_info);
 339 ED_(STBase_SZh_static_closure);
 340 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 341 I_ s1GN_;
 342         FB_
 343         HEAP_CHK(0,(_FHS+1),0);
 344         {
 345         I_ _ccall_result;
 346         I_ _ccall_arg1=R3.i;
 347         CALLER_SAVE_Base
 348         CALLER_SAVE_SpA
 349         CALLER_SAVE_SuA
 350         CALLER_SAVE_SpB
 351         CALLER_SAVE_SuB
 352         CALLER_SAVE_Ret
 353         CALLER_SAVE_Hp
 354         CALLER_SAVE_HpLim
 355         _ccall_result = (b((_ccall_arg1)));
 356         CALLER_RESTORE_Base
 357         CALLER_RESTORE_SpA
 358         CALLER_RESTORE_SuA
 359         CALLER_RESTORE_SpB
 360         CALLER_RESTORE_SuB
 361         CALLER_RESTORE_Ret
 362         CALLER_RESTORE_Hp
 363         CALLER_RESTORE_HpLim
 364         CALLER_RESTORE_StdUpdRetVec
 365         CALLER_RESTORE_StkStub
 366         s1GN_=_ccall_result;
 367         }
 368         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 369         *Hp=(W_)(s1GN_);
 370         R4.p=STBase_SZh_static_closure;
 371         R3.p=Hp-_FHS;
 372         SpB=SpB-1;
 373         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 374         GRAN_EXEC(10,2,22,22,0);
 375         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 376         FE_
 377 }
 378 UNVECTBL(static,vtbl_c1R3,ret_c1R3)
 379 IFN_(ret_c1R2) {
 380         FB_
 381         RetReg=(StgRetAddr)UNVEC(ret_c1R3,vtbl_c1R3);
 382         R1.p=*SpA;
 383         SpA=SpA+1;
 384         ENT_VIA_NODE();
 385         GRAN_EXEC(3,1,2,1,0);
 386         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 387         FE_
 388 }
 389 UNVECTBL(static,vtbl_c1R2,ret_c1R2)
 390 SPEC_N_ITBL(c1Qp_info,c1Qp_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
 391 IFN_(c1Qp_entry) {
 392 IF_(c1Qp_fast1);
 393         FB_
 394         ARGS_CHK_A(1);
 395         R2.p=*SpA;
 396         SpA=SpA+1;
 397         GRAN_EXEC(5,2,1,0,0);
 398         JMP_(c1Qp_fast1);
 399         FE_
 400 }
 401 IFN_(c1Qp_fast1) {
 402         FB_
 403         STK_CHK(3,1,1,0,0,0,1);
 404         SpB[1]=(W_)(RetReg);
 405         RetReg=(StgRetAddr)UNVEC(ret_c1R2,vtbl_c1R2);
 406         SpA[-1]=(P_)(R1.p[_FHS]);
 407         R1=R2;
 408         SpA=SpA-1;
 409         SpB=SpB+1;
 410         ENT_VIA_NODE();
 411         GRAN_EXEC(5,1,2,2,0);
 412         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 413         FE_
 414 }
 415 STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 416 FN_(Test_b_entry) {
 417 ED_(Test_b_closure);
 418 EF_(Test_b_fast1);
 419         FB_
 420         ARGS_CHK_A_LOAD_NODE(1,Test_b_closure);
 421         R1.p=*SpA;
 422         SpA=SpA+1;
 423         GRAN_EXEC(5,2,1,0,0);
 424         JMP_(Test_b_fast1);
 425         FE_
 426 }
 427 FN_(Test_b_fast1) {
 428 ID_RO_(c1Qp_info);
 429 IF_(c1Qp_entry);
 430         FB_
 431         HEAP_CHK(1,(_FHS+1),0);
 432         SET_SPEC_HDR(Hp-_FHS,c1Qp_info,0,1,1);
 433         *Hp=(W_)(R1.p);
 434         R1.p=Hp-_FHS;
 435         GRAN_EXEC(5,2,0,2,0);
 436         JMP_(c1Qp_entry);
 437         FE_
 438 }
 439 SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_)
 440 };
 441 IFN_(ret_c1R9) {
 442 ED_RO_(PrelBase_FZh_con_info);
 443 ED_(STBase_SZh_static_closure);
 444 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 445 StgFloat s1IC_;
 446         FB_
 447         HEAP_CHK(0,(_FHS+1),0);
 448         {
 449         StgFloat _ccall_result;
 450         I_ _ccall_arg1=(I_)(SpB[-2]);
 451         StgChar _ccall_arg2=(StgChar)(SpB[-1]);
 452         StgFloat _ccall_arg3=PK_FLT(SpB);
 453         StgDouble _ccall_arg4=DblReg1;
 454         CALLER_SAVE_Base
 455         CALLER_SAVE_SpA
 456         CALLER_SAVE_SuA
 457         CALLER_SAVE_SpB
 458         CALLER_SAVE_SuB
 459         CALLER_SAVE_Ret
 460         CALLER_SAVE_Hp
 461         CALLER_SAVE_HpLim
 462         _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
 463         CALLER_RESTORE_Base
 464         CALLER_RESTORE_SpA
 465         CALLER_RESTORE_SuA
 466         CALLER_RESTORE_SpB
 467         CALLER_RESTORE_SuB
 468         CALLER_RESTORE_Ret
 469         CALLER_RESTORE_Hp
 470         CALLER_RESTORE_HpLim
 471         CALLER_RESTORE_StdUpdRetVec
 472         CALLER_RESTORE_StkStub
 473         s1IC_=_ccall_result;
 474         }
 475         SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
 476         ASSIGN_FLT(Hp,s1IC_);
 477         R4.p=STBase_SZh_static_closure;
 478         R3.p=Hp-_FHS;
 479         SpB=SpB-4;
 480         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 481         GRAN_EXEC(10,2,25,22,0);
 482         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 483         FE_
 484 }
 485 UNVECTBL(static,vtbl_c1R9,ret_c1R9)
 486 IFN_(ret_c1R8) {
 487         FB_
 488         RetReg=(StgRetAddr)UNVEC(ret_c1R9,vtbl_c1R9);
 489         R1.p=*SpA;
 490         ASSIGN_FLT(SpB+1,FltReg1);
 491         SpA=SpA+4;
 492         SpB=SpB+1;
 493         ENT_VIA_NODE();
 494         GRAN_EXEC(4,1,2,1,0);
 495         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 496         FE_
 497 }
 498 UNVECTBL(static,vtbl_c1R8,ret_c1R8)
 499 IFN_(ret_c1R7) {
 500         FB_
 501         RetReg=(StgRetAddr)UNVEC(ret_c1R8,vtbl_c1R8);
 502         R1.p=SpA[1];
 503         SpB[1]=(W_)(R3.c);
 504         SpA[1]=StkStubReg;
 505         SpB=SpB+1;
 506         ENT_VIA_NODE();
 507         GRAN_EXEC(3,1,2,2,0);
 508         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 509         FE_
 510 }
 511 UNVECTBL(static,vtbl_c1R7,ret_c1R7)
 512 IFN_(ret_c1R6) {
 513         FB_
 514         RetReg=(StgRetAddr)UNVEC(ret_c1R7,vtbl_c1R7);
 515         R1.p=SpA[2];
 516         SpB[1]=(W_)(R3.i);
 517         SpA[2]=StkStubReg;
 518         SpB=SpB+1;
 519         ENT_VIA_NODE();
 520         GRAN_EXEC(3,1,2,2,0);
 521         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 522         FE_
 523 }
 524 UNVECTBL(static,vtbl_c1R6,ret_c1R6)
 525 IFN_(ret_c1R5) {
 526         FB_
 527         RetReg=(StgRetAddr)UNVEC(ret_c1R6,vtbl_c1R6);
 528         R1.p=SpA[3];
 529         SpA[3]=StkStubReg;
 530         ENT_VIA_NODE();
 531         GRAN_EXEC(2,1,2,2,0);
 532         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 533         FE_
 534 }
 535 UNVECTBL(static,vtbl_c1R5,ret_c1R5)
 536 SPEC_N_ITBL(c1PP_info,c1PP_entry,StdErrorCode,1,-1,4,4,static const,IF_,0,0,0);
 537 IFN_(c1PP_entry) {
 538 IF_(c1PP_fast1);
 539         FB_
 540         ARGS_CHK_A(1);
 541         R2.p=*SpA;
 542         SpA=SpA+1;
 543         GRAN_EXEC(5,2,1,0,0);
 544         JMP_(c1PP_fast1);
 545         FE_
 546 }
 547 IFN_(c1PP_fast1) {
 548         FB_
 549         STK_CHK(3,4,4,0,0,0,1);
 550         SpB[1]=(W_)(RetReg);
 551         RetReg=(StgRetAddr)UNVEC(ret_c1R5,vtbl_c1R5);
 552         SpA[-4]=(P_)(R1.p[(_FHS+3)]);
 553         SpA[-3]=(P_)(R1.p[(_FHS+2)]);
 554         SpA[-2]=(P_)(R1.p[(_FHS+1)]);
 555         SpA[-1]=(P_)(R1.p[_FHS]);
 556         R1=R2;
 557         SpA=SpA-4;
 558         SpB=SpB+1;
 559         ENT_VIA_NODE();
 560         GRAN_EXEC(5,1,5,5,0);
 561         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 562         FE_
 563 }
 564 STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0);
 565 FN_(Test_c_entry) {
 566 ED_(Test_c_closure);
 567 EF_(Test_c_fast4);
 568         FB_
 569         ARGS_CHK_A_LOAD_NODE(4,Test_c_closure);
 570         R1.p=*SpA;
 571         R2.p=SpA[1];
 572         R3.p=SpA[2];
 573         R4.p=SpA[3];
 574         SpA=SpA+4;
 575         GRAN_EXEC(5,2,4,0,0);
 576         JMP_(Test_c_fast4);
 577         FE_
 578 }
 579 FN_(Test_c_fast4) {
 580 ID_RO_(c1PP_info);
 581 IF_(c1PP_entry);
 582         FB_
 583         HEAP_CHK(15,(_FHS+4),0);
 584         SET_SPEC_HDR(Hp-(_FHS+3),c1PP_info,0,4,4);
 585         Hp[-3]=(W_)(R1.p);
 586         Hp[-2]=(W_)(R2.p);
 587         Hp[-1]=(W_)(R3.p);
 588         *Hp=(W_)(R4.p);
 589         R1.p=Hp-(_FHS+3);
 590         GRAN_EXEC(5,2,0,5,0);
 591         JMP_(c1PP_entry);
 592         FE_
 593 }
 594 SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_)
 595 };
 596 IFN_(ret_c1Rc) {
 597 ED_RO_(PrelBase_IZh_con_info);
 598 ED_(STBase_SZh_static_closure);
 599 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 600 I_ s1K9_;
 601         FB_
 602         HEAP_CHK(0,(_FHS+1),0);
 603         {
 604         I_ _ccall_result;
 605         I_ _ccall_arg1=R3.i;
 606         CALLER_SAVE_Base
 607         CALLER_SAVE_SpA
 608         CALLER_SAVE_SuA
 609         CALLER_SAVE_SpB
 610         CALLER_SAVE_SuB
 611         CALLER_SAVE_Ret
 612         CALLER_SAVE_Hp
 613         CALLER_SAVE_HpLim
 614         _ccall_result = (b((_ccall_arg1)));
 615         CALLER_RESTORE_Base
 616         CALLER_RESTORE_SpA
 617         CALLER_RESTORE_SuA
 618         CALLER_RESTORE_SpB
 619         CALLER_RESTORE_SuB
 620         CALLER_RESTORE_Ret
 621         CALLER_RESTORE_Hp
 622         CALLER_RESTORE_HpLim
 623         CALLER_RESTORE_StdUpdRetVec
 624         CALLER_RESTORE_StkStub
 625         s1K9_=_ccall_result;
 626         }
 627         SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0);
 628         *Hp=(W_)(s1K9_);
 629         R4.p=STBase_SZh_static_closure;
 630         R3.p=Hp-_FHS;
 631         SpB=SpB-1;
 632         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 633         GRAN_EXEC(10,2,22,22,0);
 634         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 635         FE_
 636 }
 637 UNVECTBL(static,vtbl_c1Rc,ret_c1Rc)
 638 IFN_(ret_c1Rb) {
 639         FB_
 640         RetReg=(StgRetAddr)UNVEC(ret_c1Rc,vtbl_c1Rc);
 641         R1.p=*SpA;
 642         SpA=SpA+1;
 643         ENT_VIA_NODE();
 644         GRAN_EXEC(3,1,2,1,0);
 645         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 646         FE_
 647 }
 648 UNVECTBL(static,vtbl_c1Rb,ret_c1Rb)
 649 SPEC_N_ITBL(s1KM_info,s1KM_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
 650 IFN_(s1KM_entry) {
 651 IF_(s1KM_fast1);
 652         FB_
 653         ARGS_CHK_A(1);
 654         R2.p=*SpA;
 655         SpA=SpA+1;
 656         GRAN_EXEC(5,2,1,0,0);
 657         JMP_(s1KM_fast1);
 658         FE_
 659 }
 660 IFN_(s1KM_fast1) {
 661         FB_
 662         STK_CHK(3,1,1,0,0,0,1);
 663         SpB[1]=(W_)(RetReg);
 664         RetReg=(StgRetAddr)UNVEC(ret_c1Rb,vtbl_c1Rb);
 665         SpA[-1]=(P_)(R1.p[_FHS]);
 666         R1=R2;
 667         SpA=SpA-1;
 668         SpB=SpB+1;
 669         ENT_VIA_NODE();
 670         GRAN_EXEC(5,1,2,2,0);
 671         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 672         FE_
 673 }
 674 IFN_(ret_c1Rh) {
 675 ED_RO_(PrelBase_FZh_con_info);
 676 ED_(STBase_SZh_static_closure);
 677 ED_RO_(PrelTup_Z40Z44Z41_inregs_info);
 678 StgFloat s1LF_;
 679         FB_
 680         HEAP_CHK(0,(_FHS+1),0);
 681         {
 682         StgFloat _ccall_result;
 683         I_ _ccall_arg1=(I_)(SpB[-1]);
 684         StgChar _ccall_arg2=(C_)'f';
 685         StgFloat _ccall_arg3=PK_FLT(SpB);
 686         StgDouble _ccall_arg4=DblReg1;
 687         CALLER_SAVE_Base
 688         CALLER_SAVE_SpA
 689         CALLER_SAVE_SuA
 690         CALLER_SAVE_SpB
 691         CALLER_SAVE_SuB
 692         CALLER_SAVE_Ret
 693         CALLER_SAVE_Hp
 694         CALLER_SAVE_HpLim
 695         _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4)));
 696         CALLER_RESTORE_Base
 697         CALLER_RESTORE_SpA
 698         CALLER_RESTORE_SuA
 699         CALLER_RESTORE_SpB
 700         CALLER_RESTORE_SuB
 701         CALLER_RESTORE_Ret
 702         CALLER_RESTORE_Hp
 703         CALLER_RESTORE_HpLim
 704         CALLER_RESTORE_StdUpdRetVec
 705         CALLER_RESTORE_StkStub
 706         s1LF_=_ccall_result;
 707         }
 708         SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0);
 709         ASSIGN_FLT(Hp,s1LF_);
 710         R4.p=STBase_SZh_static_closure;
 711         R3.p=Hp-_FHS;
 712         SpB=SpB-3;
 713         R2.d=PrelTup_Z40Z44Z41_inregs_info;
 714         GRAN_EXEC(11,2,24,22,0);
 715         JMP_(DIRECT((StgRetAddr)(SpB[1])));
 716         FE_
 717 }
 718 UNVECTBL(static,vtbl_c1Rh,ret_c1Rh)
 719 IFN_(ret_c1Rg) {
 720 ID_(a15t_closure);
 721         FB_
 722         RetReg=(StgRetAddr)UNVEC(ret_c1Rh,vtbl_c1Rh);
 723         R1.p=a15t_closure;
 724         ASSIGN_FLT(SpB+1,FltReg1);
 725         SpB=SpB+1;
 726         ENT_VIA_NODE();
 727         GRAN_EXEC(5,1,1,1,0);
 728         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 729         FE_
 730 }
 731 UNVECTBL(static,vtbl_c1Rg,ret_c1Rg)
 732 IFN_(ret_c1Rf) {
 733 ID_(a15r_closure);
 734         FB_
 735         RetReg=(StgRetAddr)UNVEC(ret_c1Rg,vtbl_c1Rg);
 736         R1.p=a15r_closure;
 737         SpB[1]=(W_)(R3.i);
 738         SpB=SpB+1;
 739         ENT_VIA_NODE();
 740         GRAN_EXEC(5,1,1,1,0);
 741         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 742         FE_
 743 }
 744 UNVECTBL(static,vtbl_c1Rf,ret_c1Rf)
 745 IFN_(ret_c1Re) {
 746         FB_
 747         RetReg=(StgRetAddr)UNVEC(ret_c1Rf,vtbl_c1Rf);
 748         R1.p=*SpA;
 749         SpA=SpA+1;
 750         ENT_VIA_NODE();
 751         GRAN_EXEC(3,1,2,1,0);
 752         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 753         FE_
 754 }
 755 UNVECTBL(static,vtbl_c1Re,ret_c1Re)
 756 SPEC_N_ITBL(c1OR_info,c1OR_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0);
 757 IFN_(c1OR_entry) {
 758 IF_(c1OR_fast1);
 759         FB_
 760         ARGS_CHK_A(1);
 761         R2.p=*SpA;
 762         SpA=SpA+1;
 763         GRAN_EXEC(5,2,1,0,0);
 764         JMP_(c1OR_fast1);
 765         FE_
 766 }
 767 IFN_(c1OR_fast1) {
 768         FB_
 769         STK_CHK(3,1,3,0,0,0,1);
 770         SpB[1]=(W_)(RetReg);
 771         RetReg=(StgRetAddr)UNVEC(ret_c1Re,vtbl_c1Re);
 772         SpA[-1]=(P_)(R1.p[_FHS]);
 773         R1=R2;
 774         SpA=SpA-1;
 775         SpB=SpB+1;
 776         ENT_VIA_NODE();
 777         GRAN_EXEC(5,1,2,2,0);
 778         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 779         FE_
 780 }
 781 SPEC_N_ITBL(s1M6_info,s1M6_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
 782 IFN_(s1M6_entry) {
 783 IF_(s1M6_fast1);
 784         FB_
 785         ARGS_CHK_A(1);
 786         R2.p=*SpA;
 787         SpA=SpA+1;
 788         GRAN_EXEC(5,2,1,0,0);
 789         JMP_(s1M6_fast1);
 790         FE_
 791 }
 792 IFN_(s1M6_fast1) {
 793 ID_RO_(c1OR_info);
 794 IF_(c1OR_entry);
 795         FB_
 796         HEAP_CHK(3,(_FHS+1),1);
 797         SET_SPEC_HDR(Hp-_FHS,c1OR_info,0,1,1);
 798         *Hp=(W_)(R2.p);
 799         R1.p=Hp-_FHS;
 800         GRAN_EXEC(5,2,0,2,0);
 801         JMP_(c1OR_entry);
 802         FE_
 803 }
 804 SPEC_N_ITBL(s1Ma_info,s1Ma_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0);
 805 IFN_(s1Ma_entry) {
 806 IF_(s1Ma_fast1);
 807         FB_
 808         ARGS_CHK_A(1);
 809         R2.p=*SpA;
 810         SpA=SpA+1;
 811         GRAN_EXEC(5,2,1,0,0);
 812         JMP_(s1Ma_fast1);
 813         FE_
 814 }
 815 IFN_(s1Ma_fast1) {
 816 ID_RO_(s1KM_info);
 817 ID_RO_(s1M6_info);
 818 ED_(STBase_thenPrimIO_closure);
 819         FB_
 820         STK_CHK(3,2,0,0,0,0,1);
 821         HEAP_CHK(3,((_FHS*2)+2),1);
 822         SET_SPEC_HDR(Hp-((_FHS*2)+1),s1KM_info,0,1,1);
 823         Hp[-(_FHS+1)]=(W_)(R2.p);
 824         SET_SPEC_HDR(Hp-_FHS,s1M6_info,0,1,0);
 825         SpA[-1]=Hp-_FHS;
 826         SpA[-2]=Hp-((_FHS*2)+1);
 827         R1.p=STBase_thenPrimIO_closure;
 828         SpA=SpA-2;
 829         ENT_VIA_NODE();
 830         GRAN_EXEC(9,2,3,5,0);
 831         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 832         FE_
 833 }
 834 STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,const,EF_,0,0,0);
 835 FN_(Test_d_entry) {
 836 ID_RO_(s1Ma_info);
 837 ED_(Test_a_closure);
 838 ED_(STBase_thenPrimIO_closure);
 839         FB_
 840         STK_CHK(1,2,4,0,0,0,1);
 841         HEAP_CHK(1,(BH_HS+_FHS+3),1);
 842         SET_BH_HDR(Hp-(BH_HS+_FHS+2),BH_UPD_info,0,(BH_VHS+2),0);
 843         UPD_CAF(R1.p,Hp-(BH_HS+_FHS+2));
 844         PUSH_STD_UPD_FRAME(Hp-(BH_HS+_FHS+2),0,0);
 845         SET_SPEC_HDR(Hp-_FHS,s1Ma_info,0,1,0);
 846         SpA[-1]=Hp-_FHS;
 847         SpA[-2]=Test_a_closure;
 848         RetReg=StdUpdRetVecReg;
 849         R1.p=STBase_thenPrimIO_closure;
 850         SpA=SpA-2;
 851         SpB=SpB+4;
 852         ENT_VIA_NODE();
 853         GRAN_EXEC(23,2,3,11,0);
 854         JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p)))));
 855         FE_
 856 }
 857 SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_)
 858   , (W_)0, (W_)0
 859 };
 860 ghc: module version changed to 1; reason: no old .hi file