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

fix _longjmp

This commit is contained in:
Vitor Santos Costa 2010-12-16 01:31:19 +00:00
parent 7ad5bc0214
commit 9a45897308
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/computils.c
View File

@ -122,7 +122,7 @@ AllocCMem (UInt size, struct intermediates *cip)
if (!p) {
Yap_Error_Size = size;
save_machine_regs();
_longjmp(cip->CompilerBotch, OUT_OF_HEAP_BOTCH);
siglongjmp(cip->CompilerBotch, OUT_OF_HEAP_BOTCH);
}
Yap_CMemFirstBlock = p;
Yap_CMemFirstBlockSz = blksz;
@ -132,7 +132,7 @@ AllocCMem (UInt size, struct intermediates *cip)
if (!p) {
Yap_Error_Size = size;
save_machine_regs();
_longjmp(cip->CompilerBotch, OUT_OF_HEAP_BOTCH);
siglongjmp(cip->CompilerBotch, OUT_OF_HEAP_BOTCH);
}
}
p->u.next = cip->blks;
@ -152,7 +152,7 @@ AllocCMem (UInt size, struct intermediates *cip)
if (ASP <= CellPtr (cip->freep) + 256) {
Yap_Error_Size = 256+((char *)cip->freep - (char *)H);
save_machine_regs();
_longjmp(cip->CompilerBotch, OUT_OF_STACK_BOTCH);
siglongjmp(cip->CompilerBotch, OUT_OF_STACK_BOTCH);
}
return (p);
#endif