瀏覽代碼

* DebugWrite and DebugWriteLn moved to the implementation part of the system
unit. No need to expose them anymore, as the regular Write/WriteLn have been
quite stable on i8086-msdos for a long time now.

git-svn-id: trunk@27143 -

nickysn 11 年之前
父節點
當前提交
2425eb243a
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      rtl/msdos/system.pp

+ 3 - 3
rtl/msdos/system.pp

@@ -74,11 +74,11 @@ const
   LFNSupport = false;
 {$endif RTLLITE}
 
-procedure DebugWrite(const S: string);
-procedure DebugWriteLn(const S: string);
-
 implementation
 
+procedure DebugWrite(const S: string); forward;
+procedure DebugWriteLn(const S: string); forward;
+
 const
   fCarry = 1;