From 10815abe337ac2c0cd3f5150b75a2f890c1964d4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 18 Nov 2005 20:26:14 +0000
Subject: [PATCH] avoid inlining copy_stack

svn: r1346
---
 src/mzscheme/src/setjmpup.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/setjmpup.c b/src/mzscheme/src/setjmpup.c
index 9aa99abdf0..45776dc309 100644
--- a/src/mzscheme/src/setjmpup.c
+++ b/src/mzscheme/src/setjmpup.c
@@ -258,7 +258,8 @@ END_XFORM_SKIP;
 # define GC_VAR_STACK_ARG      /* empty */
 #endif
 
-static void copy_stack(Scheme_Jumpup_Buf *b, void *base, void *start GC_VAR_STACK_ARG_DECL)
+/* This function must not be inlined! */
+void scheme_copy_stack(Scheme_Jumpup_Buf *b, void *base, void *start GC_VAR_STACK_ARG_DECL)
 {
   long size, msize;
   void *here;
@@ -404,7 +405,7 @@ int scheme_setjmpup_relative(Scheme_Jumpup_Buf *b, void *base,
     disguised_b = (long)b;
     b = NULL;
 
-    copy_stack((Scheme_Jumpup_Buf *)disguised_b, base, start GC_VAR_STACK_ARG);
+    scheme_copy_stack((Scheme_Jumpup_Buf *)disguised_b, base, start GC_VAR_STACK_ARG);
 
     /* Precise GC: ensure that this frame is pushed. */
     if (0) {