From 81970013ed9598dd1556d5686551c307cd037d68 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 24 May 2009 15:14:44 -0500
Subject: [PATCH] allow storing a pointer.

---
 C/adtdefs.c  | 6 ++++++
 H/Yapproto.h | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/C/adtdefs.c b/C/adtdefs.c
index a95582b80..97a43ba73 100644
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -1315,6 +1315,12 @@ Yap_GetFromSlot(long slot)
   return(Deref(LCL0[slot]));
 }
 
+Term
+Yap_GetPtrFromSlot(long slot)
+{
+  return(LCL0[slot]);
+}
+
 Term *
 Yap_AddressFromSlot(long slot)
 {
diff --git a/H/Yapproto.h b/H/Yapproto.h
index 2d7782c8d..86625d3e4 100644
--- a/H/Yapproto.h
+++ b/H/Yapproto.h
@@ -63,7 +63,7 @@ long    STD_PROTO(Yap_InitSlot,(Term));
 long    STD_PROTO(Yap_NewSlots,(int));
 Term    STD_PROTO(Yap_GetFromSlot,(long));
 int     STD_PROTO(Yap_RecoverSlots,(int));
-Term    STD_PROTO(Yap_GetFromSlot,(long));
+Term    STD_PROTO(Yap_GetPtrFromSlot,(long));
 Term   *STD_PROTO(Yap_AddressFromSlot,(long));
 void    STD_PROTO(Yap_PutInSlot,(long, Term));