Quellcode durchsuchen

RawReadString is limited to length of shortstring, don't read more than that

Margers vor 1 Jahr
Ursprung
Commit
f0257e8424
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      packages/rtl-console/src/unix/keyboard.pp

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

@@ -1819,6 +1819,7 @@ begin
        ch:=#0;
      if ch<>#0 then
        St:=St+ch;
+     if length(st)=255 then break;
   Until ch=#0;
   RawReadString:=St;
 end;