From 155526c8ae1c67616eb41d72784d8b20045e1885 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 25 Mar 2006 20:28:05 +0000
Subject: [PATCH] call new with explicit GC mode

svn: r2507
---
 collects/compiler/private/xform.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.ss
index 1bf0d7b74e..8e0796cef0 100644
--- a/collects/compiler/private/xform.ss
+++ b/collects/compiler/private/xform.ss
@@ -675,12 +675,12 @@
           (printf "~n")
           
           ;; C++ cupport:
-          (printf "#define NEW_OBJ(t) new t~n")
-          (printf "#define NEW_ARRAY(t, array) (new t array)~n")
+          (printf "#define NEW_OBJ(t) new (UseGC) t~n")
+          (printf "#define NEW_ARRAY(t, array) (new (UseGC) t array)~n")
           (printf "#define NEW_ATOM(t) (new (AtomicGC) t)~n")
-          (printf "#define NEW_PTR(t) (new t)~n")
+          (printf "#define NEW_PTR(t) (new (UseGC) t)~n")
           (printf "#define NEW_ATOM_ARRAY(t, array) (new (AtomicGC) t array)~n")
-          (printf "#define NEW_PTR_ARRAY(t, array) (new t* array)~n")
+          (printf "#define NEW_PTR_ARRAY(t, array) (new (UseGC) t* array)~n")
           (printf "#define DELETE(x) (delete x)~n")
           (printf "#define DELETE_ARRAY(x) (delete[] x)~n")
           (printf (if callee-restore?