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

* fix cardinal+constint

Browse Source
This commit is contained in:
peter 2004-05-28 21:13:44 +00:00
parent 52cf8d1cc2
commit 71280bedad
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nadd.pas
View File

@ -805,8 +805,9 @@ implementation
(tordconstnode(right).value >= 0) then (tordconstnode(right).value >= 0) then
inserttypeconv(right,u32inttype); inserttypeconv(right,u32inttype);
{ when one of the operand is signed perform { when one of the operand is signed perform
the operation in 64bit } the operation in 64bit, can't use rd/ld here because there
if is_signed(ld) or is_signed(rd) then could be already typeconvs inserted }
if is_signed(left.resulttype.def) or is_signed(right.resulttype.def) then
begin begin
CGMessage(type_w_mixed_signed_unsigned); CGMessage(type_w_mixed_signed_unsigned);
inserttypeconv(left,s64inttype); inserttypeconv(left,s64inttype);
@ -814,9 +815,9 @@ implementation
end end
else else
begin begin
if (torddef(ld).typ<>u32bit) then if (torddef(left.resulttype.def).typ<>u32bit) then
inserttypeconv(left,u32inttype); inserttypeconv(left,u32inttype);
if (torddef(rd).typ<>u32bit) then if (torddef(right.resulttype.def).typ<>u32bit) then
inserttypeconv(right,u32inttype); inserttypeconv(right,u32inttype);
end; end;
end; end;
@ -1977,7 +1978,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.122 2004-05-23 14:14:18 florian Revision 1.123 2004-05-28 21:13:44 peter
* fix cardinal+constint
Revision 1.122 2004/05/23 14:14:18 florian
+ added set of widechar support (limited to 256 chars, is delphi compatible) + added set of widechar support (limited to 256 chars, is delphi compatible)
Revision 1.121 2004/05/23 14:08:39 peter Revision 1.121 2004/05/23 14:08:39 peter