From e17acf5fef1d37c9e5c7dc4863520c663e87dd6d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 2 Jun 2014 18:26:50 +0100
Subject: [PATCH] Win64: fix JIT floating-point constant

Repairs commit 71591a62a4 for Win64, where `long` != `intptr_t`
---
 racket/src/racket/src/lightning/i386/core.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/lightning/i386/core.h b/racket/src/racket/src/lightning/i386/core.h
index 743ea35567..250c75a2ee 100644
--- a/racket/src/racket/src/lightning/i386/core.h
+++ b/racket/src/racket/src/lightning/i386/core.h
@@ -69,7 +69,7 @@ struct jit_local_state {
 #ifdef JIT_X86_SSE
   union {
     int	   i[2];
-    long   l;
+    intptr_t   l;
     double d;
   } d_data;
   jit_insn *tmp_label;