Browse Source

* fixed off-by-one error when putting a character back into the input buffer

git-svn-id: branches/unicodekvm@41490 -
nickysn 6 years ago
parent
commit
d3310cc731
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-console/src/unix/keyboard.pp

+ 1 - 1
packages/rtl-console/src/unix/keyboard.pp

@@ -1470,7 +1470,7 @@ begin
               if not(ch in ['a'..'z','A'..'N','P'..'Z','0'..'9','-','+','_','=']) then
               if not(ch in ['a'..'z','A'..'N','P'..'Z','0'..'9','-','+','_','=']) then
                 begin
                 begin
                   if intail=0 then
                   if intail=0 then
-                    intail:=insize
+                    intail:=insize-1
                   else
                   else
                     dec(intail);
                     dec(intail);
                   inbuf[intail]:=ch;
                   inbuf[intail]:=ch;