paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Little cleanup after r26669, no functional changes

Browse Source 
git-svn-id: trunk@26670 -
This commit is contained in:
masta 2014-02-04 08:04:08 +00:00
parent 80d2ee8ad0
commit a72a3f4e01
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/narmmat.pas
View File

@ -438,8 +438,7 @@ implementation
function tarmshlshrnode.first_shlshr64bitint: tnode;
begin
if GenerateThumbCode or GenerateThumb2Code then//or
// (right.nodetype <> ordconstn) then
if GenerateThumbCode or GenerateThumb2Code then
result:=inherited
else
result := nil;
@ -448,7 +447,6 @@ implementation
procedure tarmshlshrnode.second_64bit;
var
v : TConstExprInt;
l1,l2,l3:Tasmlabel;
so: tshifterop;
lreg, resreg: TRegister64;
@ -535,7 +533,6 @@ implementation
location.register64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
location.register64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
{ load left operator in a register }
if not(left.location.loc in [LOC_CREGISTER,LOC_REGISTER]) or
(left.location.size<>OS_64) then