Explorar o código

* fix long term problem resulting in crashes of FV apps under OS/2

git-svn-id: trunk@15128 -
Tomas Hajny %!s(int64=15) %!d(string=hai) anos
pai
achega
d05b8dbbda
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      rtl/os2/video.pp

+ 1 - 0
rtl/os2/video.pp

@@ -394,6 +394,7 @@ begin
       shl ecx, 1
       shl ecx, 1
       mov CLen, ecx
+      cld
 @no_update:
       pop edi
       pop esi