From eb692e46d28184058b31d4ff365a8e9b32afd198 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Wed, 27 May 2015 22:25:22 +0000
Subject: [PATCH] amicommon: added ShortString version of SysDebug family of
 functions

git-svn-id: trunk@30921 -
---
 rtl/amicommon/osdebug.inc  | 17 +++++++++++++++++
 rtl/amicommon/osdebugh.inc |  2 ++
 2 files changed, 19 insertions(+)

diff --git a/rtl/amicommon/osdebug.inc b/rtl/amicommon/osdebug.inc
index 5967706f21..da48c36961 100644
--- a/rtl/amicommon/osdebug.inc
+++ b/rtl/amicommon/osdebug.inc
@@ -38,6 +38,23 @@ begin
   RawPutChar(#10);
 end;
 
+procedure SysDebug(const s: ShortString); platform;
+var
+  i: LongInt;
+begin
+  for i:=1 to Length(s) do
+    RawPutChar(s[i]);
+end;
+
+procedure SysDebugLn(const s: ShortString); platform;
+var
+  i: LongInt;
+begin
+  for i:=1 to Length(s) do
+    RawPutChar(s[i]);
+  RawPutChar(#10);
+end;
+
 procedure SysDebugLn; {$IFDEF SYSTEMINLINE}inline;{$ENDIF} platform;
 begin
   RawPutChar(#10);
diff --git a/rtl/amicommon/osdebugh.inc b/rtl/amicommon/osdebugh.inc
index dbdb188707..a693f19bc1 100644
--- a/rtl/amicommon/osdebugh.inc
+++ b/rtl/amicommon/osdebugh.inc
@@ -15,4 +15,6 @@
 
 procedure SysDebug(const s: RawByteString);
 procedure SysDebugLn(const s: RawByteString);
+procedure SysDebug(const s: ShortString);
+procedure SysDebugLn(const s: ShortString);
 procedure SysDebugLn;