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

16-bit ALU fix in tcgunaryminusnode.second_integer

Browse Source 
git-svn-id: branches/i8086@23745 -
This commit is contained in:
nickysn 2013-03-09 15:13:08 +00:00
parent 4ac508a2b9
commit 588b12200b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgmat.pas
View File

@ -245,7 +245,7 @@ implementation
if (left.resultdef.size<=sinttype.size) then
opsize:=sinttype
else
opsize:=s64inttype;
opsize:={$ifdef cpu16bitalu}s32inttype{$else}s64inttype{$endif};
{$endif cpunodefaultint}
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,left.resultdef,opsize,false);
hlcg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NEG,opsize,location.register,location.register);