* suppress VarArgs from QueryHook function

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14031 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/gdbint/src/gdbint.pp b/packages/gdbint/src/gdbint.pp
index ee0436047b..16098355d7 100644
--- a/packages/gdbint/src/gdbint.pp
+++ b/packages/gdbint/src/gdbint.pp
@@ -2140,7 +2140,7 @@ begin
 end;
 
 
-function QueryHook(question : pchar; args : array of const) : longint; cdecl;
+function QueryHook(question : pchar; arg : pchar) : longint; cdecl;
 begin
   if not assigned(curr_gdb) then
     QueryHook:=0
@@ -2149,7 +2149,7 @@ begin
       if curr_gdb^.reset_command and (pos('Kill',question)>0) then
         QueryHook:=1
       else if pos('%s',question)>0 then
-        QueryHook:=curr_gdb^.Query(question, args[0].vpchar)
+        QueryHook:=curr_gdb^.Query(question, arg)
       else
         QueryHook:=curr_gdb^.Query(question, nil);
     end;