Преглед на файлове

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

git-svn-id: branches/unicodekvm@41490 -
nickysn преди 6 години
родител
ревизия
d3310cc731
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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
                 begin
                   if intail=0 then
-                    intail:=insize
+                    intail:=insize-1
                   else
                     dec(intail);
                   inbuf[intail]:=ch;