From 98fa51f0e030464935b4cb350d7dfe10e556a2dd Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 17 Oct 2011 15:23:05 -0700
Subject: [PATCH] compiler: rt-safepoint and rel-safepoint words
---
basis/compiler/codegen/relocation/relocation.factor | 3 +++
basis/compiler/constants/constants.factor | 1 +
2 files changed, 4 insertions(+)
diff --git a/basis/compiler/codegen/relocation/relocation.factor b/basis/compiler/codegen/relocation/relocation.factor
index f2bc0d0de7..2a4447fa55 100644
--- 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 3440b85a80..fe12925e7f 100644
--- 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 -- ? )
${