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

* dword-dword now gives dword

Browse Source 
git-svn-id: trunk@78 -
This commit is contained in:
peter 2005-05-23 20:44:47 +00:00
parent b0545a7a04
commit ac0277b40b
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; end;
{ When there is a signed type we convert to signed int. { When there is a signed type we convert to signed int.
Otherwise (both are unsigned) we keep the result also unsigned. Otherwise (both are unsigned) we keep the result also unsigned }
Exception is substraction, that also gives an signed result } if (is_signed(ld) or is_signed(rd)) then
if (nodetype=subn) or
(is_signed(ld) or is_signed(rd)) then
begin begin
inserttypeconv(right,sinttype); inserttypeconv(right,sinttype);
inserttypeconv(left,sinttype); inserttypeconv(left,sinttype);