paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix order of parameters of FillChar

Browse Source
This commit is contained in:
Pierre Muller 2023-07-25 07:22:39 +02:00
parent 6e84d4275d
commit ef5a32ab95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/dati.inc
View File

@ -1278,7 +1278,7 @@ begin
DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek); DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);
DecodeTime(DateTime, Hour, Minute, Second, MilliSecond); DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
ResultLen := 0; ResultLen := 0;
FillChar(ResultBuffer,0,SizeOf(ResultBuffer)); FillChar(ResultBuffer,SizeOf(ResultBuffer),0);
ResultCurrent := @ResultBuffer[0]; ResultCurrent := @ResultBuffer[0];
if FormatStr <> '' then if FormatStr <> '' then
StoreFormat(FormatStr, 0, False) StoreFormat(FormatStr, 0, False)