From a33b2ab2f34887b57f003959f9093f9c2cb71661 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 19 Jan 2019 16:47:40 +0000
Subject: [PATCH] * Add a $mode fpc statement, as shortstrings are assumed

git-svn-id: trunk@40912 -
---
 packages/rtl-console/src/unix/crt.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-console/src/unix/crt.pp b/packages/rtl-console/src/unix/crt.pp
index f7bb1057e7..5f04cc1e63 100644
--- a/packages/rtl-console/src/unix/crt.pp
+++ b/packages/rtl-console/src/unix/crt.pp
@@ -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);