X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsave.c;h=8520eb9a521e127ecdf2e08b3effa49df3c89a94;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=9746524918536e3e6abcba38486ab23c15d9f255;hpb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;p=sbcl.git diff --git a/src/runtime/save.c b/src/runtime/save.c index 9746524..8520eb9 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -16,10 +16,14 @@ #include #include #include -#include #include #include "sbcl.h" +#if defined(LISP_FEATURE_WIN32) && defined(LISP_FEATURE_SB_THREAD) +#include "pthreads_win32.h" +#else +#include +#endif #include "runtime.h" #include "os.h" #include "core.h" @@ -311,7 +315,7 @@ save_to_filehandle(FILE *file, char *filename, lispobj init_function, if (data) { unsigned long word; long offset; - int i; + page_index_t i; for (i = 0; i < last_free_page; i++) { /* Thanks to alignment requirements, the two low bits * are always zero, so we can use them to store the