suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid inlining copy_stack

Browse Source 
svn: r1346
This commit is contained in:
Matthew Flatt 2005-11-18 20:26:14 +00:00
parent cc53ef5ccb
commit 10815abe33
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/setjmpup.c
View File

@ -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) {