From 4d358d9914833ddbe66c6447b9d85a58569a3714 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 9 Mar 2016 13:12:50 -0700
Subject: [PATCH] Windows: fix logging for place activity

Logging tends to use "%Id" for `intptr_t` formatting,
at least with MSVC, but the log-string formatting function
didn't recognize the "%Id" pattern.
---
 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 7549a65653..d6ba17ecfa 100644
--- a/racket/src/racket/src/error.c
+++ b/racket/src/racket/src/error.c
@@ -245,7 +245,9 @@ Scheme_Config *scheme_init_error_escape_proc(Scheme_Config *config)
   %gd = long int
   %gx = long int
   %ld = intptr_t
+  %Id = intptr_t (for MSVC)
   %lx = intptr_t
+  %Ix = intptr_t (for MSVC)
   %o = int, octal
   %f = double
   %% = percent
@@ -315,6 +317,7 @@ static intptr_t sch_vsprintf(char *s, intptr_t maxlen, const char *msg, va_list
 	ints[ip++] = mzVA_ARG(args, long);
 	break;
       case 'l':
+      case 'I':
 	ints[ip++] = mzVA_ARG(args, intptr_t);
 	break;
       case 'f':
@@ -422,6 +425,7 @@ static intptr_t sch_vsprintf(char *s, intptr_t maxlen, const char *msg, va_list
 	    tlen = strlen(t);
 	  }
 	  break;
+	case 'I':
 	case 'l':
 	case 'g':
 	  {