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