paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 07:18:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: utility function GetJITMethod

Browse Source 
git-svn-id: trunk@35729 -
This commit is contained in:
mattias 2012-03-05 11:21:19 +00:00
parent 796db06d48
commit 534d860289
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
designer/jitforms.pp
View File

@ -273,6 +273,7 @@ type
end; end;
function IsJITMethod(const aMethod: TMethod): boolean; function IsJITMethod(const aMethod: TMethod): boolean;
function GetJITMethod(const aMethod: TMethod; out aJITMethod: TJITMethod): boolean;
function CompareJITMethod(Data1, Data2: Pointer): integer; function CompareJITMethod(Data1, Data2: Pointer): integer;
var var
@ -657,6 +658,18 @@ begin
{$endif} {$endif}
end; end;
function GetJITMethod(const aMethod: TMethod; out aJITMethod: TJITMethod
): boolean;
begin
if IsJITMethod(aMethod) then begin
Result:=true;
aJITMethod:=TJITMethod(aMethod.Data);
end else begin
Result:=false;
aJITMethod:=nil;
end;
end;
function CompareJITMethod(Data1, Data2: Pointer): integer; function CompareJITMethod(Data1, Data2: Pointer): integer;
var var
JITMethod1: TJITMethod absolute Data1; JITMethod1: TJITMethod absolute Data1;