From 2213b61536fe20c28f930ebb25d5e22b6ac57e84 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 9 Mar 2016 15:37:43 -0700
Subject: [PATCH] Windows (MinGW 64-bit): fix logging for place activity

Like 4d358d9914, but for 64-bit builds using MinGW.
---
 racket/src/racket/src/error.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/racket/src/racket/src/error.c b/racket/src/racket/src/error.c
index d6ba17ecfa..6dcd3fc7ea 100644
--- a/racket/src/racket/src/error.c
+++ b/racket/src/racket/src/error.c
@@ -246,8 +246,10 @@ Scheme_Config *scheme_init_error_escape_proc(Scheme_Config *config)
   %gx = long int
   %ld = intptr_t
   %Id = intptr_t (for MSVC)
+  %I64d = intptr_t (for MingGW)
   %lx = intptr_t
   %Ix = intptr_t (for MSVC)
+  %I64x = intptr_t (for MingGW)
   %o = int, octal
   %f = double
   %% = percent
@@ -431,6 +433,8 @@ static intptr_t sch_vsprintf(char *s, intptr_t maxlen, const char *msg, va_list
 	  {
 	    intptr_t d;
             int as_hex;
+            if ((type == 'I') && (msg[j] == '6') && (msg[j+1] == '4'))
+              j++;
             as_hex = (msg[j] == 'x');
 	    j++;
 	    d = ints[ip++];