steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Bruno Deferrari 2008-07-26 13:47:52 -03:00
parent 939cac65b3 5a0c3e3d73
commit bf9bf85a72
4 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vm/errors.c
View File

@ -1,5 +1,12 @@
#include "master.h"
void out_of_memory(void)
{
fprintf(stderr,"Out of memory\n\n");
dump_generations();
exit(1);
}
void fatal_error(char* msg, CELL tagged)
{
fprintf(stderr,"fatal_error: %s %lx\n",msg,tagged);

1
vm/errors.h
View File

@ -19,6 +19,7 @@ typedef enum
ERROR_MEMORY,
} F_ERRORTYPE;
void out_of_memory(void);
void fatal_error(char* msg, CELL tagged);
void critical_error(char* msg, CELL tagged);
DECLARE_PRIMITIVE(die);

2
vm/os-unix.c
View File

@ -174,7 +174,7 @@ F_SEGMENT *alloc_segment(CELL size)
MAP_ANON | MAP_PRIVATE,-1,0);
if(array == (char*)-1)
fatal_error("Out of memory in alloc_segment",0);
out_of_memory();
if(mprotect(array,pagesize,PROT_NONE) == -1)
fatal_error("Cannot protect low guard page",(CELL)array);

2
vm/os-windows.c
View File

@ -171,7 +171,7 @@ F_SEGMENT *alloc_segment(CELL size)
if((mem = (char *)VirtualAlloc(NULL, getpagesize() * 2 + size,
MEM_COMMIT, PAGE_EXECUTE_READWRITE)) == 0)
fatal_error("Out of memory in alloc_segment",0);
out_of_memory();
if (!VirtualProtect(mem, getpagesize(), PAGE_NOACCESS, &ignore))
fatal_error("Cannot allocate low guard page", (CELL)mem);