|
Lines 221-230
Link Here
|
| 221 |
pt->read_buf = malloc (LOB_BUFLEN); |
221 |
pt->read_buf = malloc (LOB_BUFLEN); |
| 222 |
if (pt->read_buf == NULL) |
222 |
if (pt->read_buf == NULL) |
| 223 |
scm_memory_error (s_lob_mklobport); |
223 |
scm_memory_error (s_lob_mklobport); |
| 224 |
pt->read_pos = pt->read_end = pt->read_buf; |
224 |
pt->read_pos = pt->read_end = &pt->shortbuf; |
|
|
225 |
pt->read_buf = ((unsigned char *) pt->read_pos); |
| 225 |
pt->read_buf_size = LOB_BUFLEN; |
226 |
pt->read_buf_size = LOB_BUFLEN; |
| 226 |
} else { |
227 |
} else { |
| 227 |
pt->read_buf = ((unsigned char *) pt->read_pos) = pt->read_end = &pt->shortbuf; |
228 |
pt->read_end = &pt->shortbuf; |
|
|
229 |
pt->read_buf = ((unsigned char *) pt->read_pos); |
| 228 |
pt->read_buf_size = 1; |
230 |
pt->read_buf_size = 1; |
| 229 |
} |
231 |
} |
| 230 |
if (SCM_OUTPUT_PORT_P (port)) { |
232 |
if (SCM_OUTPUT_PORT_P (port)) { |
