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