paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:09:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed multiplying negative tBCD values

Browse Source 
git-svn-id: trunk@17744 -
This commit is contained in:
joost 2011-06-13 17:12:49 +00:00
parent 2edcdbc6e4
commit 96ec37aa92
3 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9108,6 +9108,7 @@ tests/tbs/tb0571.pas svneol=native#text/plain
tests/tbs/tb0572.pp svneol=native#text/plain
tests/tbs/tb0573.pp svneol=native#text/plain
tests/tbs/tb0574.pp svneol=native#text/pascal
tests/tbs/tb0575.pp svneol=native#text/plain
tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain

1
rtl/objpas/fmtbcd.pp
View File

@ -2100,6 +2100,7 @@ writeln;
bhr.Singles[FDig] := ue MOD 10;
ue := ue DIV 10;
end;
bhr.neg := bh1.Neg XOR bh2.Neg;
bhr.Plac := LDig;
bhr.FDig := FDig;
if LDig > high ( bhr.Singles )

14
tests/tbs/tb0575.pp Normal file
View File

@ -0,0 +1,14 @@
{$mode objfpc}{$H+}
uses
FmtBCD;
var
bcd: tbcd;
li: integer;
begin
bcd := -100;
li := bcd * 2;
if li<>-200 then
Halt(1);
end.