paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

amicommon: added ShortString version of SysDebug family of functions

Browse Source 
git-svn-id: trunk@30921 -
This commit is contained in:
Károly Balogh 2015-05-27 22:25:22 +00:00
parent 242d750ef5
commit eb692e46d2
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/amicommon/osdebug.inc
View File

@ -38,6 +38,23 @@ begin
RawPutChar(#10); RawPutChar(#10);
end; 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; procedure SysDebugLn; {$IFDEF SYSTEMINLINE}inline;{$ENDIF} platform;
begin begin
RawPutChar(#10); RawPutChar(#10);

2
rtl/amicommon/osdebugh.inc
View File

@ -15,4 +15,6 @@
procedure SysDebug(const s: RawByteString); procedure SysDebug(const s: RawByteString);
procedure SysDebugLn(const s: RawByteString); procedure SysDebugLn(const s: RawByteString);
procedure SysDebug(const s: ShortString);
procedure SysDebugLn(const s: ShortString);
procedure SysDebugLn; procedure SysDebugLn;