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

2011-08-31 13:56:32 -07:00 · 2011-08-31 13:56:32 -07:00 · e5a62a8843
commit e5a62a8843
parent dfa10d1c23
1 changed files with 2 additions and 0 deletions
--- a/H/Yap.h
+++ b/H/Yap.h
@ -1377,6 +1377,8 @@ Yap_StartSlots( USES_REGS1 ) {
 static inline void
 Yap_CloseSlots( USES_REGS1 ) {
  Int old_slots;
+  if (CurSlot < LCL0-ASP)
+    return;
  old_slots = IntOfTerm(ASP[0]);
  ASP += (old_slots+1);
  CurSlot = IntOfTerm(*ASP);