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

longword-longword gives int64

Browse Source
This commit is contained in:
peter 2005-04-25 08:29:00 +00:00
parent de00bfb5c7
commit c1f4f09911
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nadd.pas
View File

@ -948,6 +948,13 @@ implementation
inserttypeconv(left,s64inttype);
inserttypeconv(right,s64inttype);
end
{ For substraction the result can be < 0 but also > maxlongint, we
fallback to int64 that can handle both }
else if (nodetype=subn) then
begin
inserttypeconv(left,s64inttype);
inserttypeconv(right,s64inttype);
end
else
begin
if (torddef(left.resulttype.def).typ<>u32bit) then
@ -2195,7 +2202,10 @@ begin
end.
{
$Log$
Revision 1.144 2005-04-06 07:31:51 michael
Revision 1.145 2005-04-25 08:29:00 peter
longword-longword gives int64
Revision 1.144 2005/04/06 07:31:51 michael
+ * fix constant folding for string+char (from Peter)
Revision 1.143 2005/03/25 22:20:18 peter