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/] [complete/] [foo.adb] - Diff between revs 24 and 33

Rev 24	Rev 33
`with Pck; use Pck;`	`with Pck; use Pck;`

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