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

fix msicalculaation in recovering cells.

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-10-23 01:16:30 +01:00
parent 61f5baf7a4
commit dab3a4a4f6
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
H/YapHandles.h
View File

@ -124,6 +124,13 @@ Yap_NewSlots(int n USES_REGS)
return((ASP+1)-LCL0); return((ASP+1)-LCL0);
} }
/// @brief report the number of slots in the current
static inline size_t
Yap_countSlots( USES_REGS1 )
{
return IntOfTerm(ASP[0]);;
}
/// @brief create a new slot with term t /// @brief create a new slot with term t
static inline Int static inline Int
Yap_InitSlot(Term t USES_REGS) Yap_InitSlot(Term t USES_REGS)
@ -139,14 +146,15 @@ Yap_InitSlot(Term t USES_REGS)
static inline int static inline int
Yap_RecoverSlots(int n, yhandle_t topSlot USES_REGS) Yap_RecoverSlots(int n, yhandle_t topSlot USES_REGS)
{ {
yhandle_t old_slots = IntOfTerm(ASP[0]); yhandle_t old_slots = IntOfTerm(ASP[0]),
new_slots = old_slots-n;
if (old_slots < n) { if (old_slots < n) {
return FALSE; return FALSE;
} }
if (ASP+1 != LCL0+topSlot) if (ASP+1 != LCL0+topSlot)
return FALSE; return FALSE;
ASP += n; ASP += n;
ASP[old_slots+(n-1)] = ASP[0] = MkIntTerm(old_slots-n); ASP[new_slots+1] = ASP[0] = MkIntTerm(new_slots);
return TRUE; return TRUE;
} }