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

do not use internal slots

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-06-18 00:22:32 +01:00
parent 0e002f8ca0
commit 30af67b3ca
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/bignum.c
View File

@ -190,11 +190,10 @@ int Yap_CleanOpaqueVariable(CELL *pt)
}
Opaque_CallOnWrite
Yap_blob_write_handler_from_slot(Int slot)
Yap_blob_write_handler(Term t)
{
CACHE_REGS
CELL blob_info, blob_tag;
Term t = Yap_GetFromSlot(slot );
CELL *pt = RepAppl(t);
#ifdef DEBUG
@ -266,10 +265,9 @@ Yap_blob_gc_relocate_handler(Term t)
return GLOBAL_OpaqueHandlers[blob_info].gc_relocate_handler;
}
extern Int Yap_blob_tag_from_slot(Int slot)
extern Int Yap_blob_tag(Term t)
{
CACHE_REGS
Term t = Yap_GetFromSlot(slot);
CELL *pt = RepAppl(t);
#ifdef DEBUG
@ -283,11 +281,10 @@ extern Int Yap_blob_tag_from_slot(Int slot)
}
void *
Yap_blob_info_from_slot(Int slot)
Yap_blob_info(Term t)
{
CACHE_REGS
MP_INT *blobp;
Term t = Yap_GetFromSlot(slot);
CELL *pt = RepAppl(t);
#ifdef DEBUG