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

types

Browse Source
This commit is contained in:
Vitor Santos Costa 2015-01-16 20:02:43 -08:00
parent 0cca59b36f
commit 408333f0d4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
H/YapHandles.h
View File

@ -112,7 +112,7 @@ Yap_PutInSlot(yhandle_t slot, Term t USES_REGS)
/// @brief allocate n empty new slots /// @brief allocate n empty new slots
static inline yhandle_t static inline yhandle_t
Yap_NewSlots(int n USES_REGS) Yap_NewSlots(size_t n USES_REGS)
{ {
yhandle_t old_slots = IntOfTerm(ASP[0]), oldn = n; yhandle_t old_slots = IntOfTerm(ASP[0]), oldn = n;
while (n > 0) { while (n > 0) {
@ -132,7 +132,7 @@ Yap_countSlots( USES_REGS1 )
} }
/// @brief create a new slot with term t /// @brief create a new slot with term t
static inline Int static inline yhandle_t
Yap_InitSlot(Term t USES_REGS) Yap_InitSlot(Term t USES_REGS)
{ {
yhandle_t old_slots = IntOfTerm(ASP[0]); yhandle_t old_slots = IntOfTerm(ASP[0]);
@ -143,8 +143,8 @@ Yap_InitSlot(Term t USES_REGS)
} }
/// @brief Succeeds if it is to recover the space allocated for $n$ contiguos slots starting at topSlot. /// @brief Succeeds if it is to recover the space allocated for $n$ contiguos slots starting at topSlot.
static inline int static inline bool
Yap_RecoverSlots(int n, yhandle_t topSlot USES_REGS) Yap_RecoverSlots(size_t 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; new_slots = old_slots-n;
@ -152,10 +152,10 @@ Yap_RecoverSlots(int n, yhandle_t topSlot USES_REGS)
return FALSE; return FALSE;
} }
if (ASP+1 != LCL0+topSlot) if (ASP+1 != LCL0+topSlot)
return FALSE; return false;
ASP += n; ASP += n;
ASP[new_slots+1] = ASP[0] = MkIntTerm(new_slots); ASP[new_slots+1] = ASP[0] = MkIntTerm(new_slots);
return TRUE; return true;
} }
#endif #endif