amicommon: added ShortString version of SysDebug family of functions

git-svn-id: trunk@30921 -

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);

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;