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

* 16-bit ALU fixes in tshlshrnode.pass_typecheck

Browse Source 
git-svn-id: branches/i8086@23817 -
This commit is contained in:
nickysn 2013-03-13 18:00:28 +00:00
parent f048e3fd3b
commit edc382aa76
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/nmat.pas
View File

@ -604,18 +604,34 @@ implementation
begin
{ keep singness of orignal type }
if is_signed(left.resultdef) then
{$ifdef cpunodefaultint}
inserttypeconv(left,nd)
{$else cpunodefaultint}
inserttypeconv(left,s32inttype)
{$endif cpunodefaultint}
begin
{$if defined(cpunodefaultint)}
inserttypeconv(left,nd)
{$elseif defined(cpu64bitalu) or defined(cpu32bitalu)}
inserttypeconv(left,s32inttype)
{$elseif defined(cpu16bitalu)}
if left.resultdef.size > 2 then
inserttypeconv(left,s32inttype)
else
inserttypeconv(left,sinttype);
{$else}
internalerror(2013031301);
{$endif}
end
else
begin
{$ifdef cpunodefaultint}
{$if defined(cpunodefaultint)}
inserttypeconv(left,nd)
{$else cpunodefaultint}
{$elseif defined(cpu64bitalu) or defined(cpu32bitalu)}
inserttypeconv(left,u32inttype);
{$endif cpunodefaultint}
{$elseif defined(cpu16bitalu)}
if left.resultdef.size > 2 then
inserttypeconv(left,u32inttype)
else
inserttypeconv(left,uinttype);
{$else}
internalerror(2013031301);
{$endif}
end
end;