diff options
author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-20 15:57:13 -0700 |
---|---|---|
committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-10-20 16:28:42 -0700 |
commit | 89a8d817f0c2951ec305c286a526205d06bf9221 (patch) | |
tree | 5295cab951600148bd83f1cae0ae5250816dc257 /includes/rts/storage/ClosureMacros.h | |
parent | 0202b7cefbaf76dc53d43562dbc84a52debe2eb2 (diff) | |
download | haskell-89a8d817f0c2951ec305c286a526205d06bf9221.tar.gz |
Revert "Rename _closure to _static_closure, apply naming consistently."
This reverts commit 35672072b4091d6f0031417bc160c568f22d0469.
Conflicts:
compiler/main/DriverPipeline.hs
Diffstat (limited to 'includes/rts/storage/ClosureMacros.h')
-rw-r--r-- | includes/rts/storage/ClosureMacros.h | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h index ea7905c46f..64e549a641 100644 --- a/includes/rts/storage/ClosureMacros.h +++ b/includes/rts/storage/ClosureMacros.h @@ -187,12 +187,11 @@ INLINE_HEADER StgClosure *STATIC_LINK2(const StgInfoTable *info, INTLIKE and CHARLIKE closures. -------------------------------------------------------------------------- */ -// XXX update me for indirection INLINE_HEADER P_ CHARLIKE_CLOSURE(int n) { - return (P_)&stg_CHARLIKE_static_closure[(n)-MIN_CHARLIKE]; + return (P_)&stg_CHARLIKE_closure[(n)-MIN_CHARLIKE]; } INLINE_HEADER P_ INTLIKE_CLOSURE(int n) { - return (P_)&stg_INTLIKE_static_closure[(n)-MIN_INTLIKE]; + return (P_)&stg_INTLIKE_closure[(n)-MIN_INTLIKE]; } /* ---------------------------------------------------------------------------- |