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

* don't look at the resultdef, but at the defs of the operands to decide

Browse Source 
whether a multiplication needs to be signed or unsigned (can be different
    in case of a 32x32->64 multiplication) (mantis #30035)

git-svn-id: trunk@33539 -
This commit is contained in:
Jonas Maebe 2016-04-20 22:17:15 +00:00
parent 69ad962544
commit 1850cb4ccc
4 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -15013,6 +15013,8 @@ tests/webtbs/tw29958.pp svneol=native#text/pascal
tests/webtbs/tw2998.pp svneol=native#text/plain
tests/webtbs/tw2999.pp svneol=native#text/plain
tests/webtbs/tw29992.pp svneol=native#text/plain
tests/webtbs/tw30035.pp svneol=native#text/plain
tests/webtbs/tw30035a.pp svneol=native#text/plain
tests/webtbs/tw3004.pp svneol=native#text/plain
tests/webtbs/tw3005.pp svneol=native#text/plain
tests/webtbs/tw3010.pp svneol=native#text/plain

3
compiler/powerpc/nppcadd.pas
View File

@ -485,7 +485,8 @@ interface
end
else
begin
if is_signed(resultdef) then
if is_signed(left.resultdef) and
is_signed(right.resultdef) then
begin
case nodetype of
addn:

14
tests/webtbs/tw30035.pp Normal file
View File

@ -0,0 +1,14 @@
var
i64: Int64;
qa, qb: DWord;
begin
qa := 2147483648;
qb := 536870912;
{$R-}{$Q-}
i64 := int64(qa) * int64(qb);
if i64 <> 1152921504606846976 then
begin
Writeln('Error!');
Halt(1);
end;
end.

14
tests/webtbs/tw30035a.pp Normal file
View File

@ -0,0 +1,14 @@
var
i64: Int64;
qa, qb: DWord;
begin
qa := 2147483648;
qb := 536870912;
{$R+}{$Q+}
i64 := int64(qa) * int64(qb);
if i64 <> 1152921504606846976 then
begin
Writeln('Error!');
Halt(1);
end;
end.