diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix stream access.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-02-15 22:22:10 +00:00
parent 7cb271fd58
commit 145b9c1b4a
2 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C/iopreds.c
View File

@ -107,21 +107,9 @@ Yap_InitStdStreams (void)
{ {
} }
static void
InitPlIO (void)
{
Int i;
for (i = 0; i < MaxStreams; ++i) {
INIT_LOCK(Stream[i].streamlock);
Stream[i].status = Free_Stream_f;
}
}
void void
Yap_InitPlIO (void) Yap_InitPlIO (void)
{ {
InitPlIO ();
} }
/* /*
@ -320,8 +308,6 @@ typedef struct stream_ref
struct io_stream *write; struct io_stream *write;
} stream_ref; } stream_ref;
extern stream_ref *PL_blob_data(Atom, void *, void *);
#ifdef BEAM #ifdef BEAM
int beam_write (void) int beam_write (void)
{ {
@ -1277,5 +1263,4 @@ Yap_InitIOPreds(void)
Yap_InitCPred ("$float_format", 1, p_float_format, SafePredFlag|SyncPredFlag|HiddenPredFlag); Yap_InitCPred ("$float_format", 1, p_float_format, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$has_readline", 0, p_has_readline, SafePredFlag|HiddenPredFlag); Yap_InitCPred ("$has_readline", 0, p_has_readline, SafePredFlag|HiddenPredFlag);
InitPlIO ();
} }

12
H/rheap.h
View File

@ -924,18 +924,6 @@ RestoreDBErasedIList(void)
static void static void
RestoreStreams(void) RestoreStreams(void)
{ {
if (Yap_heap_regs->yap_streams != NULL) {
int sno;
Yap_heap_regs->yap_streams =
(struct stream_desc *)AddrAdjust((ADDR)Yap_heap_regs->yap_streams);
for (sno = 0; sno < MaxStreams; ++sno) {
if (Stream[sno].status & Free_Stream_f)
continue;
Stream[sno].u.file.user_name = AtomTermAdjust(Stream[sno].u.file.user_name);
Stream[sno].u.file.name = AtomAdjust(Stream[sno].u.file.name);
}
}
} }
static void static void