paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

amicommon: removed the accidental leftovers of experiments for the last syscall fix for MorphOS

Browse Source 
git-svn-id: trunk@28695 -
This commit is contained in:
Károly Balogh 2014-09-19 21:17:37 +00:00
parent 55d85fffad
commit 2fba1540c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amicommon/osdebug.inc
View File

@ -34,11 +34,11 @@ var
begin begin
if s <> '' then if s <> '' then
for i:=1 to Length(s) do for i:=1 to Length(s) do
RawPutChar(LongWord(s[i])); RawPutChar(s[i]);
RawPutChar(LongWord(#10)); RawPutChar(#10);
end; end;
procedure SysDebugLn; {$IFDEF SYSTEMINLINE}inline;{$ENDIF} platform; procedure SysDebugLn; {$IFDEF SYSTEMINLINE}inline;{$ENDIF} platform;
begin begin
RawPutChar(LongWord(#10)); RawPutChar(#10);
end; end;