Index: infcall.c
===================================================================
--- infcall.c	(revision 98)
+++ infcall.c	(revision 99)
@@ -34,6 +34,7 @@
 #include "gdb_string.h"
 #include "infcall.h"
 #include "dummy-frame.h"
+#include "ada-lang.h"
 
 /* NOTE: cagney/2003-04-16: What's the future of this code?
 
@@ -556,6 +557,9 @@ call_function_by_hand (struct value *fun
   if (nargs < TYPE_NFIELDS (ftype))
     error (_("too few arguments in function call"));
 
+  if (current_language->la_language == language_ada)
+    ada_convert_actuals (function, nargs, args, &sp);
+
   {
     int i;
     for (i = nargs - 1; i >= 0; i--)
Index: Makefile.in
===================================================================
--- Makefile.in	(revision 98)
+++ Makefile.in	(revision 99)
@@ -2271,7 +2271,7 @@ ia64-tdep.o: ia64-tdep.c $(defs_h) $(inf
 infcall.o: infcall.c $(defs_h) $(breakpoint_h) $(target_h) $(regcache_h) \
 	$(inferior_h) $(gdb_assert_h) $(block_h) $(gdbcore_h) $(language_h) \
 	$(objfiles_h) $(gdbcmd_h) $(command_h) $(gdb_string_h) $(infcall_h) \
-	$(dummy_frame_h)
+	$(dummy_frame_h) $(ada_lang_h)
 inf-child.o: inf-child.c $(defs_h) $(regcache_h) $(memattr_h) $(symtab_h) \
 	$(target_h) $(inferior_h) $(gdb_string_h)
 infcmd.o: infcmd.c $(defs_h) $(gdb_string_h) $(symtab_h) $(gdbtypes_h) \