Bladeren bron

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

git-svn-id: trunk@31874 -
nickysn 10 jaren geleden
bovenliggende
commit
5f0905d9c7
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      rtl/win16/system.pp

+ 1 - 1
rtl/win16/system.pp

@@ -395,7 +395,7 @@ begin
 { Check LFN API on drive c:\ }
   RootName:='C:\';
 { 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.ES:=Seg(buf);
   regs.DI:=Ofs(buf);