Index: gdb.ada/null_record/bar.ads
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_record/bar.ads,v
retrieving revision 1.1
diff -u -p -r1.1 bar.ads
--- gdb.ada/null_record/bar.ads	3 Feb 2005 03:58:53 -0000	1.1
+++ gdb.ada/null_record/bar.ads	2 Jan 2007 16:26:19 -0000
@@ -14,10 +14,12 @@
 --  along with this program; if not, write to the Free Software
 --  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
+with System;
+
 package Bar is
 
    type Empty is null record;
 
-   procedure Do_Nothing;
+   procedure Do_Nothing (E : System.Address);
 
 end Bar;
Index: gdb.ada/null_record/bar.adb
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_record/bar.adb,v
retrieving revision 1.1
diff -u -p -r1.1 bar.adb
--- gdb.ada/null_record/bar.adb	3 Feb 2005 03:58:53 -0000	1.1
+++ gdb.ada/null_record/bar.adb	2 Jan 2007 16:26:19 -0000
@@ -16,7 +16,7 @@
 
 package body Bar is
 
-   procedure Do_Nothing is
+   procedure Do_Nothing (E : System.Address) is
    begin
       null;
    end Do_Nothing;
Index: gdb.ada/null_record/null_record.adb
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_record/null_record.adb,v
retrieving revision 1.1
diff -u -p -r1.1 null_record.adb
--- gdb.ada/null_record/null_record.adb	3 Feb 2005 03:58:53 -0000	1.1
+++ gdb.ada/null_record/null_record.adb	2 Jan 2007 16:26:19 -0000
@@ -17,7 +17,8 @@
 with Bar; use Bar;
 
 procedure Null_Record is
+   E : Empty;
 begin
-   Do_Nothing;
+   Do_Nothing (E'Address);
 end Null_Record;