paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 03:02:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add NULL handling for customvariants, patch by Ludo, Mantis #20697

Browse Source 
git-svn-id: trunk@19660 -
This commit is contained in:
marco 2011-11-20 19:45:22 +00:00
parent a52fe3162d
commit b070a0bbbc
1 changed files with 53 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/inc/variants.pp
View File

@ -1238,6 +1238,29 @@ function DoVarCmpComplex(const Left, Right: TVarData; const OpCode: TVarOp): Sho
var Handler: TCustomVariantType; var Handler: TCustomVariantType;
CmpRes: boolean; CmpRes: boolean;
begin begin
if (Left.vType=varnull) or (Right.vType=varnull) then
// don't bother custom variant handlers with conversion to NULL
begin
if OpCode in [opCmpEq,opCmpNe] then
begin
if (Left.vType=Right.vType) xor (OpCode=opCmpNe) then
result:=0
else
result:=-1;
end
else
if Left.vType=varnull then
begin
if Right.vType=varnull then
Result := 0
else
Result := -1;
end
else
Result := 1;
end
else
begin
if FindCustomVariantType(Left.vType, Handler) then if FindCustomVariantType(Left.vType, Handler) then
CmpRes := Handler.CompareOp(Left, Right, OpCode) CmpRes := Handler.CompareOp(Left, Right, OpCode)
else if FindCustomVariantType(Right.vType, Handler) then else if FindCustomVariantType(Right.vType, Handler) then
@ -1269,6 +1292,7 @@ begin
else else
Result:=-1; Result:=-1;
end; end;
end;
end; end;