Inicio Explorar Ayuda
Iniciar sesión
pascal
/
fpc
espejo de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Archivos Incidencias 0 Wiki
Explorar el Código

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

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

Tomas Hajny hace 15 años
padre
347c90070f
commit
d4ca3d12b4
Se han modificado 1 ficheros con 1 adiciones y 0 borrados
Dividir vista Mostrar estadísticas de diff
  1. 1 0
      rtl/os2/video.pp

+ 1 - 0
rtl/os2/video.pp
Ver fichero 

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