diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-05 22:51:28 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-05 22:51:28 +0000 |
| commit | 5d4309a0aade7a13d133e67a9733a4976c1f2ff8 (patch) | |
| tree | bab84bacddc8270f8f68376ec3d7edb87759dc96 /packages/gdbint | |
| parent | c7b405a376a337c54c3d9527bf5af2ccf27fe440 (diff) | |
| download | fpc-5d4309a0aade7a13d133e67a9733a4976c1f2ff8.tar.gz | |
* Try to fix the target_kill linking error
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14070 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/gdbint')
| -rw-r--r-- | packages/gdbint/src/gdbint.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/gdbint/src/gdbint.pp b/packages/gdbint/src/gdbint.pp index c12b28700e..fd62e29e7b 100644 --- a/packages/gdbint/src/gdbint.pp +++ b/packages/gdbint/src/gdbint.pp @@ -125,7 +125,6 @@ interface {$define GDB_HAS_DEBUG_FILE_DIRECTORY} {$define GDB_HAS_OBSERVER_NOTIFY_BREAKPOINT_CREATED} {$define GDB_TARGET_CLOSE_HAS_PTARGET_ARG} - {$define GDB_TARGET_CLOSE_HAS_PTARGET_ARG} {$define GDB_HAS_BP_NONE} {$endif def GDB_V7} @@ -1282,8 +1281,8 @@ procedure gdb_init(argv0 : pchar);cdecl;external; procedure gdb_init;cdecl;external; {$endif not GDB_INIT_HAS_ARGV0} procedure execute_command(p:pchar;i:longint);cdecl;external; -procedure target_kill;cdecl;external; {$ifdef GDB_TARGET_CLOSE_HAS_PTARGET_ARG} +procedure target_kill;cdecl;external; procedure target_close(pt : ptarget_ops; i:longint);cdecl;external; {$else not GDB_TARGET_CLOSE_HAS_PTARGET_ARG} procedure target_close(i:longint);cdecl;external; @@ -2293,10 +2292,11 @@ procedure tgdbinterface.gdb_done; begin if debuggee_started then begin - target_kill; {$ifdef GDB_TARGET_CLOSE_HAS_PTARGET_ARG} + target_kill; target_close(@current_target,1); {$else not GDB_TARGET_CLOSE_HAS_PTARGET_ARG} + current_target.to_kill; target_close(1); {$endif ndef GDB_TARGET_CLOSE_HAS_PTARGET_ARG} end; |