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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [complete/] [foo.adb] - Blame information for rev 840

Details | Compare with Previous | View Log


with Pck; use Pck;
 
procedure Foo is
   Some_Local_Variable : Integer := 1;
   External_Identical_Two : Integer := 74;
begin
   My_Global_Variable := Some_Local_Variable + 1; -- START
   Proc (External_Identical_Two);
end Foo;
 

Line No.	Rev	Author	Line
1	24	jeremybenn	`with Pck; use Pck;`
2
3			`procedure Foo is`
4			`Some_Local_Variable : Integer := 1;`
5			`External_Identical_Two : Integer := 74;`
6			`begin`
7			`My_Global_Variable := Some_Local_Variable + 1; -- START`
8			`Proc (External_Identical_Two);`
9			`end Foo;`
10

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [complete/] [foo.adb] - Blame information for rev 840