chiark
/
gitweb
/
~mdw
/
runlisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dump-runlisp-image.c (finish_job): Prevent fresh images from junking!
[runlisp]
/
dump-runlisp-image.c
diff --git
a/dump-runlisp-image.c
b/dump-runlisp-image.c
index e33582d9de6f9953d0e3ebe9be2d6488cd6b14fc..836dc54c4de6bf539cc99a95bcd56a900b6a314c 100644
(file)
--- a/
dump-runlisp-image.c
+++ b/
dump-runlisp-image.c
@@
-996,6
+996,12
@@
static void finish_job(struct job *job)
ok = 0; break;
}
ok = 0; break;
}
+ /* Notice the image so that it doesn't get junked. */
+ if (flags&AF_JUNK) {
+ p = strrchr(job->imghash, '/'); if (p) p++; else p = job->imghash;
+ notice_filename(p, strlen(p));
+ }
+
/* Determine the basename of the final image. */
p = strrchr(job->imghash, '/'); if (p) p++; else p = job->imghash;
/* Determine the basename of the final image. */
p = strrchr(job->imghash, '/'); if (p) p++; else p = job->imghash;