github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 07:54:13 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #442 from Interlisp/memory-allocation-via-mmap

Browse Source 
Use mmap() in place of posix_memalign() to allocate Lisp memory
This commit is contained in:
Nick Briggs 2022-09-01 11:18:23 -07:00 committed by GitHub
commit 5202c71a95
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ldsout.c
View File

@ -13,8 +13,9 @@
#include <fcntl.h> // for open, O_RDONLY
#include <stdio.h> // for perror, fprintf, printf, stderr, sprintf
#include <stdlib.h> // for exit, free, malloc, posix_memalign
#include <stdlib.h> // for exit, free, malloc
#include <string.h> // for memset
#include <sys/mman.h> // for mmap
#include <sys/stat.h> // for stat, fstat
#include <unistd.h> // for lseek, read, close, getpagesize
#include "adr68k.h" // for Addr68k_from_LADDR
@ -172,12 +173,11 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
/* allocate Virtual Memory Space */
if (posix_memalign((void *)&lispworld_scratch, getpagesize(), sys_size * MBYTE) != 0) {
lispworld_scratch = mmap(0, sys_size * MBYTE, PROT_READ|PROT_WRITE, MAP_ANON | MAP_PRIVATE, -1, 0);
if (lispworld_scratch == MAP_FAILED) {
fprintf(stderr, "sysout_loader: can't allocate Lisp %dMBytes VM \n", sys_size);
exit(-1);
}
/* Sadly, parts of the system depend on memory being initialized to zero */
memset(lispworld_scratch, 0, sys_size * MBYTE);
/* now you can access lispworld */
Lisp_world = (DLword *)lispworld_scratch;