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

unsigned*unsigned will also have unsigned result.

Browse Source
This commit is contained in:
peter 2005-01-02 17:31:07 +00:00
parent 085f7e64c4
commit a8684d35ad
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/nadd.pas
View File

@ -895,8 +895,18 @@ implementation
CGMessage(type_w_signed_unsigned_always_false); CGMessage(type_w_signed_unsigned_always_false);
end; end;
inserttypeconv(right,sinttype); { When there is a signed type we convert to signed int.
inserttypeconv(left,sinttype); 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);
end
else
begin
inserttypeconv(right,uinttype);
inserttypeconv(left,uinttype);
end;
end; end;
end end
@ -2048,7 +2058,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.132 2004-12-06 15:57:22 peter Revision 1.133 2005-01-02 17:31:07 peter
unsigned*unsigned will also have unsigned result.
Revision 1.132 2004/12/06 15:57:22 peter
* fix methodpointer compare, compare only the proc field * fix methodpointer compare, compare only the proc field
Revision 1.131 2004/11/02 12:55:16 peter Revision 1.131 2004/11/02 12:55:16 peter