diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-05-26 18:59:32 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-05-26 18:59:32 +0200 |
| commit | bc64b96b31c0fb591c1775fffba1ada37f1914db (patch) | |
| tree | eff9989a9e586833e936cc32a5731c9120c35929 /libraries | |
| parent | 48695e579a7746fe52eda777b14ec10d918e7e4b (diff) | |
| download | ghdl-bc64b96b31c0fb591c1775fffba1ada37f1914db.tar.gz ghdl-bc64b96b31c0fb591c1775fffba1ada37f1914db.tar.bz2 ghdl-bc64b96b31c0fb591c1775fffba1ada37f1914db.zip | |
ieee2008: backport fixed_generic_pkg-body changes from opensource.ieee.org
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/ieee2008/fixed_generic_pkg-body.vhdl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/ieee2008/fixed_generic_pkg-body.vhdl b/libraries/ieee2008/fixed_generic_pkg-body.vhdl index 6c18fcb9f..37222eb06 100644 --- a/libraries/ieee2008/fixed_generic_pkg-body.vhdl +++ b/libraries/ieee2008/fixed_generic_pkg-body.vhdl @@ -919,7 +919,7 @@ package body fixed_generic_pkg is lslv := to_uns (lresize); rslv := to_uns (rresize); result_slv := lslv + rslv + cx; - c_out := result_slv(left_index); + c_out := result_slv(left_index-right_index); result := to_fixed(result_slv (left_index-right_index-1 downto 0), left_index-1, right_index); end if; @@ -950,7 +950,7 @@ package body fixed_generic_pkg is lslv := to_s (lresize); rslv := to_s (rresize); result_slv := lslv + rslv + cx; - c_out := result_slv(left_index); + c_out := result_slv(left_index-right_index); result := to_fixed(result_slv (left_index-right_index-1 downto 0), left_index-1, right_index); end if; |