URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gdb/] [gdb-6.8/] [gdb-6.8.openrisc-2.1/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 95

Go to most recent revision | Details | Compare with Previous | View Log


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;

Line No.	Rev	Author	Line
1	24	jeremybenn	`with Pck; use Pck;`
2
3			`procedure Foo is`
4			`C : Character := 'a';`
5			`WC : Wide_Character := 'b';`
6			`WWC : Wide_Wide_Character := 'c';`
7			`begin`
8			`Do_Nothing (C'Address); -- START`
9			`Do_Nothing (WC'Address);`
10			`Do_Nothing (WWC'Address);`
11			`end Foo;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gdb/] [gdb-6.8/] [gdb-6.8.openrisc-2.1/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 95