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

* cpu16bitalu fixes in tcgshlshrnode.second_integer

Browse Source 
git-svn-id: branches/i8086@23791 -
This commit is contained in:
nickysn 2013-03-11 16:13:25 +00:00
parent 78cf362a90
commit 48bba896a5
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ncgmat.pas
View File

@ -435,14 +435,34 @@ implementation
{ load left operators in a register }
if is_signed(left.resultdef) then
begin
opsize:=OS_SINT;
opdef:=ossinttype
{$ifdef cpu16bitalu}
if left.resultdef.size > 2 then
begin
opsize:=OS_S32;
opdef:=s32inttype;
end
else
{$endif cpu16bitalu}
begin
opsize:=OS_SINT;
opdef:=ossinttype
end;
end
else
begin
opsize:=OS_INT;
opdef:=osuinttype;
end;
{$ifdef cpu16bitalu}
if left.resultdef.size > 2 then
begin
opsize:=OS_32;
opdef:=u32inttype;
end
else
{$endif cpu16bitalu}
begin
opsize:=OS_INT;
opdef:=osuinttype;
end;
end;
{$endif cpunodefaultint}
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,opdef,true);