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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.ada/] [complete/] [foo.adb] - Rev 25

Compare with Previous | Blame | 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;
 
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.