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-7.1/gdb/testsuite/gdb.ada/call_pn
- from Rev 227 to Rev 816
- ↔ Reverse comparison
Rev 227 → Rev 816
/pck.adb
0,0 → 1,25
-- Copyright 2010 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 |
Last_Node_Id : Node_Id := Node_Id'First; |
|
function Pn (N : Node_Id) return Node_Id is |
begin |
Last_Node_Id := N; |
return N; |
end Pn; |
end Pck; |
|
/pck.ads
0,0 → 1,23
-- Copyright 2010 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 |
Node_Low_Bound : constant := 0; |
Node_High_Bound : constant := 099_999_999; |
type Node_Id is range Node_Low_Bound .. Node_High_Bound; |
|
function Pn (N : Node_Id) return Node_Id; |
end Pck; |
|
/foo.adb
0,0 → 1,23
-- Copyright 2010 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 |
New_Node : Node_Id; |
begin |
New_Node := Pn (1234); -- STOP |
end Foo; |
|