[commit: ghc] wip/nonmoving-gc: rts/Evac: Expose evacuate_static_object? (e8b48fa)

[git at git.haskell.org]

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

On branch  : wip/nonmoving-gc
Link       : http://ghc.haskell.org/trac/ghc/changeset/e8b48fa3969f0a15665e885d9aeeff7f937b13dc/ghc

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

commit e8b48fa3969f0a15665e885d9aeeff7f937b13dc
Author: Ömer Sinan Ağacan <omer at well-typed.com>
Date:   Tue Feb 5 12:11:29 2019 -0500

    rts/Evac: Expose evacuate_static_object?


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

e8b48fa3969f0a15665e885d9aeeff7f937b13dc
 rts/sm/Evac.c | 3 ++-
 rts/sm/Evac.h | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 45431fe..991ed3a 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -31,6 +31,7 @@
 #if defined(THREADED_RTS) && !defined(PARALLEL_GC)
 #define evacuate(p) evacuate1(p)
 #define evacuate_BLACKHOLE(p) evacuate_BLACKHOLE1(p)
+#define evacuate_static_object(p, q) evacuate_static_object1(p, q)
 #define HEAP_ALLOCED_GC(p) HEAP_ALLOCED(p)
 #endif
 
@@ -339,7 +340,7 @@ evacuate_large(StgPtr p)
      - link_field must be STATIC_LINK(q)
    ------------------------------------------------------------------------- */
 
-STATIC_INLINE void
+void
 evacuate_static_object (StgClosure **link_field, StgClosure *q)
 {
     StgWord link = (StgWord)*link_field;
diff --git a/rts/sm/Evac.h b/rts/sm/Evac.h
index 11f505c..e340cfc 100644
--- a/rts/sm/Evac.h
+++ b/rts/sm/Evac.h
@@ -34,6 +34,9 @@
 REGPARM1 void evacuate  (StgClosure **p);
 REGPARM1 void evacuate1 (StgClosure **p);
 
+void evacuate_static_object(StgClosure **link_field, StgClosure *q);
+void evacuate_static_object1(StgClosure **link_field, StgClosure *q);
+
 void evacuate_BLACKHOLE(StgClosure **p);
 void evacuate_BLACKHOLE1(StgClosure **p);