* Add a $mode fpc statement, as shortstrings are assumed

git-svn-id: trunk@40912 -
This commit is contained in:
michael 2019-01-19 16:47:40 +00:00
parent 4a14ee770a
commit a33b2ab2f3

View File

@ -14,7 +14,7 @@
unit Crt;
Interface
{$mode fpc} // Shortstring is assumed
{$i crth.inc}
Const
@ -1263,8 +1263,8 @@ Begin
i:=F.BufPos;
if i>255 then
i:=255;
Move(F.BufPTR^[idx],Temp[1],i);
SetLength(Temp,i);
Move(F.BufPTR^[idx],Temp[1],i);
DoWrite(Temp);
dec(F.BufPos,i);
inc(idx,i);