1 files changed, 20 insertions, 0 deletions
diff --git a/rts/SPT.c b/rts/SPT.c
new file mode 100644
index 0000000000..63a3b12d4e
--- /dev/null
+++ b/rts/SPT.c
@@ -0,0 +1,20 @@
+/*
+ * (c)2014 Tweag I/O
+ */
+
+#include "Rts.h"
+#include "Hash.h"
+
+static HashTable * spt = NULL;
+
+void hs_spt_insert(StgWord64 key[2],void *spe_closure) {
+  if (spt == NULL)
+    spt = allocFpHashTable();
+
+  getStablePtr(spe_closure);
+  insertHashTable(spt, (StgWord)key, spe_closure);
+}
+
+StgPtr hs_spt_lookup(StgWord64 key[2]) {
+    return lookupHashTable(spt, (StgWord)key);
+}