mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-21 01:52:50 +02:00
* Add a $mode fpc statement, as shortstrings are assumed
git-svn-id: trunk@40912 -
This commit is contained in:
parent
4a14ee770a
commit
a33b2ab2f3
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user