* Fix for issue #39379 by bart broersma

compiler/fmodule.pas

@@ -335,7 +335,7 @@ implementation
         { set new module }
         current_module:=p;
         { restore previous module settings }
-        Fillchar(current_filepos,0,sizeof(current_filepos));
+        Fillchar(current_filepos,sizeof(current_filepos),0);
         if assigned(current_module) then
           begin
             current_asmdata:=tasmdata(current_module.asmdata);

packages/rtl-console/src/win/video.pp

@@ -775,7 +775,7 @@ var
   SecAttr: TSecurityAttributes;
 begin
   NewConsoleHandleAllocated := false;
-  FillChar (VioMode, 0, SizeOf (VioMode));
+  FillChar (VioMode, SizeOf (VioMode), 0);
   ConsoleOutHandle := GetStdHandle (Std_Output_Handle);
 {MSDN: If an application does not have associated standard handles, such as a service running on an
  interactive desktop, and has not redirected them, the return value is NULL.}

packages/winceunits/src/windbase.pp

@@ -531,7 +531,7 @@ end;
 
 procedure CREATE_SYSTEMGUID(out pguid : CEGUID);
 begin
-  fillchar(pguid,0,sizeof(CEGUID));
+  fillchar(pguid,sizeof(CEGUID),0);
 end;
 
 procedure CREATE_INVALIDGUID(out pguid : CEGUID);

rtl/os2/systhrd.inc

@@ -250,7 +250,7 @@ begin
   end;
 { The Windows API apparently provides a way to fill the allocated memory with }
 { zeros; we probably need to do it ourselves for compatibility. }
- FillChar (DataIndex^^, 0, ThreadVarBlockSize);
+ FillChar (DataIndex^^, ThreadVarBlockSize, 0);
 end;
 
 function SysRelocateThreadVar (Offset: dword): pointer;