paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

JitClass: fix compiler warning

Browse Source
This commit is contained in:
Martin 2021-11-27 13:25:05 +01:00
parent 5523c58bc9
commit c177cb8a54
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/jitclasses/jitclass.pas
View File

@ -199,7 +199,7 @@ type
FMemVmtPtr: PVmt;
function GetHeadPtr: Pointer;
public
function Allocate(ASize: Integer; AExtraHeadSize: Integer = 0): Pointer;
procedure Allocate(ASize: Integer; AExtraHeadSize: Integer = 0);
procedure DeAllocate;
procedure ClearMemPointer; // does not free
property HeadPtr: Pointer read GetHeadPtr;
@ -476,8 +476,8 @@ begin
Result := Pointer(FMemVmtPtr) - FExtraHeadSize;
end;
function TJitClassCreator.TVmtMem.Allocate(ASize: Integer;
AExtraHeadSize: Integer): Pointer;
procedure TJitClassCreator.TVmtMem.Allocate(ASize: Integer;
AExtraHeadSize: Integer);
begin
assert(FMemVmtPtr=nil, 'TJitClassCreator.TVmtMem.Allocate: FMemVmtPtr=nil');
AExtraHeadSize := align(AExtraHeadSize, sizeof(Pointer));