compiler: rt-safepoint and rel-safepoint words

diff --git a/basis/compiler/codegen/relocation/relocation.factor b/basis/compiler/codegen/relocation/relocation.factor
index f2bc0d0de7f8c2ce4c0c7ca2f879d5b86a67f324..2a4447fa5578cf9494ecfc58bb5c0c5e25e685ae 100644 (file)
--- a/basis/compiler/codegen/relocation/relocation.factor
+++ b/basis/compiler/codegen/relocation/relocation.factor
@@ -102,6 +102,9 @@ MEMO: cached-string>symbol ( symbol -- obj ) string>symbol ;
 : rel-inline-cache-miss ( class -- )
     rt-inline-cache-miss add-relocation ;
 
+: rel-safepoint ( class -- )
+    rt-safepoint add-relocation ;
+
 : init-relocation ( -- )
     V{ } clone parameter-table set
     V{ } clone literal-table set

diff --git a/basis/compiler/constants/constants.factor b/basis/compiler/constants/constants.factor
index 3440b85a8054c0b14e8c2d2485317fe6b2c66ae0..fe12925e7f75c8be3e1744164214a1bdeb285517 100644 (file)
--- a/basis/compiler/constants/constants.factor
+++ b/basis/compiler/constants/constants.factor
@@ -70,6 +70,7 @@ CONSTANT: rt-decks-offset 11
 CONSTANT: rt-exception-handler 12
 CONSTANT: rt-dlsym-toc 13
 CONSTANT: rt-inline-cache-miss 14
+CONSTANT: rt-safepoint 15
 
 : rc-absolute? ( n -- ? )
     ${