diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-03-21 22:16:33 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-05 00:45:58 +0200 |
commit | 26224b3f5d795e523e921ec32ffec424893ea035 (patch) | |
tree | d5c47fc98334b4c068610b66435cdce0788f4268 /libguile/gdbint.c | |
parent | 5695ccd43b051caf99f1ca94f00f7231c1466439 (diff) | |
download | guile-26224b3f5d795e523e921ec32ffec424893ea035.tar.gz |
Merge from lcourtes@laas.fr--2005-mobile
Patches applied:
* lcourtes@laas.fr--2005-mobile/guile-core--boehm-gc--1.9 (base, patch 1)
- tag of lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--base-0
- Initial hack for Boehm's GC support: nothing works.
git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-1
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 1db7cec7f..1062b9915 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -112,6 +112,7 @@ static SCM gdb_output_port; static void unmark_port (SCM port) { +#if 0 SCM stream, string; port_mark_p = SCM_GC_MARK_P (port); SCM_CLEAR_GC_MARK (port); @@ -121,12 +122,16 @@ unmark_port (SCM port) string = SCM_CDR (stream); string_mark_p = SCM_GC_MARK_P (string); SCM_CLEAR_GC_MARK (string); +#else + abort (); /* FIXME */ +#endif } static void remark_port (SCM port) { +#if 0 SCM stream = SCM_PACK (SCM_STREAM (port)); SCM string = SCM_CDR (stream); if (string_mark_p) @@ -135,24 +140,29 @@ remark_port (SCM port) SCM_SET_GC_MARK (stream); if (port_mark_p) SCM_SET_GC_MARK (port); +#else + abort (); /* FIXME */ +#endif } int gdb_maybe_valid_type_p (SCM value) { - return SCM_IMP (value) || scm_in_heap_p (value); + return SCM_IMP (value); /* || scm_in_heap_p (value); */ /* FIXME: What to + do? */ } int gdb_read (char *str) { +#if 0 SCM ans; int status = 0; RESET_STRING; /* Need to be restrictive about what to read? */ - if (SCM_GC_P) + if (1) /* (SCM_GC_P) */ /* FIXME */ { char *p; for (p = str; *p != '\0'; ++p) @@ -207,6 +217,9 @@ exit: remark_port (gdb_input_port); SCM_END_FOREIGN_BLOCK; return status; +#else + abort (); +#endif } |