paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Create TMonitorData initialized.

Browse Source
This commit is contained in:
Rika Ichinose 2024-02-26 19:20:29 +03:00 committed by Michael Van Canneyt
parent 1966ce7c1c
commit ba6696d9ed
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-objpas/src/inc/fpmonitor.pp
View File

@ -431,8 +431,7 @@ begin
if Result=Nil then
begin
// At some point we could cache this.
GetMem(Result,SizeOf(TMonitorData));
Result^:=Default(TMonitorData);
New(Result);
Result^.Init;
SetMonitorData(aObject,Result);
end;