diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow storing a pointer.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-24 15:14:44 -05:00
parent b94baf1e5f
commit 81970013ed
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/adtdefs.c
View File

@ -1315,6 +1315,12 @@ Yap_GetFromSlot(long slot)
return(Deref(LCL0[slot])); return(Deref(LCL0[slot]));
} }
Term
Yap_GetPtrFromSlot(long slot)
{
return(LCL0[slot]);
}
Term * Term *
Yap_AddressFromSlot(long slot) Yap_AddressFromSlot(long slot)
{ {

2
H/Yapproto.h
View File

@ -63,7 +63,7 @@ long STD_PROTO(Yap_InitSlot,(Term));
long STD_PROTO(Yap_NewSlots,(int)); long STD_PROTO(Yap_NewSlots,(int));
Term STD_PROTO(Yap_GetFromSlot,(long)); Term STD_PROTO(Yap_GetFromSlot,(long));
int STD_PROTO(Yap_RecoverSlots,(int)); int STD_PROTO(Yap_RecoverSlots,(int));
Term STD_PROTO(Yap_GetFromSlot,(long)); Term STD_PROTO(Yap_GetPtrFromSlot,(long));
Term *STD_PROTO(Yap_AddressFromSlot,(long)); Term *STD_PROTO(Yap_AddressFromSlot,(long));
void STD_PROTO(Yap_PutInSlot,(long, Term)); void STD_PROTO(Yap_PutInSlot,(long, Term));