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

(SCM_BEGIN_FOREIGN_BLOCK, SCM_END_FOREIGN_BLOCK): Do not set

Browse source 
scm_block_gc.
This commit is contained in:
Marius Vollmer 2005-03-10 18:42:11 +00:00
parent b17e0ac397
commit fd20058d74
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/gdbint.c
View file

@ -66,7 +66,6 @@
*/ */
#define SCM_BEGIN_FOREIGN_BLOCK \ #define SCM_BEGIN_FOREIGN_BLOCK \
do { \ do { \
old_gc = scm_block_gc; scm_block_gc = 1; \
scm_print_carefully_p = 1; \ scm_print_carefully_p = 1; \
} while (0) } while (0)
@ -74,7 +73,6 @@ do { \
#define SCM_END_FOREIGN_BLOCK \ #define SCM_END_FOREIGN_BLOCK \
do { \ do { \
scm_print_carefully_p = 0; \ scm_print_carefully_p = 0; \
scm_block_gc = old_gc; \
} while (0) } while (0)
@ -109,7 +107,6 @@ static SCM tok_buf;
static int tok_buf_mark_p; static int tok_buf_mark_p;
static SCM gdb_output_port; static SCM gdb_output_port;
static int old_gc;
static void static void