URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 816

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	227	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

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 816