From 578b2d846ba5907ab06078f585abd97d08e26278 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 27 Oct 2010 09:37:04 -0600
Subject: [PATCH] [Places] fxvector support, fix compiler warning

---
 src/racket/src/places.c | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/places.c b/src/racket/src/places.c
index 83276f7f95..3198832ddf 100644
--- a/src/racket/src/places.c
+++ b/src/racket/src/places.c
@@ -817,6 +817,22 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
         new_so = vec;
       }
       break;
+    case scheme_fxvector_type:
+      if (SHARED_ALLOCATEDP(so)) {
+        new_so = so;
+      }
+      else {
+        Scheme_Vector *vec;
+        long i;
+        long size = SCHEME_FXVEC_SIZE(so);
+        vec = scheme_alloc_fxvector(size);
+
+        for (i = 0; i < size; i++) {
+          SCHEME_FXVEC_ELS(vec)[i] = SCHEME_FXVEC_ELS(so)[i];
+        }
+        new_so = (Scheme_Object *) vec;
+      }
+      break;
     case scheme_flvector_type:
       if (SHARED_ALLOCATEDP(so)) {
         new_so = so;
@@ -1070,6 +1086,7 @@ Scheme_Object *scheme_places_deserialize_worker(Scheme_Object *so)
     case scheme_byte_string_type:
     case scheme_unix_path_type:
     case scheme_flvector_type:
+    case scheme_fxvector_type:
         new_so = so;
       break;
     case scheme_symbol_type:
@@ -1172,7 +1189,7 @@ Scheme_Object *scheme_place_send(int argc, Scheme_Object *args[]) {
       scheme_wrong_type("place-channel-send", "place-channel", 0, argc, args);
     }
     {
-      void *msg_memory;
+      void *msg_memory = NULL;
       mso = scheme_places_serialize(args[1], &msg_memory);
       scheme_place_async_send((Scheme_Place_Async_Channel *) ch->sendch, mso, msg_memory);
     }