[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