X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FmkDerivedConstants.c;h=2fe99b6ba552ebd3903cc5637b9332348b8c39e5;hp=f87db37debc7c4f2b2428fcdaecc3464acdac67a;hb=65ff44face84ae30f1ddf7d009d51c1778f8c7d3;hpb=bcaf68a97ba26a7bf781f9734fe7982dbb6db66d diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index f87db37..2fe99b6 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -33,12 +33,18 @@ #define OFFSET(s_type, field) ((size_t)&(((s_type*)0)->field)) +#ifdef mingw32_HOST_OS +#define SIZET_FMT "d" +#else +#define SIZET_FMT "zd" +#endif + #if defined(GEN_HASKELL) #define def_offset(str, offset) \ - printf("oFFSET_" str " = %zd::Int\n", offset); + printf("oFFSET_" str " = %" SIZET_FMT "::Int\n", offset); #else #define def_offset(str, offset) \ - printf("#define OFFSET_" str " %zd\n", offset); + printf("#define OFFSET_" str " %" SIZET_FMT "\n", offset); #endif #if defined(GEN_HASKELL)