diff options
| author |  Kenneth G Raeburn <raeburn@mit.edu> | 1990-05-16 23:45:55 +0000 |
|---|---|---|
| committer | Kenneth G Raeburn <raeburn@mit.edu> | 1990-05-16 23:45:55 +0000 |
| commit | 4c2f6cf1f2c2f81d176d519831f87d4246896505 (patch) | |
| tree | aad610464094e4bc40ce9a6f1a7e1c49be0d1326 /zwgc/port.c | |
| parent | bd309016f254cedf2e00adaf1a0a739980e7125d (diff) | |
Added workaround for bug in RT hc compiler 2.1y.
Diffstat (limited to 'zwgc/port.c')
| -rw-r--r-- | zwgc/port.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/zwgc/port.c b/zwgc/port.c index d8af0d5..f67e570 100644 --- a/zwgc/port.c +++ b/zwgc/port.c @@ -425,8 +425,20 @@ void create_port_from_files(name, input, 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; |