[Git][ghc/ghc][wip/andreask/bytecode_tagging] Maybe fix it

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/andreask/bytecode_tagging at Glasgow Haskell Compiler / GHC


Commits:
7e614a66 by Andreas Klebinger at 2024-06-25T14:35:09+02:00
Maybe fix it

- - - - -


1 changed file:

- rts/Interpreter.c


Changes:

=====================================
rts/Interpreter.c
=====================================
@@ -316,18 +316,6 @@ STATIC_INLINE StgClosure *tagConstr(StgClosure *con) {
     return TAG_CLOSURE(stg_min(TAG_MASK, 1 + GET_TAG(con)), con);
 }
 
-// Compute the pointer tag for the function and tag the pointer;
-STATIC_INLINE StgClosure *tagFun(StgClosure *fun) {
-    StgHalfWord tag = GET_TAG(fun);
-    if(tag > TAG_MASK) { return fun; }
-    else {
-        return TAG_CLOSURE(tag, fun);
-    }
-
-
-}
-
-
 static StgWord app_ptrs_itbl[] = {
     (W_)&stg_ap_p_info,
     (W_)&stg_ap_pp_info,
@@ -1372,16 +1360,6 @@ run_BCO:
                         // pointer is tagged so it can use the tag to select an alternative.
                         tagged_obj = tagConstr(obj);
                         break;
-                    case FUN:
-                    case FUN_1_0:
-                    case FUN_0_1:
-                    case FUN_2_0:
-                    case FUN_1_1:
-                    case FUN_0_2:
-                    case FUN_STATIC:
-                        // Purely for performance since we already hit memory anyway.
-                        tagged_obj = tagFun(obj);
-                        break;
                     default:
                         break;
                 }



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7e614a66ecacf0110f81db1f1ba73322cd10cdc0

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7e614a66ecacf0110f81db1f1ba73322cd10cdc0
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240625/5bc6957c/attachment-0001.html>