did not work with bloody vax assemblerr
This commit is contained in:
parent
dd673a426f
commit
77f33b6762
1 changed files with 5 additions and 2 deletions
|
@ -2,8 +2,10 @@
|
||||||
|
|
||||||
ungetc(ch, iop)
|
ungetc(ch, iop)
|
||||||
int ch;
|
int ch;
|
||||||
FILE *iop;
|
register FILE *iop;
|
||||||
{
|
{
|
||||||
|
unsigned char *p;
|
||||||
|
|
||||||
if ( ch < 0 || !io_testflag(iop,IO_READMODE))
|
if ( ch < 0 || !io_testflag(iop,IO_READMODE))
|
||||||
return EOF;
|
return EOF;
|
||||||
if (iop->_ptr == iop->_buf) {
|
if (iop->_ptr == iop->_buf) {
|
||||||
|
@ -11,6 +13,7 @@ FILE *iop;
|
||||||
iop->_ptr++;
|
iop->_ptr++;
|
||||||
}
|
}
|
||||||
iop->_count++;
|
iop->_count++;
|
||||||
*--iop->_ptr = ch;
|
p = --(iop->_ptr); /* ??? Bloody vax assembler !!! */
|
||||||
|
*p = ch;
|
||||||
return(ch);
|
return(ch);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue