From 2d039905376c1f8c2a2463e0f7295d28ed86216c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 28 Nov 2006 00:34:39 +0000
Subject: [PATCH] make xdnd compile for 3m

svn: r4964
---
 src/wxxt/src/Windows/xdnd.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/wxxt/src/Windows/xdnd.c b/src/wxxt/src/Windows/xdnd.c
index 37dbe13b44..b29dd382de 100644
--- a/src/wxxt/src/Windows/xdnd.c
+++ b/src/wxxt/src/Windows/xdnd.c
@@ -49,7 +49,9 @@
 
 #endif
 
-
+#ifdef MZ_PRECISE_GC
+START_XFORM_SKIP;
+#endif
 
 void
 xdnd_reset(DndClass * dnd)
@@ -92,8 +94,7 @@ xdnd_init(DndClass * dnd, Display * display)
   dnd->XdndActionPrivate=XInternAtom(dnd->display,"XdndActionPrivate",False);
   dnd->XdndTypeList = XInternAtom (dnd->display, "XdndTypeList", False);
   dnd->XdndActionList = XInternAtom (dnd->display, "XdndActionList", False);
-  dnd->XdndActionDescription = XInternAtom(dnd->display,
-    "XdndActionDescription", False);
+  dnd->XdndActionDescription = XInternAtom(dnd->display, "XdndActionDescription", False);
   dnd->text_uri_list = XInternAtom(dnd->display, "text/uri-list", False);
   xdnd_reset(dnd);
 }
@@ -371,6 +372,10 @@ xdnd_set_type_list(DndClass * dnd, Window window, Atom * typelist)
     PropModeReplace, (unsigned char *) typelist, n);
 }
 
+#ifdef MZ_PRECISE_GC
+END_XFORM_SKIP;
+#endif
+
 void
 xdnd_get_type_list(DndClass * dnd, Window window, Atom ** typelist)
 {
@@ -394,8 +399,9 @@ xdnd_get_type_list(DndClass * dnd, Window window, Atom ** typelist)
   tl = (Atom *)(new WXGC_ATOMIC char[(count + 1) * sizeof (Atom)]);
   *typelist = tl;
   a = (Atom *) data;
-  for (i = 0; i < count; i++)
+  for (i = 0; i < count; i++) {
     (*typelist)[i] = a[i];
+  }
   (*typelist)[count] = 0;
 
   XFree (data);