compiler: rt-safepoint and rel-safepoint words

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

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 -- ? )
     ${