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

* also support LOC_CREGISTER and LOC_CREFERENCE in in_not_assign_x and in_neg_assign_x

Browse Source 
git-svn-id: trunk@35751 -
This commit is contained in:
nickysn 2017-04-07 21:33:56 +00:00
parent 6b43705437
commit c6680a32d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncginl.pas
View File

@ -513,7 +513,7 @@ implementation
location_reset(location,LOC_VOID,OS_NO); location_reset(location,LOC_VOID,OS_NO);
if left.location.loc=LOC_REGISTER then if left.location.loc in [LOC_REGISTER,LOC_CREGISTER] then
begin begin
{$ifndef cpu64bitalu} {$ifndef cpu64bitalu}
if def_cgsize(left.resultdef) in [OS_64,OS_S64] then if def_cgsize(left.resultdef) in [OS_64,OS_S64] then
@ -522,7 +522,7 @@ implementation
{$endif not cpu64bitalu} {$endif not cpu64bitalu}
hlcg.a_op_reg_loc(current_asmdata.CurrAsmList,negnotop[inlinenumber],left.resultdef,left.location.register,left.location); hlcg.a_op_reg_loc(current_asmdata.CurrAsmList,negnotop[inlinenumber],left.resultdef,left.location.register,left.location);
end end
else if left.location.loc=LOC_REFERENCE then else if left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE] then
begin begin
{$ifndef cpu64bitalu} {$ifndef cpu64bitalu}
if def_cgsize(left.resultdef) in [OS_64,OS_S64] then if def_cgsize(left.resultdef) in [OS_64,OS_S64] then