Ver código fonte

* win16 do_open: zero fill regs before attempting to open the file a second time

git-svn-id: trunk@31870 -
nickysn 9 anos atrás
pai
commit
eaf719a623
1 arquivos alterados com 1 adições e 0 exclusões
  1. 1 0
      rtl/win16/sysfile.inc

+ 1 - 0
rtl/win16/sysfile.inc

@@ -332,6 +332,7 @@ begin
     if regs.AX=4 then
       if Increase_file_handle_count then
         begin
+          FillChar(regs,SizeOf(regs),0);
           { Try again }
           if LFNSupport then
             begin