浏览代码

Add AIX support

git-svn-id: trunk@29048 -
pierre 10 年之前
父节点
当前提交
d4ac521ff9
共有 1 个文件被更改,包括 7 次插入1 次删除
  1. 7 1
      packages/gdbint/src/gdbint.pp

+ 7 - 1
packages/gdbint/src/gdbint.pp

@@ -656,6 +656,11 @@ interface
   {$LINKLIB gcc}
   {$LINKLIB gcc}
 {$endif beos}
 {$endif beos}
 
 
+{$ifdef aix}
+  { AIX linker requires more precise external/public separation }
+  {$define NEED_EXTERNAL_CVAR}
+  {$undef NotImplemented}
+{$endif aix}
 
 
 {$ifdef go32v2}
 {$ifdef go32v2}
   {$define supportexceptions}
   {$define supportexceptions}
@@ -1707,7 +1712,8 @@ var
 { external variables }
 { external variables }
   error_return : jmp_buf;cvar;public;
   error_return : jmp_buf;cvar;public;
   quit_return  : jmp_buf;cvar;public;
   quit_return  : jmp_buf;cvar;public;
-  deprecated_query_hook : pointer;cvar;public;
+  deprecated_query_hook : pointer;cvar;
+{$ifdef NEDD_EXTERNAL_CVAR}external;{$else}public;{$endif}
 
 
   {$ifndef GDB_HAS_OBSERVER_NOTIFY_BREAKPOINT_CREATED}
   {$ifndef GDB_HAS_OBSERVER_NOTIFY_BREAKPOINT_CREATED}
     {$ifdef GDB_HAS_DEPRECATED_CBPH}
     {$ifdef GDB_HAS_DEPRECATED_CBPH}