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

* Fix for issue #39379 by bart broersma

Browse Source
This commit is contained in:
flyingsheep 2021-09-29 17:21:57 +02:00 committed by Michaël Van Canneyt
parent 91d8009b53
commit 6c6cb13a5e
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fmodule.pas
View File

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

2
packages/rtl-console/src/win/video.pp
View File

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

2
packages/winceunits/src/windbase.pp
View File

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

2
rtl/os2/systhrd.inc
View File

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