You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 3728 Reporter: administrator Status: closed Resolution: fixed Priority: normal Severity: minor Category: ~DO NOT USE (was: OCaml general)
Bug description
The previous patch I submitted wasn't quite clean -- it ifdef-ed in the
original code. Here is a better patch.
if (caml_all_opened_channels) caml_all_opened_channels->prev = NULL;
} else {
channel->prev->next = channel->next;
if (channel->next) channel->next->prev = channel->prev;
}
}
CAMLexport void caml_close_channel(struct channel channel)
--- io.h.1 2004-01-01 11:42:36.000000000 -0500
+++ io.h 2005-07-15 13:24:35.000000000 -0400
@@ -40,6 +40,7 @@
char * max; / Logical end of the buffer (for input) /
void * mutex; / Placeholder for mutex (for systhreads) /
struct channel * next; / Linear chaining of channels (flush_all) */
struct channel * prev; /* Linear chaining of channels (flush_all) /
int revealed; / For Cash only /
int old_revealed; / For Cash only /
int refcount; / For flush_all and for Cash */
The text was updated successfully, but these errors were encountered:
Original bug ID: 3728
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)
Bug description
The previous patch I submitted wasn't quite clean -- it ifdef-ed in the
original code. Here is a better patch.
[again, for version 3.08.3]
--- io.c.
12004-01-08 17:28:48.000000000 -0500+++ io.c 2005-07-17 22:09:42.000000000 -0400
@@ -15,6 +15,7 @@
/* Buffered input/output. */
+#include <stdio.h>
#include <errno.h>
#include <fcntl.h>
#include <limits.h>
@@ -70,6 +71,9 @@
channel->old_revealed = 0;
channel->refcount = 0;
channel->next = caml_all_opened_channels;
caml_all_opened_channels = channel;
return channel;
}
@@ -85,12 +89,16 @@
static void unlink_channel(struct channel *channel)
{
}
CAMLexport void caml_close_channel(struct channel channel)
--- io.h.
12004-01-01 11:42:36.000000000 -0500+++ io.h 2005-07-15 13:24:35.000000000 -0400
@@ -40,6 +40,7 @@
char * max; / Logical end of the buffer (for input) /
void * mutex; / Placeholder for mutex (for systhreads) /
struct channel * next; / Linear chaining of channels (flush_all) */
int revealed; / For Cash only /
int old_revealed; / For Cash only /
int refcount; / For flush_all and for Cash */
The text was updated successfully, but these errors were encountered: