URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
Compare Revisions
- This comparison shows the changes necessary to convert path
/openrisc/trunk/gnu-old/gdb-6.8/gdb/testsuite/gdb.ada/complete
- from Rev 827 to Rev 840
- ↔ Reverse comparison
Rev 827 → Rev 840
/pck.adb
0,0 → 1,9
package body Pck is |
|
procedure Proc (I : Integer) is |
Not_In_Scope : Integer := 77; |
begin |
Inner.Inside_Variable := Not_In_Scope + I; |
end Proc; |
|
end Pck; |
/pck.ads
0,0 → 1,19
package Pck is |
|
My_Global_Variable : Integer := 1; |
|
Exported_Capitalized : Integer := 2; |
pragma Export (C, Exported_Capitalized, "Exported_Capitalized"); |
|
Local_Identical_One : Integer := 4; |
Local_Identical_Two : Integer := 8; |
|
External_Identical_One : Integer := 19; |
|
package Inner is |
Inside_Variable : Integer := 3; |
end Inner; |
|
procedure Proc (I : Integer); |
|
end Pck; |
/foo.adb
0,0 → 1,10
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; |
|