paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02: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

82
rtl/inc/variants.pp
View File

@ -1238,37 +1238,61 @@ function DoVarCmpComplex(const Left, Right: TVarData; const OpCode: TVarOp): Sho
var Handler: TCustomVariantType;
CmpRes: boolean;
begin
if FindCustomVariantType(Left.vType, Handler) then
CmpRes := Handler.CompareOp(Left, Right, OpCode)
else if FindCustomVariantType(Right.vType, Handler) then
CmpRes := Handler.CompareOp(Left, Right, OpCode)
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
VarInvalidOp(Left.vType, Right.vType, OpCode);
begin
if FindCustomVariantType(Left.vType, Handler) then
CmpRes := Handler.CompareOp(Left, Right, OpCode)
else if FindCustomVariantType(Right.vType, Handler) then
CmpRes := Handler.CompareOp(Left, Right, OpCode)
else
VarInvalidOp(Left.vType, Right.vType, OpCode);
case OpCode of
opCmpEq:
if CmpRes then
Result:=0
else
Result:=1;
opCmpNe:
if CmpRes then
Result:=1
else
Result:=0;
opCmpLt,
opCmpLe:
if CmpRes then
Result:=-1
else
Result:=1;
opCmpGt,
opCmpGe:
if CmpRes then
Result:=1
else
Result:=-1;
end;
case OpCode of
opCmpEq:
if CmpRes then
Result:=0
else
Result:=1;
opCmpNe:
if CmpRes then
Result:=1
else
Result:=0;
opCmpLt,
opCmpLe:
if CmpRes then
Result:=-1
else
Result:=1;
opCmpGt,
opCmpGe:
if CmpRes then
Result:=1
else
Result:=-1;
end;
end;
end;