espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-27 22:48:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

extend scope of testing in gdb.ada/arrayptr

Browse Source 
We add testing of taking a slice of an array access.  And we also
introduce the same amount of testing, but with an access to a
constrained array.

gdb/testsuite/ChangeLog:

        * gdb.ada/arrayptr/foo.adb: Add access to constrained array.
        * gdb.ada/arrayptr.exp: Add new tests.
This commit is contained in:
Joel Brobecker
2011-04-01 17:03:52 +00:00
parent b0dd768854
commit af57139d01
3 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/testsuite/gdb.ada/arrayptr/foo.adb
View File

@ -20,7 +20,14 @@ procedure Foo is
String_P : String_Access := new String'("Hello");
Null_String : String_Access := null;
-- Same situation, but constrained array.
type Little_Array is array (1 .. 10) of Integer;
type Little_Array_Ptr is access all Little_Array;
Arr_Ptr: Little_Array_Ptr :=
new Little_Array'(21, 22, 23, 24, 25, 26, 27, 28, 29, 30);
begin
Do_Nothing (String_P'Address); -- STOP
Do_Nothing (Null_String'Address);
Do_Nothing (Arr_Ptr'Address);
end Foo;