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

Fix deploy size regression

db4
Slava Pestov 2008-02-28 01:22:53 -06:00
parent 609e6eaa5a
commit 9d05d81491
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
vm/image.c
View File

@ -161,6 +161,9 @@ DEFINE_PRIMITIVE(save_image_and_exit)
for(i = 0; i < FIRST_SAVE_ENV; i++) for(i = 0; i < FIRST_SAVE_ENV; i++)
userenv[i] = F; userenv[i] = F;
for(i = LAST_SAVE_ENV + 1; i < USER_ENV; i++)
userenv[i] = F;
/* do a full GC + code heap compaction */ /* do a full GC + code heap compaction */
compact_code_heap(); compact_code_heap();

1
vm/run.h
View File

@ -64,6 +64,7 @@ typedef enum {
} F_ENVTYPE; } F_ENVTYPE;
#define FIRST_SAVE_ENV BOOT_ENV #define FIRST_SAVE_ENV BOOT_ENV
#define LAST_SAVE_ENV STAGE2_ENV
/* TAGGED user environment data; see getenv/setenv prims */ /* TAGGED user environment data; see getenv/setenv prims */
DLLEXPORT CELL userenv[USER_ENV]; DLLEXPORT CELL userenv[USER_ENV];