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

16-bit ALU fixes in tunaryminusnode.pass_typecheck and tunaryplusnode.pass_typecheck

Browse Source 
git-svn-id: branches/i8086@23743 -
This commit is contained in:
nickysn 2013-03-09 13:24:42 +00:00
parent 54d804d06e
commit 63ac46c74c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nmat.pas
View File

@ -762,6 +762,13 @@ implementation
resultdef:=left.resultdef
end
{$endif not cpu64bitaddr}
{$if defined(cpu16bitalu) or defined(cpu8bitalu)}
else if is_32bitint(left.resultdef) then
begin
inserttypeconv(left,s32inttype);
resultdef:=left.resultdef
end
{$endif cpu16bitalu or cpu8bitalu}
else if (left.resultdef.typ=orddef) then
begin
{$ifndef cpunodefaultint}
@ -901,6 +908,13 @@ implementation
left:=nil;
end
{$endif not cpu64bitaddr}
{$if defined(cpu16bitalu) or defined(cpu8bitalu)}
else if is_32bitint(left.resultdef) then
begin
inserttypeconv(left,s32inttype);
resultdef:=left.resultdef
end
{$endif cpu16bitalu or cpu8bitalu}
else if (left.resultdef.typ=orddef) then
begin
inserttypeconv(left,sinttype);