X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcoreparse.c;h=fefa834b6c2a207cd4477ec93fa21aadcbd0be58;hb=dd54f9e004a0a83d1328e94648f48dcc27e0be5b;hp=884a9e12e8e8bcd3e7dfef0de60c67880e1af18d;hpb=f74e03030b757c09e8770af5e8cfb788ff5d4547;p=sbcl.git diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c index 884a9e1..fefa834 100644 --- a/src/runtime/coreparse.c +++ b/src/runtime/coreparse.c @@ -14,6 +14,19 @@ * files for more information. */ +#include "sbcl.h" + +#ifndef LISP_FEATURE_WIN32 +#ifdef LISP_FEATURE_LINUX +/* For madvise */ +#define _BSD_SOURCE +#include +#undef _BSD_SOURCE +#else +#include +#endif +#endif + #include #include #include @@ -23,16 +36,6 @@ #include #include -#include "sbcl.h" - -#ifndef LISP_FEATURE_WIN32 -#ifdef LISP_FEATURE_LINUX -/* For madvise */ -# define _BSD_SOURCE -#endif -#include -#endif - #include "os.h" #include "runtime.h" #include "globals.h" @@ -529,7 +532,7 @@ load_core_file(char *file, os_vm_offset_t file_offset) } ptr += remaining_len; - FSHOW((stderr, "/new ptr=0x%"WORD_FTMX"\n", ptr)); + FSHOW((stderr, "/new ptr=0x%"WORD_FMTX"\n", ptr)); } SHOW("about to free(header)"); free(header);