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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 25

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	25	jlechner	`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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [print_chars/] [foo.adb] - Blame information for rev 25