浏览代码

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

git-svn-id: trunk@31870 -
nickysn 9 年之前
父节点
当前提交
eaf719a623
共有 1 个文件被更改,包括 1 次插入0 次删除
  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