OLD | NEW |
1 -- Copyright 2008-2012 Free Software Foundation, Inc. | 1 -- Copyright 2008-2012 Free Software Foundation, Inc. |
2 -- | 2 -- |
3 -- This program is free software; you can redistribute it and/or modify | 3 -- This program is free software; you can redistribute it and/or modify |
4 -- it under the terms of the GNU General Public License as published by | 4 -- it under the terms of the GNU General Public License as published by |
5 -- the Free Software Foundation; either version 3 of the License, or | 5 -- the Free Software Foundation; either version 3 of the License, or |
6 -- (at your option) any later version. | 6 -- (at your option) any later version. |
7 -- | 7 -- |
8 -- This program is distributed in the hope that it will be useful, | 8 -- This program is distributed in the hope that it will be useful, |
9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 20 matching lines...) Expand all Loading... |
31 -- reported, the problem only reproduced if the variable was declared | 31 -- reported, the problem only reproduced if the variable was declared |
32 -- inside a function (in other words, stored on stack). Although | 32 -- inside a function (in other words, stored on stack). Although |
33 -- the issue probably still existed when I tried moving this variable | 33 -- the issue probably still existed when I tried moving this variable |
34 -- to a package spec, the symptoms inside GDB disappeared. | 34 -- to a package spec, the symptoms inside GDB disappeared. |
35 begin | 35 begin |
36 X := (Exists => True, Value => 10); | 36 X := (Exists => True, Value => 10); |
37 if X.Exists then -- STOP | 37 if X.Exists then -- STOP |
38 X.Value := X.Value + 1; | 38 X.Value := X.Value + 1; |
39 end if; | 39 end if; |
40 end Comp_Bug; | 40 end Comp_Bug; |
OLD | NEW |