[2292] in Release_Engineering
workaround for zwgc/port.c
daemon@ATHENA.MIT.EDU (Ken Raeburn)
Mon Apr 30 15:27:25 1990
Date: Mon, 30 Apr 90 15:27:01 EDT
From: Ken Raeburn <Raeburn@MIT.Edu>
To: rel-eng@ATHENA.MIT.EDU
I haven't seen any other files giving obvious problems, just this one.
void create_port_from_files(name, input, output)
string name;
FILE *input;
FILE *output;
{
port *p = create_named_port(name);
#if !defined(ibm032)
p->get = input ? get_file : NULL;
p->put = output ? put_file : NULL;
#else
/* RT compiler (hc2.1y) bug workaround */
if (input)
p->get = get_file;
else
p->get = NULL;
if (output)
p->put = put_file;
else
p->put = NULL;
#endif
p->close_input = close_file_input;
p->close_output = close_file_output;
p->status = 0;
p->data.file.input_connector = input;
p->data.file.output_connector = output;
}
