Начало Каталог Помощ
Вход
pascal
/
fpc
огледало от https://gitlab.com/freepascal.org/fpc/source.git
2
0
Разклонения 0
Файлове Задачи 0 Уики
Преглед на файлове

--- Merging r15128 into '.':
U rtl/os2/video.pp

git-svn-id: branches/fixes_2_4@15245 -

Tomas Hajny преди 15 години
родител
347c90070f
ревизия
d4ca3d12b4
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
Разделен изглед Покажи статистика за разликите
  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