mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

scm_with_guile calls GC_call_with_gc_active

Browse source 
* configure.ac: Check for GC_call_with_gc_active.

* libguile/threads.h (scm_i_thread): Remove "top", as it's not used.

* libguile/threads.c (with_gc_inactive, with_gc_active): Define shims to
  GC_do_blocking and GC_call_with_gc_active.
  (scm_i_init_thread_for_guile): Don't do thread base adjustment here,
  do it in scm_i_with_guile_and_parent.  The previous logic would never
  be run.
  (scm_i_with_guile_and_parent): If we enter Guile mode, leave it too.
  Take care of adjusting the thread stack base here too.  Also, call
  with_gc_active.
  (scm_without_guile): Refactor.
This commit is contained in:
Andy Wingo 2011-01-22 19:55:31 +01:00
parent 6d6b2d4fcd
commit cde24ce12b
3 changed files with 134 additions and 90 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/threads.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_THREADS_H
#define SCM_THREADS_H
/* Copyright (C) 1996,1997,1998,2000,2001, 2002, 2003, 2004, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
/* Copyright (C) 1996,1997,1998,2000,2001, 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2011 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -109,7 +109,6 @@ typedef struct scm_i_thread {
/* For keeping track of the stack and registers. */
SCM vm;
SCM_STACKITEM *base;
SCM_STACKITEM *top;
scm_i_jmp_buf regs;
#ifdef __ia64__
void *register_backing_store_base;