summaryrefslogtreecommitdiff
path: root/libguile/gdbint.c
diff options
context:
space:
mode:
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
}