paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 15:30:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: PascalParser, added = / <> operator for classes/interfaces

Browse Source 
git-svn-id: trunk@61783 -
This commit is contained in:
martin 2019-08-29 15:12:45 +00:00
parent aa7a4b709c
commit a8ec28c709
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fppascalparser.pas
View File

@ -2811,6 +2811,14 @@ function TFpPascalExpressionPartOperatorCompare.DoGetResultValue: TFpValue;
else SetError('= not supported');
end;
end;
function AddressPtrEqualToValue(AIntVal, AOtherVal: TFpValue; ARevert: Boolean = False): TFpValue;
begin
Result := nil;
if AOtherVal.Kind in [skClass,skInterface,skAddress,skPointer] then
Result := TFpValueConstBool.Create((AIntVal.AsCardinal = AOtherVal.AsCardinal) xor ARevert)
else
SetError('= not supported');
end;
function IntGreaterThanValue(AIntVal, AOtherVal: TFpValue; ARevert: Boolean = False): TFpValue;
begin
@ -2892,6 +2900,12 @@ begin
skInteger: Result := IntEqualToValue(tmp1, tmp2, (s = '<>'));
skCardinal: Result := CardinalEqualToValue(tmp1, tmp2, (s = '<>'));
skFloat: Result := FloatEqualToValue(tmp1, tmp2, (s = '<>'));
skClass,skInterface,skPointer:
Result := AddressPtrEqualToValue(tmp1, tmp2, (s = '<>'));
skAddress: begin
if tmp2.Kind in [skClass,skInterface,skPointer,skAddress] then
Result := AddressPtrEqualToValue(tmp1, tmp2, (s = '<>'));
end;
end;
end
else