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

Merged revisions 78 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@81 -
This commit is contained in:
peter 2005-05-23 21:10:04 +00:00
parent 8b2d841c05
commit c730f5a48b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nadd.pas
View File

@ -1001,10 +1001,8 @@ implementation
end;
{ When there is a signed type we convert to signed int.
Otherwise (both are unsigned) we keep the result also unsigned.
Exception is substraction, that also gives an signed result }
if (nodetype=subn) or
(is_signed(ld) or is_signed(rd)) then
Otherwise (both are unsigned) we keep the result also unsigned }
if (is_signed(ld) or is_signed(rd)) then
begin
inserttypeconv(right,sinttype);
inserttypeconv(left,sinttype);