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

fix deallocate

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-12-13 10:56:08 +00:00
parent 2410cd3862
commit cc5b90aafc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@ -890,8 +890,8 @@ interrupt_deallocate( USES_REGS1 )
PP = PREVOP(P,p)->u.p.p; PP = PREVOP(P,p)->u.p.p;
ASP = YENV+E_CB; ASP = YENV+E_CB;
/* cut_e */ /* cut_e */
if (S <= ASP) { if (YENV <= ASP) {
ASP = S-EnvSizeInCells; ASP = YENV-EnvSizeInCells;
} }
if (ASP > (CELL *)PROTECT_FROZEN_B(B)) if (ASP > (CELL *)PROTECT_FROZEN_B(B))
ASP = (CELL *)PROTECT_FROZEN_B(B); ASP = (CELL *)PROTECT_FROZEN_B(B);