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

CloseSlots should work even if the stack doesn't have a slot on top.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-08-31 13:56:32 -07:00
parent dfa10d1c23
commit e5a62a8843
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
H/Yap.h
View File

@ -1377,6 +1377,8 @@ Yap_StartSlots( USES_REGS1 ) {
static inline void static inline void
Yap_CloseSlots( USES_REGS1 ) { Yap_CloseSlots( USES_REGS1 ) {
Int old_slots; Int old_slots;
if (CurSlot < LCL0-ASP)
return;
old_slots = IntOfTerm(ASP[0]); old_slots = IntOfTerm(ASP[0]);
ASP += (old_slots+1); ASP += (old_slots+1);
CurSlot = IntOfTerm(*ASP); CurSlot = IntOfTerm(*ASP);