version 1.4, 1997/07/31 16:17:26
|
version 1.5, 1997/09/01 23:08:42
|
Line 194 Address verbose_malloc(Cell size)
|
Line 194 Address verbose_malloc(Cell size)
|
|
|
Address my_alloc(Cell size) |
Address my_alloc(Cell size) |
{ |
{ |
|
#if HAVE_MMAP |
static Address next_address=0; |
static Address next_address=0; |
Address r; |
Address r; |
|
|
#if HAVE_MMAP |
|
#if defined(MAP_ANON) |
#if defined(MAP_ANON) |
if (debug) |
if (debug) |
fprintf(stderr,"try mmap($%lx, $%lx, ..., MAP_ANON, ...); ", (long)next_address, (long)size); |
fprintf(stderr,"try mmap($%lx, $%lx, ..., MAP_ANON, ...); ", (long)next_address, (long)size); |
Line 292 Address loader(FILE *imagefile, char* fi
|
Line 292 Address loader(FILE *imagefile, char* fi
|
) |
) |
{ fprintf(stderr,"This image is %d bit %s-endian, whereas the machine is %d bit %s-endian.\n", |
{ fprintf(stderr,"This image is %d bit %s-endian, whereas the machine is %d bit %s-endian.\n", |
((magic[7]-'0')&~1)*8, endianstring[magic[7]&1], |
((magic[7]-'0')&~1)*8, endianstring[magic[7]&1], |
sizeof(Cell)*8, endianstring[ |
(int) sizeof(Cell)*8, endianstring[ |
#ifdef WORDS_BIGENDIAN |
#ifdef WORDS_BIGENDIAN |
0 |
0 |
#else |
#else |
Line 327 Address loader(FILE *imagefile, char* fi
|
Line 327 Address loader(FILE *imagefile, char* fi
|
pagesize=PAGESIZE; /* in limits.h according to Gallmeister's POSIX.4 book */ |
pagesize=PAGESIZE; /* in limits.h according to Gallmeister's POSIX.4 book */ |
#endif |
#endif |
if (debug) |
if (debug) |
fprintf(stderr,"pagesize=%d\n",pagesize); |
fprintf(stderr,"pagesize=%ld\n",(unsigned long) pagesize); |
|
|
image = dict_alloc(preamblesize+dictsize+data_offset)+data_offset; |
image = dict_alloc(preamblesize+dictsize+data_offset)+data_offset; |
rewind(imagefile); /* fseek(imagefile,0L,SEEK_SET); */ |
rewind(imagefile); /* fseek(imagefile,0L,SEEK_SET); */ |