Browse Source

- removed unnecessary zero fill of regs in CheckLFN in the win16 system unit

git-svn-id: trunk@31874 -
nickysn 10 years ago
parent
commit
5f0905d9c7
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/win16/system.pp

+ 1 - 1
rtl/win16/system.pp

@@ -395,7 +395,7 @@ begin
 { Check LFN API on drive c:\ }
 { Check LFN API on drive c:\ }
   RootName:='C:\';
   RootName:='C:\';
 { Call 'Get Volume Information' ($71A0) }
 { Call 'Get Volume Information' ($71A0) }
-  FillChar(regs,SizeOf(regs),0);
+{ no need to ZeroSegRegs(regs), because we initialize both DS and ES }
   regs.AX:=$71a0;
   regs.AX:=$71a0;
   regs.ES:=Seg(buf);
   regs.ES:=Seg(buf);
   regs.DI:=Ofs(buf);
   regs.DI:=Ofs(buf);