Diff for /gforth/engine/io.c between versions 1.10 and 1.11

version 1.10, 1999/02/28 08:37:45 version 1.11, 1999/11/15 22:27:50
Line 666  long key_avail (FILE * stream) Line 666  long key_avail (FILE * stream)
 /* When compiling and running in the `Posix' environment, Ultrix does  /* When compiling and running in the `Posix' environment, Ultrix does
    not restart system calls, so this needs to do it. */     not restart system calls, so this needs to do it. */
   
 unsigned getkey(FILE * stream)  Cell getkey(FILE * stream)
 {  {
   int result;    Cell result;
   unsigned char c;    unsigned char c;
   
   if(!terminal_prepped)  prep_terminal();    if(!terminal_prepped)
       prep_terminal();
   
   while (pending < 0)    while (pending < 0)
     {      {
Line 692  unsigned getkey(FILE * stream) Line 693  unsigned getkey(FILE * stream)
         return (EOF);          return (EOF);
     }      }
   
   result = (int) pending;    /* otherwise there is a character pending;
        return it and delete pending char */
     result = (Cell) pending;
   pending = -1L;    pending = -1L;
   
   return result;    return result;

Removed from v.1.10  
changed lines
  Added in v.1.11


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>