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

* refactored tunaryminusnode.pass_typecheck to handle all native int sizes generically, without ifdefs

Browse Source 
git-svn-id: branches/i8086@24184 -
This commit is contained in:
nickysn 2013-04-07 16:45:52 +00:00
parent 0473cbf70f
commit a3117beb12
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nmat.pas
View File

@ -817,25 +817,21 @@ implementation
} }
end end
{$endif SUPPORT_MMX} {$endif SUPPORT_MMX}
{$ifndef cpu64bitaddr} else if is_oversizedord(left.resultdef) then
else if is_64bit(left.resultdef) then
begin begin
inserttypeconv(left,s64inttype); if is_64bit(left.resultdef) then
resultdef:=left.resultdef inserttypeconv(left,s64inttype)
else if is_32bit(left.resultdef) then
inserttypeconv(left,s32inttype)
else if is_16bit(left.resultdef) then
inserttypeconv(left,s16inttype)
else
internalerror(2013040701);
resultdef:=left.resultdef;
end 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 else if (left.resultdef.typ=orddef) then
begin begin
{$ifndef cpunodefaultint}
inserttypeconv(left,sinttype); inserttypeconv(left,sinttype);
{$endif cpunodefaultint}
resultdef:=left.resultdef resultdef:=left.resultdef
end end
else else