paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 12:09:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@40912 -
This commit is contained in:
michael 2019-01-19 16:47:40 +00:00
parent 4a14ee770a
commit a33b2ab2f3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/unix/crt.pp
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);