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

* refactored tunaryplusnode.pass_typecheck as well

Browse Source 
git-svn-id: branches/i8086@24185 -
This commit is contained in:
nickysn 2013-04-07 16:50:30 +00:00
parent a3117beb12
commit 0dcbb4f1cc
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/nmat.pas
View File

@ -958,22 +958,19 @@ implementation
result:=left;
left:=nil;
end
{$ifndef cpu64bitaddr}
else if is_64bit(left.resultdef) then
else if is_oversizedord(left.resultdef) then
begin
inserttypeconv(left,s64inttype);
if is_64bit(left.resultdef) then
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(2013040702);
result:=left;
left:=nil;
end
{$endif not cpu64bitaddr}
{$if defined(cpu16bitalu) or defined(cpu8bitalu)}
else if is_32bitint(left.resultdef) then
begin
inserttypeconv(left,s32inttype);
result:=left;
left:=nil;
end
{$endif cpu16bitalu or cpu8bitalu}
else if (left.resultdef.typ=orddef) then
begin
inserttypeconv(left,sinttype);