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

* remove invalid aword typecast

Browse Source 
git-svn-id: trunk@6131 -
This commit is contained in:
peter 2007-01-22 19:40:31 +00:00
parent 3eb4823209
commit 5a68a743fc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgadd.pas
View File

@ -500,7 +500,7 @@ interface
checkoverflow:=
checkoverflow and
(left.resultdef.typ<>pointerdef) and
(left.resultdef.typ<>pointerdef) and
(right.resultdef.typ<>pointerdef);
{$ifdef cpu64bit}
@ -691,7 +691,7 @@ interface
checkoverflow:=
checkoverflow and
(left.resultdef.typ<>pointerdef) and
(left.resultdef.typ<>pointerdef) and
(right.resultdef.typ<>pointerdef);
if nodetype<>subn then
@ -717,7 +717,7 @@ interface
location.register,checkoverflow and (cs_check_overflow in current_settings.localswitches),ovloc)
else
cg.a_op_const_reg_reg_checkoverflow(current_asmdata.CurrAsmList,OP_SUB,location.size,
aword(right.location.value),left.location.register,
right.location.value,left.location.register,
location.register,checkoverflow and (cs_check_overflow in current_settings.localswitches),ovloc);
end
else