godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

did not work with bloody vax assemblerr

Browse Source
This commit is contained in:
ceriel 1987-02-06 14:44:56 +00:00
parent 737d65cfe0
commit 7135529c97
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lang/cem/libcc/stdio/ungetc.c
View File

@ -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);
} }