URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
Compare Revisions
- This comparison shows the changes necessary to convert path
/openrisc/tags/gdb/gdb-6.8/gdb-6.8.openrisc-2.1/gdb/testsuite/gdb.ada/arrayparam
- from Rev 24 to Rev 33
- ↔ Reverse comparison
Rev 24 → Rev 33
/pck.adb
0,0 → 1,28
-- Copyright 2008 Free Software Foundation, Inc. |
-- |
-- This program is free software; you can redistribute it and/or modify |
-- it under the terms of the GNU General Public License as published by |
-- the Free Software Foundation; either version 3 of the License, or |
-- (at your option) any later version. |
-- |
-- This program is distributed in the hope that it will be useful, |
-- but WITHOUT ANY WARRANTY; without even the implied warranty of |
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
-- GNU General Public License for more details. |
-- |
-- You should have received a copy of the GNU General Public License |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
|
package body Pck is |
|
procedure Call_Me (Str : String) is |
begin |
Length := Str'Length; |
if Length > 0 then |
First := Str (Str'First); |
Last := Str (Str'Last); |
end if; |
end Call_Me; |
|
end Pck; |
|
/pck.ads
0,0 → 1,25
-- Copyright 2008 Free Software Foundation, Inc. |
-- |
-- This program is free software; you can redistribute it and/or modify |
-- it under the terms of the GNU General Public License as published by |
-- the Free Software Foundation; either version 3 of the License, or |
-- (at your option) any later version. |
-- |
-- This program is distributed in the hope that it will be useful, |
-- but WITHOUT ANY WARRANTY; without even the implied warranty of |
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
-- GNU General Public License for more details. |
-- |
-- You should have received a copy of the GNU General Public License |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
|
package Pck is |
|
First : Character := ASCII.NUL; |
Last : Character := ASCII.NUL; |
Length : Integer := 0; |
|
procedure Call_Me (Str : String); |
|
end Pck; |
|
/foo.adb
0,0 → 1,26
-- Copyright 2008 Free Software Foundation, Inc. |
-- |
-- This program is free software; you can redistribute it and/or modify |
-- it under the terms of the GNU General Public License as published by |
-- the Free Software Foundation; either version 3 of the License, or |
-- (at your option) any later version. |
-- |
-- This program is distributed in the hope that it will be useful, |
-- but WITHOUT ANY WARRANTY; without even the implied warranty of |
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
-- GNU General Public License for more details. |
-- |
-- You should have received a copy of the GNU General Public License |
-- along with this program. If not, see <http://www.gnu.org/licenses/>. |
|
with Pck; use Pck; |
|
procedure Foo is |
My_String : constant String := "Hello World"; |
begin |
First := ASCII.NUL; |
Last := ASCII.NUL; |
Length := -1; |
Call_Me (My_String); -- STOP |
end Foo; |
|