Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

* gdb.ada/print_chars/pck.ads, gdb.ada/print_chars/pck.adb,

Browse Source 
gdb.ada/print_chars/foo.adb: New files.
        * gdb.ada/print_chars.exp: New testcase.
This commit is contained in:
Joel Brobecker
2007-12-24 17:13:32 +00:00
parent 0efc80c807
commit 384e4a9cc2
5 changed files with 115 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gdb/testsuite/gdb.ada/print_chars/foo.adb Normal file
View File

@@ -0,0 +1,11 @@
with Pck; use Pck;
procedure Foo is
C : Character := 'a';
WC : Wide_Character := 'b';
WWC : Wide_Wide_Character := 'c';
begin
Do_Nothing (C'Address); -- START
Do_Nothing (WC'Address);
Do_Nothing (WWC'Address);
end Foo;