Преглед изворни кода

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

git-svn-id: trunk@28695 -
Károly Balogh пре 11 година
родитељ
комит
2fba1540c4
1 измењених фајлова са 3 додато и 3 уклоњено
  1. 3 3
      rtl/amicommon/osdebug.inc

+ 3 - 3
rtl/amicommon/osdebug.inc

@@ -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(LongWord(#10));
+      RawPutChar(s[i]);
+  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;