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

Some parts of the system still depend on the Lisp memory being initialized to zero. Ensure that that happens.

Browse Source 
modified:   src/ldsout.c
This commit is contained in:
Nick Briggs
2020-09-19 22:05:06 -07:00
parent cb1b3c65e8
commit 4bf195ee71
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/ldsout.c
View File

@@ -206,11 +206,12 @@ int sysout_loader(char * sysout_file_name, int sys_size)
/* allocate Virtual Memory Space */
lispworld_scratch = valloc(sys_size * MBYTE);
if (lispworld_scratch == NULL) {
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;