[commit: ghc] master: rts: detabify/dewhitespace Apply.cmm (870cca8)

git at git.haskell.org git at git.haskell.org
Wed Aug 20 17:31:56 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/870cca8382f8c69d66eff54fe16cd4445e83dda6/ghc

>---------------------------------------------------------------

commit 870cca8382f8c69d66eff54fe16cd4445e83dda6
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Aug 20 12:22:24 2014 -0500

    rts: detabify/dewhitespace Apply.cmm
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

870cca8382f8c69d66eff54fe16cd4445e83dda6
 rts/Apply.cmm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/rts/Apply.cmm b/rts/Apply.cmm
index b89abea..9d18e95 100644
--- a/rts/Apply.cmm
+++ b/rts/Apply.cmm
@@ -105,13 +105,13 @@ for:
 /* DEBUGGING CODE, ensures that arity 1 and 2 functions are entered tagged
   if (TO_W_(StgFunInfoExtra_arity(%FUN_INFO(%INFO_PTR(UNTAG(R1))))) == 1 ) {
     if (GETTAG(R1)!=1) {
-	W_[0]=1;
+        W_[0]=1;
     }
   }
 
   if (TO_W_(StgFunInfoExtra_arity(%FUN_INFO(%INFO_PTR(UNTAG(R1))))) == 2 ) {
     if (GETTAG(R1)!=2) {
-	W_[0]=1;
+        W_[0]=1;
     }
   }
 */
@@ -133,9 +133,9 @@ for:
           jump StgFunInfoExtra_slow_apply(info) [R1];
       }
       if (type == ARG_BCO) {
-	  Sp_adj(-2);
-	  Sp(1) = R1;
-	  Sp(0) = stg_apply_interp_info;
+          Sp_adj(-2);
+          Sp(1) = R1;
+          Sp(0) = stg_apply_interp_info;
           jump stg_yield_to_interpreter [];
       }
       jump W_[stg_ap_stack_entries +
@@ -209,9 +209,9 @@ for:
           jump StgFunInfoExtra_slow_apply(info) [R1];
       }
       if (type == ARG_BCO) {
-	  Sp_adj(-2);
-	  Sp(1) = R1;
-	  Sp(0) = stg_apply_interp_info;
+          Sp_adj(-2);
+          Sp(1) = R1;
+          Sp(0) = stg_apply_interp_info;
           jump stg_yield_to_interpreter [];
       }
       jump W_[stg_ap_stack_entries +
@@ -278,9 +278,9 @@ for:
           jump StgFunInfoExtra_slow_apply(info) [R1];
       }
       if (type == ARG_BCO) {
-	  Sp_adj(-2);
-	  Sp(1) = R1;
-	  Sp(0) = stg_apply_interp_info;
+          Sp_adj(-2);
+          Sp(1) = R1;
+          Sp(0) = stg_apply_interp_info;
           jump stg_yield_to_interpreter [];
       }
       jump W_[stg_ap_stack_entries +



More information about the ghc-commits mailing list