+ added cld to DebugWrite

git-svn-id: trunk@27264 -
2025-04-20 18:09:27 +02:00 · 2014-03-24 15:41:29 +00:00 · 2014-03-24 15:41:29 +00:00 · 32c3f4e682
commit 32c3f4e682
parent 25be2bc720
1 changed files with 3 additions and 0 deletions
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@ -124,6 +124,9 @@ procedure DebugWrite(const S: string);
 begin
  asm
    mov si, S
+{$ifdef FPC_ENABLED_CLD}
+    cld
+{$endif FPC_ENABLED_CLD}
    lodsb
    mov cl, al
    xor ch, ch