summaryrefslogtreecommitdiff
path: root/libguile/gdbint.c
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-03-21 22:16:33 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-05 00:45:58 +0200
commit26224b3f5d795e523e921ec32ffec424893ea035 (patch)
treed5c47fc98334b4c068610b66435cdce0788f4268 /libguile/gdbint.c
parent5695ccd43b051caf99f1ca94f00f7231c1466439 (diff)
downloadguile-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.c17
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
}