mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2025-08-10 22:24:59 +00:00
Handle long long in pc_equ/pc_neq optimizations.
This commit is contained in:
14
DAG.pas
14
DAG.pas
@@ -1404,6 +1404,13 @@ case op^.opcode of {check for optimizations of this node}
|
||||
op^.left := nil;
|
||||
op^.right := nil;
|
||||
end;
|
||||
cgQuad,cgUQuad: begin
|
||||
op^.opcode := pc_ldc;
|
||||
op^.q := ord((op^.left^.qval.lo = op^.right^.qval.lo) and
|
||||
(op^.left^.qval.hi = op^.right^.qval.hi));
|
||||
op^.left := nil;
|
||||
op^.right := nil;
|
||||
end;
|
||||
cgReal,cgDouble,cgComp,cgExtended: begin
|
||||
op^.opcode := pc_ldc;
|
||||
op^.q := ord(op^.left^.rval = op^.right^.rval);
|
||||
@@ -1845,6 +1852,13 @@ case op^.opcode of {check for optimizations of this node}
|
||||
op^.left := nil;
|
||||
op^.right := nil;
|
||||
end;
|
||||
cgQuad,cgUQuad: begin
|
||||
op^.opcode := pc_ldc;
|
||||
op^.q := ord((op^.left^.qval.lo <> op^.right^.qval.lo) or
|
||||
(op^.left^.qval.hi <> op^.right^.qval.hi));
|
||||
op^.left := nil;
|
||||
op^.right := nil;
|
||||
end;
|
||||
cgReal,cgDouble,cgComp,cgExtended: begin
|
||||
op^.opcode := pc_ldc;
|
||||
op^.q := ord(op^.left^.rval <> op^.right^.rval);
|
||||
|
Reference in New Issue
Block a user