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

cut should know about environment size.

Browse Source
This commit is contained in:
ubu32
2011-02-14 06:57:16 -08:00
parent 09f4810b76
commit 1717b113b3
7 changed files with 31 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/amasm.c
View File

@@ -2027,11 +2027,11 @@ a_cut(clause_info *clinfo, yamop *code_p, int pass_no, struct intermediates *cip
{
code_p = check_alloc(clinfo, code_p, pass_no, cip);
if (clinfo->dealloc_found) {
return a_e(_cut_e, code_p, pass_no);
return a_n(_cut_e, -Signed(RealEnvSize) - CELLSIZE * cip->cpc->rnd2, code_p, pass_no);
} else if (clinfo->alloc_found == 1) {
return a_e(_cut, code_p, pass_no);
return a_n(_cut, -Signed(RealEnvSize) - CELLSIZE * cip->cpc->rnd2, code_p, pass_no);
} else {
return a_e(_cut_t, code_p, pass_no);
return a_n(_cut_t, -Signed(RealEnvSize) - CELLSIZE * cip->cpc->rnd2, code_p, pass_no);
}
}