paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* perform the OP_AND, OP_OR and OP_XOR optimizations for 0 and $FFFF values

Browse Source 
independently also in tcg8086.a_op_const_ref

git-svn-id: trunk@26345 -
This commit is contained in:
nickysn 2014-01-01 17:45:40 +00:00
parent 9a1e33d2a0
commit dcb9306de8
1 changed files with 47 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
compiler/i8086/cgcpu.pas
View File

@ -569,29 +569,62 @@ unit cgcpu;
end;
OP_AND, OP_OR, OP_XOR:
begin
if longword(a) = high(longword) then
{ low word operation }
if aint(a and $FFFF) = aint(0) then
begin
case op of
OP_AND:
exit;
OP_OR:
a_load_const_ref(list,size,high(longword),tmpref);
OP_XOR:
begin
list.concat(taicpu.op_ref(A_NOT,S_W,tmpref));
inc(tmpref.offset, 2);
list.concat(taicpu.op_ref(A_NOT,S_W,tmpref));
end;
a_load_const_ref(list,OS_16,aint(0),ref);
OP_OR,OP_XOR:
{do nothing};
else
InternalError(2013100701);
end
end;
end
else if aint(a and $FFFF) = aint($FFFF) then
begin
case op of
OP_AND:
{do nothing};
OP_OR:
a_load_const_ref(list,OS_16,aint($FFFF),tmpref);
OP_XOR:
list.concat(taicpu.op_ref(A_NOT,S_W,tmpref));
else
InternalError(2013100701);
end;
end
else
begin
a_op_const_ref(list,op,OS_16,aint(a and $FFFF),tmpref);
inc(tmpref.offset, 2);
{ high word operation }
inc(tmpref.offset, 2);
if aint(a shr 16) = aint(0) then
begin
case op of
OP_AND:
a_load_const_ref(list,OS_16,aint(0),tmpref);
OP_OR,OP_XOR:
{do nothing};
else
InternalError(2013100701);
end;
end
else if aint(a shr 16) = aint($FFFF) then
begin
case op of
OP_AND:
{do nothing};
OP_OR:
a_load_const_ref(list,OS_16,aint($FFFF),tmpref);
OP_XOR:
list.concat(taicpu.op_ref(A_NOT,S_W,tmpref));
else
InternalError(2013100701);
end;
end
else
a_op_const_ref(list,op,OS_16,aint(a shr 16),tmpref);
end;
end;
else
internalerror(2013050802);