[libunwind][AIX] implementation of the unwinder for AIX

[xingxue]

Summary

This patch contains the implementation of the unwinder for IBM AIX.

• AIX does not support the eh_frame section. Instead, the traceback table located at the end each function provides the information for stack unwinding and EH. In this patch macro _LIBUNWIND_SUPPORT_TBTAB_UNWIND is used to guard code for AIX traceback table based unwinding. Function getInfoFromTBTable() and stepWithTBTable() are added to get the EH information from the traceback table and to step up the stack respectively.

• This patch supports two kinds of LSDA information for EH on AIX, the state table and the range table. The state table is used by the previous version of the IBM XL compiler, i.e., xlC and xlclang++. The DWARF based range table is used by AIX clang++. The traceback table has flags to differentiate these cases. For the range table, relative addresses are calculated using a base of DW_EH_PE_datarel, which is the TOC base of the module where the function of the current frame belongs.

• Two personality routines are employed to handle these two different LSDAs, __xlcxx_personality_v0() for the state table and __xlcxx_personality_v1() for the range table. Since the traceback table does not have the information of the personality for the state table approach, its personality __xlcxx_personality_v0() is dynamically resolved as handler for the state table. For the range table, the locations of the LSDA and its associated personality routine are found in the traceback table.

• Assembly code for 32- and 64-bit PowerPC in UnwindRegistersRestore.S and UnwindRegistersSave.S are modified so that it can be consumed by the GNU flavor assembler and the AIX assembler. The restoration of vector registers does not check VRSAVE because in the AIX ABI, VRSAVE is not used.

• Changes in libcxxabi for the AIX EH is in a separate patch D100504.

• No issues were found running libunwind and libcxxabi LIT tests. LIT test cases have been added for code specific to AIX unwinding.

[xingxue]

Renamed variables in Unwind_AIXExtras.cpp.

[xingxue]

Fixed the issue caused by git-clang-format in file assembly.h.

[xingxue]

Dear Reviewers.

The pre-commit check of this patch flagged clang-format and clang-tidy problems.

• The clang-tidy failures are related to using of undeclared identifier UNW_STEP_END and UNW_STEP_SUCCESS. These macros are defined in <libunwind_ext.h> without any guarding conditions. I was able to build the patch on a PowerPC Linux system running 'Ubuntu 18.04.5' as well as AIX successfully. Maybe I missed something but I was unable to figure out why the AIX unwinder code would affect UNW_STEP_END and UNW_STEP_SUCCESS. It would be greatly appreciated if you could provide guidance on resolving it.

• The clang-format flags the following issues <assembly.h>. I cannot really put a space between % and r as suggested because this represent the registers in assembly language, e.g., %r1, %f1. The assembler will complain if it is % r1, % f1. Again, any help would be greatly appreciated.

clang-format: please reformat the code

-#define GPR(num) %r##num
-#define FPR(num) %f##num
-#define VSR(num) %vs##num
-#define VR(num) %v##num
+#define GPR(num) % r##num
+#define FPR(num) % f##num
+#define VSR(num) % vs##num
+#define VR(num) % v##num

[xingxue]

Fixed some more assembly issues from the formatter.

[sfertile]

libunwind/src/UnwindRegistersRestore.S

139

We need to split out the NFC part of the macro changes and commit that in an initial patch to make sure nothing regresses.

[xingxue]

Addressed comment:

• Split off the NFC part of the macro changes for PowerPC assembly code (https://reviews.llvm.org/D101179).

[xingxue]

Rebased after changes for PowerPC assembly code in NFC patch (https://reviews.llvm.org/D101179).

[xingxue]

Changes from clang-format.

[xingxue]

Changes:

• Dynamically resolve symbol __xlcxx_personality_v0 that is the personality for the state table so that libunwind does not have hard dependency on libc++abi on AIX.

[sfertile]

libunwind/src/AddressSpace.hpp

599

minor nit: whitespace change.

libunwind/src/UnwindCursor.hpp

2020

minot nit: I think its cleaner to pull this out of the if block and increment past the name whether we need to or not.

2061

Should failing to load the library, or failing to resolve __xlcxx_personality_v0 be a fatal failure?

2105

This is the EH implementation for both new XLC++ and clang so we should drop the XLC++ from the assert message.

2385

Do we need this on AIX? I think we have 2 cases that could happen when we throw as the last instruction in a function and I don't think we need to backtrack the instruction pointer in either. The first case is a normal call to __cxa_throw, the call instruction will be followed by a toc-restore which is what the program counter will be pointing at. The second case is a call to _cxa_throw with no toc-restore, which might come up if we _cxa_throw is statically linked in and we use LTO or the call is written in asm, but in this case the program counter will be pointing to the word after the call instruction which is the zero word we are looking for (so no need to backtrack).

[sfertile]

libunwind/src/Unwind_AIXExtras.cpp

32

Switch the order here and early return if the name is not present.

ie

if (!TBTable->tb.name_present)
  return NULL

// Get the name of the function.
...

[sfertile]

libunwind/src/assembly.h

63

Should we update the guards so we don't define these macros on AIX?

197

Minor nit: _WEAK_ALIAS to match the other weak alias macros.

198

Same comment as below about this .toc pseudo op.

[xingxue]

Addressed comments.

File UnwindCursor.hpp:

• Pulled the checking and skipping name_len and name fields out of the body of the if statement that checks uses_alloca field for better readability.
• Added asserts if dlopen() or dlsym() fail.
• Changed text in assert messages from XLC++ to libunwind.

File Unwind_AIXExtras.cpp:

• In function getFuncName() switched order to return early.

[xingxue]

libunwind/src/AddressSpace.hpp

599

There is an extra empty line here and the change is from clang-format. I am leaning towards to keeping the change.

libunwind/src/UnwindCursor.hpp

2020

Changed as suggested, thanks!

2061

The dynamic resolving of symbol __xlcxx_personality_v0 is used for stack frames from code generated by the legacy compiler. According to the compiler packaging, they should not fail. In a unlikely event they do fail, the unwinder will ignore the legacy frames and it is still able to process CLANG generated frames. The debugging trace has the info if it happened. Added asserts to help debug.

2105

Good point! Replaced XLC++ with libunwind.

2385

PC is needed for checking if the location is within a range of addresses.

libunwind/src/Unwind_AIXExtras.cpp

32

Changed as suggested, thanks!

[sfertile]

libunwind/src/assembly.h

224

Sorry, I seem to have deleted this comment before submitting my last set of comments. Its extra emabahrasing because one of the comments I left referred to this one :(.

The .toc pseudo is only needed once per file that includes this header, not really once per function being defined (although the extras are harmless). We have a change at the top of the 2 files that include assembly.h to not emit the .text directive, we can instead change that to emit the .toc directive on AIX and delete the .toc directive from this macro and DEFINE_LIBUNWIND_FUNCTION_AND_WEAKALIAS

[xingxue]

Addressed comments:

• Guarded out powerpc64 macros not needed by AIX.
• Renamed DEFINE_LIBUNWIND_FUNCTION_AND_WEAKALIAS to DEFINE_LIBUNWIND_FUNCTION_AND_WEAK_ALIAS.
• Removed .toc pseudo op from macros definitions in <assembly.h> and specified it in assembly files instead.
• Enabled the prototype of _Unwind_GetDataRelBase in <unwind.h> for AIX.

[xingxue]

libunwind/src/assembly.h

63

Changed as suggested, thanks!

197

Renamed the macro as suggested.

198

Good idea, thanks!

224

No worries. Thanks for the good suggestion!

[xingxue]

Rebased on the latest source.

[xingxue]

Minor changes.

• Fixed stack adjustment for restoring vector registers.
• Fixed a typo in Unwind_AIXExtras.cpp.

[xingxue]

Updated with the following changes.

• Use the bit ordering of traceback table bits has_vec and longtbtable defined in the AIX OS header <debug.h>.
• Mitigate the problem when the unwinder hits a frame with the traceback table incorrectly generated by an XL compiler that uses the wrong ordering.

[xingxue]

Updated with the following change.

• Fixed the weak symbol definition in assembly.h.

[xingxue]

Removed an empty line in UnwindLevel1-gcc-ext.c.

[cebowleratibm]

I haven't completed my review. In particular I need to look at the longtbtable, has_vec mix up with more scrutiny but I wanted to submit my comments thus far.

libunwind/include/unwind.h

164 ↗

(On Diff #384095)

This declaration of _Unwind_GetDataRelBase is the same as the existing one. Isn't this identical to the cleaner:

extern uintptr_t _Unwind_GetDataRelBase(struct _Unwind_Context *context)
    LIBUNWIND_UNAVAIL;
#if !defined(_AIX)
extern uintptr_t _Unwind_GetTextRelBase(struct _Unwind_Context *context)
    LIBUNWIND_UNAVAIL;
#endif

libunwind/src/Registers.hpp

593

formatting is not consistent with surrounding code.

1161

formatting is not consistent with surrounding code.

libunwind/src/UnwindCursor.hpp

1934

I think "oldFrame" could be more descriptive. The term is meant to encompass xlC and xlclang++ compiled EH aware functions.

Suggest "legacyXLFrame" or "classicXLFrame". I think a comment in libunwind wrt limitations of interaction with such frames is warranted, because those frames contain calls to the legacy libC system unwinder, which has potential to foul up state with libunwind.

1942

Don't you want to use the xlcxx_personality_v0_t typedef you just defined to declare xlcxx_personality_v0?

2004

suggestion to your discretion: there are so many offsets in this code I would be inclined to name stateOffset => stateFrameOffset

2009

Curiously the IBM legacy XL code only scans past the name if the traceback table uses_alloca flag is set.

What you've written makes intuitive sense but I'd like to confirm the semantic here is intended.

2031

I think a commented is warranted here that you're trying to prevent libunwind from having a dependency on libc++abi. If a legacy XLC++ frame is encountered, then the loading of libc++abi is warranted.

libunwind/src/assembly.h

64

What is defining _CALL_ELF that it's necessary to mask this off with ~defined(_AIX) ?

[xingxue]

libunwind/include/unwind.h

164 ↗

(On Diff #384095)

I agree, thanks!

[xingxue]

libunwind/src/Registers.hpp

593

This is from the git-clang-format.

1161

This is from git-clang-format.

libunwind/src/UnwindCursor.hpp

1934

Replaced oldFrame with classicXLFrame as suggested, thanks!

There should not be limitations of the interaction between the classicXLFrame and the clangFrame in libunwind. The xlclang++ compiled EH using oldFrame does not call the legacy libC unwinder and is compatible with clang compiled EH when running against libunwind/libc++abi. I agree that the legacy xlC compiled EH uses the libC unwinder which is incompatible with libunwind but that is because of the difference in the design of unwinders not the stack frame.

1942

Changed as suggested. Thanks for pointing this out.

2004

Replaced stateOffset with stateTableOffset.

2009

The semantic is the same as the legacy XL code: 1) if uses_alloca flag is set, use the content of the location after the name as the frame pointer register; 2) otherwise, use the default frame pointer register, i.e., SP. Computing the location after the name is unnecessary in the case where uses_alloca is unset. But Sean thought it is cleaner this way (see the comment below).

2031

Added comments explaining why dynamically resolving.

libunwind/src/assembly.h

64

&& !defined(_AIX) is added to mask off the code for AIX, no?

[xingxue]

Addressed comments:

• Make the declaration of _Unwind_GetDataRelBase cleaner in unwind.h.
• Rename enum member oldFrame to classicXLFrame.
• Use typedef of xlcxx_personality_v0_t in the declaration of __xlcxx_personality_v0().
• Rename variable stateOffset to stateTableOffset.
• Add commet to explain why dynamically resolving the personality for the state table.

[cebowleratibm]

libunwind/src/UnwindCursor.hpp

2067

Why is the logic for skipping the name here not the same as above? The handling of XL frames bumps the pointer by the name_len.

2075

I don't think this comment is necessary because this branch is for non XL tbtables, which should not mix up the has_vec and longtbtable bits.

2086

I think it's unnecessary to check the reservedBit here because this code should only be handling clang frames at this point that don't mix up the vec_ext and longtbtable bits.

The details of the has_vec and longtbtable bit mix up by the XL compiler can then be pushed into the v0 XL personality routine where the complexity belongs. I don't think the check or comments are necessary here.

2311

Just for my understanding, is this the first instruction of the glink forwarding stub that the linker inserts for toc save/restore?

[xingxue]

libunwind/src/UnwindCursor.hpp

2067

Changed to use the same logic to skip the name_len and name fields.

2075

It is possible to enter this branch for a classic XL frame as well. The possible scenarios of entering this branch are: 1) tb.lang == TB_CPLUSPLUS but TBTable->tb.has_ctl is not set, which means it is either a classic XL frame from xlc++/xlclang++ but not EH aware, or a Clang frame. 2) tb.lang != TB_CPLUSPLUS, then it is a frame of other languages, such as C, which can be generated by xlc, xlclang, or clang.

2086

I think it's unnecessary to check the reservedBit here because this code should only be handling clang frames at this point that don't mix up the vec_ext and longtbtable bits.

This code needs to handle classic XL frames as well. See the comment above.

2311

Yes, the compiler generates a 'nop' after a call and the linker replaces it with the instruction to load the TOC saved by the glink stub.

[xingxue]

Addressed comment:

• Use the same logic for skipping the name_len and name fields.

[cebowleratibm]

libunwind/include/unwind.h

164 ↗

(On Diff #384095)

What is the reason for declaring _Unwind_GetDataRelBase on all platforms but hiding _Unwind_GetTextRelBase on AIX?

libunwind/src/AddressSpace.hpp

50

getFuncName doesn't sound AIX specific so it's odd to see it guarded by _AIX. Perhaps a more specific name to describe why it's unique to AIX?

libunwind/src/UnwindCursor.hpp

1934

clangFrame probably isn't an appropriate name either as we shouldn't imply that libunwind will only work with clang frames. Although clang is the only current emitter of such frames, other compilers may follow suit.

2066

I suggest a comment to explicitly state that we're no handling either a "new" frame or a classic XL frame that is not eh-aware. I think it also good to outline the mix up of the has_vec and longtbtable bits at this point. The reader should understand that there's a case where the longtbtable is set but there isn't really a xtbtable and the code that follows deals with this complexity.

2088

I think it's useful to spell out the erroneous xlC frame case. What situation exposes it and in that case what does reservedBit actually refer to?

Here's my understanding:
-xlC compiled non eh aware frame which has vector registers to restore but nothing that otherwise requires the longtbtable bit to be set (otherwise both bits are set and the mix up is moot.) In this case, the current charPtr will actually be pointing into the vec_ext struct of the tbtable because we failed to scan past the vec_ext struct because the has_vec bit was erroneously false.

As LLVM devs don't have access to internal XL source/docs I feel it's necessary we go above and beyond to explain this clearly in the comments. Even for me it took some time to reason through the purpose of the reservedBit check.

2114

Suggest moving this to the top of the block because it helps the reader identify that we've deduced that frame must be a non classic XL frame.

[xingxue]

libunwind/include/unwind.h

164 ↗

(On Diff #384095)

Good question. We can allow the declaration of _Unwind_GetTextRelBase() on AIX, and have the stub routine print "_Unwind_GetTextRelBase() not implemented" and abort like others.

libunwind/src/AddressSpace.hpp

50

Renamed getFuncName to getFuncNameFromTBTable.

libunwind/src/UnwindCursor.hpp

1934

Renamed clangFrame to frameWithEHInfo and renamed classicFrame to frameWithXLEHStateTable.

2066

Added comments as suggested. Thanks!

2088

Added comments at the beginning of the branch to describe the erroneous xlC frame case. Updated the comment here accordingly.

2114

Moved the statement to the top of the block as suggested, thanks!

[xingxue]

Addressed comments.

• allow the declaration of _Unwind_GetTextRelBase() on AIX.
• rename getFuncName to getFuncNameFromTBTable.
• rename clangFrame to frameWithEHInfo and rename classicFrame to frameWithXLEHStateTable.
• add comments to describe the code looking for eh_info and dealing with the complexity arising from some XL compiler versions use the wrong ordering of flag bits.

[cebowleratibm]

My remaining suggestions are very minor. I've had a thorough look through this patch though I'll look to others to approve the patch to be committed.

I'm confident the functionality here is sound as it is representative of the libunwind implementation deployed on AIX alongside the Open XL V17 compiler.

libunwind/src/AddressSpace.hpp

48

629

libunwind/src/UnwindCursor.hpp

2073

2082

libunwind/src/Unwind_AIXExtras.cpp

21

I suggested guarding this function with _LIBUNWIND_SUPPORT_TBTAB_UNWIND so perhaps an asserting stub is appropriate on non-AIX targets.

[xingxue]

libunwind/src/AddressSpace.hpp

48

It is guarded by defined(_AIX) instead of defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND) because getFuncNameFromTBTable() would also be used for GCC on AIX but GCC does not use the traceback table for unwinding.

629

It is guarded by defined(_AIX) instead of defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND) because findFunctionName() would also be used for GCC on AIX but GCC does not use the traceback table for unwinding.

libunwind/src/UnwindCursor.hpp

2073

Good catch! Fixed.

2082

Good catch! Fixed.

libunwind/src/Unwind_AIXExtras.cpp

21

This source file Unwind_AIXExtras.cpp won't be included for non-AIX targets as specified in file CMakeLists.txt. Also, the code inside the file is guarded by #if defined(_AIX) in line 11.

[xingxue]

Addressed comments.

• fix errors in comments.

[compnerd]

libunwind/include/__libunwind_config.h

65

Should we consider just padding on clang instead of having a 1-entry difference on clang and gcc?

libunwind/src/Registers.hpp

593

Please prefer the surrounding area's formatting rather than git-clang-format.

1161

Similar.

libunwind/src/UnwindCursor.hpp

1216

Prefer a C++ style cast - reinterpret_cast<tbtable *>(_info.unwind_info).

1295

Please prefer a C++style cast: reinterpret_cast<uintptr_t>(_info.extra);.

1953

C++ style casts please and throughout this change.

[xingxue]

Addressed comments:

• Remove the cursor size definition for building with AIX GCC for now because it is not enabled yet;
• Use the C++ style cast rather than C style cast;
• Be consistent with the surrounding area's formatting.

libunwind/include/__libunwind_config.h

65

Currently the libc++/libc++abi/libunwind build scripts only support building on AIX with clang and the AIX CMake does not work well with gcc. I am deferring this change for gcc to when there is a need to build with gcc on AIX. Please let me know if you have concerns.

libunwind/src/Registers.hpp

593

Fixed, thanks!

1161

Fixed, thanks!

libunwind/src/UnwindCursor.hpp

1216

Fixed, thanks!

1295

Fixed, thanks!

1953

Fixed, thanks!

[xingxue]

Ping... This patch failed the pre-merge check because the formatting in lines 611-612 and 1179-1180 of file Registers.hpp follows the surrounding code rather than git-clang-format.

[xingxue]

Gentle ping.

[xingxue]

Gentle ping.

[MaskRay]

LGTM. Realized that you may need someone in the #libunwind

(Sorry for the belated response. I was mostly on trips and spent little time on catching up patches.)

libunwind/src/assembly.h

193

Can #elif be changed to #else?

libunwind/src/config.h

63–69

The re-indentation seems unneeded). You may just ignore the clang-foramt diagnostic.

If we want to do formatting, it should be a separate change; I believe the problem is that .clang-format does not precisely reflect the PPIndentWidth the code base actually uses.

[xingxue]

@MaskRay @compnerd @cebowleratibm @sfertile Thanks so much for your time and effort in reviewing this patch and providing constructive suggestions to make it better! Much appreciated!

libunwind/src/assembly.h

193

Good suggestion! Changed in add-on commit rG9c0152cda35f.

libunwind/src/config.h

63–69

Good point, reversed the indentation in add-on commit rG9c0152cda35f.

libunwind/include/__libunwind_config.h

 # elif defined(__powerpc64__)
 #  define _LIBUNWIND_TARGET_PPC64 1
 #  define _LIBUNWIND_CONTEXT_SIZE 167
 #  define _LIBUNWIND_CURSOR_SIZE 179
 #  define _LIBUNWIND_HIGHEST_DWARF_REGISTER _LIBUNWIND_HIGHEST_DWARF_REGISTER_PPC64
 # elif defined(__ppc__)
 #  define _LIBUNWIND_TARGET_PPC 1
 #  define _LIBUNWIND_CONTEXT_SIZE 117
+#if defined(_AIX) && defined(__GNUC__) && !defined(__clang__)
+#define _LIBUNWIND_CURSOR_SIZE 125
+#else
 #  define _LIBUNWIND_CURSOR_SIZE 124
+#endif
 #  define _LIBUNWIND_HIGHEST_DWARF_REGISTER _LIBUNWIND_HIGHEST_DWARF_REGISTER_PPC
 # elif defined(__aarch64__)
 #  define _LIBUNWIND_TARGET_AARCH64 1
 #  define _LIBUNWIND_CONTEXT_SIZE 66
 #  if defined(__SEH__)
 #    define _LIBUNWIND_CURSOR_SIZE 164
 #  else
 #    define _LIBUNWIND_CURSOR_SIZE 78

libunwind/include/libunwind.h

 extern int unw_set_fpreg(unw_cursor_t *, unw_regnum_t, unw_fpreg_t)  LIBUNWIND_AVAIL;
 extern int unw_resume(unw_cursor_t *) LIBUNWIND_AVAIL;
 
 #ifdef __arm__
 /* Save VFP registers in FSTMX format (instead of FSTMD). */
 extern void unw_save_vfp_as_X(unw_cursor_t *) LIBUNWIND_AVAIL;
 #endif
 
+#ifdef _AIX
+extern uintptr_t unw_get_data_rel_base(unw_cursor_t *) LIBUNWIND_AVAIL;
+#endif
 
 extern const char *unw_regname(unw_cursor_t *, unw_regnum_t) LIBUNWIND_AVAIL;
 extern int unw_get_proc_info(unw_cursor_t *, unw_proc_info_t *) LIBUNWIND_AVAIL;
 extern int unw_is_fpreg(unw_cursor_t *, unw_regnum_t) LIBUNWIND_AVAIL;
 extern int unw_is_signal_frame(unw_cursor_t *) LIBUNWIND_AVAIL;
 extern int unw_get_proc_name(unw_cursor_t *, char *, size_t, unw_word_t *) LIBUNWIND_AVAIL;
 //extern int       unw_get_save_loc(unw_cursor_t*, int, unw_save_loc_t*);
 

libunwind/src/AddressSpace.hpp

 
 #include "libunwind.h"
 #include "config.h"
 #include "dwarf2.h"
 #include "EHHeaderParser.hpp"
 #include "Registers.hpp"
 
 #ifndef _LIBUNWIND_USE_DLADDR
-  #if !defined(_LIBUNWIND_IS_BAREMETAL) && !defined(_WIN32)
-    #define _LIBUNWIND_USE_DLADDR 1
-  #else
-    #define _LIBUNWIND_USE_DLADDR 0
-  #endif
+#if !(defined(_LIBUNWIND_IS_BAREMETAL) || defined(_WIN32) || defined(_AIX))
 #endif
 
 #if _LIBUNWIND_USE_DLADDR
 #include <dlfcn.h>
 #if defined(__ELF__) && defined(_LIBUNWIND_LINK_DL_LIB)
 #pragma comment(lib, "dl")
 #endif
 #endif
 
 #if defined(_LIBUNWIND_ARM_EHABI)
 struct EHABIIndexEntry {
   uint32_t functionOffset;
   uint32_t data;
 };
 #endif
 
+#if defined(_AIX)
+namespace libunwind {
+char *getFuncName(uintptr_t pc, uint16_t &NameLen, unw_word_t *offset);
+}
+#endif
+
 #ifdef __APPLE__
 
   struct dyld_unwind_sections
   {
     const struct mach_header*   mh;
     const void*                 dwarf_section;
     uintptr_t                   dwarf_section_length;
     const void*                 compact_unwind_section;
#elif defined(_LIBUNWIND_SUPPORT_DWARF_UNWIND) && defined(_WIN32)
   }
   return false;
 #elif defined(_LIBUNWIND_SUPPORT_SEH_UNWIND) && defined(_WIN32)
   // Don't even bother, since Windows has functions that do all this stuff
   // for us.
   (void)targetAddr;
   (void)info;
   return true;
+#elif defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
+  // The traceback table is used for unwinding.
+  (void)targetAddr;
+  (void)info;
+  return true;
 #elif defined(_LIBUNWIND_USE_DL_UNWIND_FIND_EXIDX)
   int length = 0;
   info.arm_section =
       (uintptr_t)dl_unwind_find_exidx((_Unwind_Ptr)targetAddr, &length);
   info.arm_section_length = (uintptr_t)length * sizeof(EHABIIndexEntry);
   if (info.arm_section && info.arm_section_length)
     return true;
 #elif defined(_LIBUNWIND_USE_DL_ITERATE_PHDR)
   dl_iterate_cb_data cb_data = {this, &info, targetAddr};
   int found = dl_iterate_phdr(findUnwindSectionsByPhdr, &cb_data);
   return static_cast<bool>(found);
 #endif
 
   return false;
 }
 
-
 inline bool LocalAddressSpace::findOtherFDE(pint_t targetAddr, pint_t &fde) {
   // TO DO: if OS has way to dynamically register FDEs, check that.
   (void)targetAddr;
   (void)fde;
   return false;
 }
 
 inline bool LocalAddressSpace::findFunctionName(pint_t addr, char *buf,
                                                 size_t bufLen,
                                                 unw_word_t *offset) {
 #if _LIBUNWIND_USE_DLADDR
   Dl_info dyldInfo;
   if (dladdr((void *)addr, &dyldInfo)) {
     if (dyldInfo.dli_sname != NULL) {
       snprintf(buf, bufLen, "%s", dyldInfo.dli_sname);
       *offset = (addr - (pint_t) dyldInfo.dli_saddr);
       return true;
     }
   }
+#elif defined(_AIX)
+  uint16_t nameLen;
+  char *funcName = getFuncName(addr, nameLen, offset);
+  if (funcName != NULL) {
+    snprintf(buf, bufLen, "%.*s", nameLen, funcName);
+    return true;
+  }
 #else
   (void)addr;
   (void)buf;
   (void)bufLen;
   (void)offset;
 #endif
   return false;
 }
 
 } // namespace libunwind
 
 #endif // __ADDRESSSPACE_HPP__

libunwind/src/CMakeLists.txt

 # Get sources
 
 set(LIBUNWIND_CXX_SOURCES
     libunwind.cpp
     Unwind-EHABI.cpp
     Unwind-seh.cpp
     )
 if(APPLE)
   list(APPEND LIBUNWIND_CXX_SOURCES
     Unwind_AppleExtras.cpp
     )
 endif()
 
+if(${CMAKE_SYSTEM_NAME} MATCHES "AIX")
+  list(APPEND LIBUNWIND_CXX_SOURCES
+    Unwind_AIXExtras.cpp
+    )
+endif()
+
 set(LIBUNWIND_C_SOURCES
     UnwindLevel1.c
     UnwindLevel1-gcc-ext.c
     Unwind-sjlj.c
     )
 set_source_files_properties(${LIBUNWIND_C_SOURCES}
                             PROPERTIES
                               COMPILE_FLAGS "-std=c99")
 
 set(LIBUNWIND_ASM_SOURCES
     UnwindRegistersRestore.S
     UnwindRegistersSave.S
     )
 
 # See add_asm_sources() in compiler-rt for explanation of this workaround.
-if((APPLE AND CMAKE_VERSION VERSION_LESS 3.19) OR (MINGW AND CMAKE_VERSION VERSION_LESS 3.17))
+# CMake doesn't work correctly with assembly on AIX. Workaround by compiling
+# as C files as well.
+if((APPLE AND CMAKE_VERSION VERSION_LESS 3.19) OR
+   (MINGW AND CMAKE_VERSION VERSION_LESS 3.17) OR
+   (${CMAKE_SYSTEM_NAME} MATCHES "AIX"))
   set_source_files_properties(${LIBUNWIND_ASM_SOURCES} PROPERTIES LANGUAGE C)
 endif()
 
 set(LIBUNWIND_HEADERS
     AddressSpace.hpp
     assembly.h
     CompactUnwinder.hpp
     config.h

libunwind/src/Registers.hpp

public:
   void        jumpto();
   static int  lastDwarfRegNum() { return _LIBUNWIND_HIGHEST_DWARF_REGISTER_PPC; }
   static int  getArch() { return REGISTERS_PPC; }
 
   uint64_t  getSP() const         { return _registers.__r1; }
   void      setSP(uint32_t value) { _registers.__r1 = value; }
   uint64_t  getIP() const         { return _registers.__srr0; }
   void      setIP(uint32_t value) { _registers.__srr0 = value; }
+  uint64_t getCR() const { return _registers.__cr; }
+  void setCR(uint32_t value) { _registers.__cr = value; }
 
 private:
   struct ppc_thread_state_t {
     unsigned int __srr0; /* Instruction address register (PC) */
     unsigned int __srr1; /* Machine state register (supervisor) */
     unsigned int __r0;
     unsigned int __r1;
     unsigned int __r2;
public:
   void        jumpto();
   static int  lastDwarfRegNum() { return _LIBUNWIND_HIGHEST_DWARF_REGISTER_PPC64; }
   static int  getArch() { return REGISTERS_PPC64; }
 
   uint64_t  getSP() const         { return _registers.__r1; }
   void      setSP(uint64_t value) { _registers.__r1 = value; }
   uint64_t  getIP() const         { return _registers.__srr0; }
   void      setIP(uint64_t value) { _registers.__srr0 = value; }
+  uint64_t getCR() const { return _registers.__cr; }
+  void setCR(uint64_t value) { _registers.__cr = value; }
 
 private:
   struct ppc64_thread_state_t {
     uint64_t __srr0;    // Instruction address register (PC)
     uint64_t __srr1;    // Machine state register (supervisor)
     uint64_t __r0;
     uint64_t __r1;
     uint64_t __r2;

libunwind/src/UnwindCursor.hpp

 
 #ifdef _WIN32
   #include <windows.h>
   #include <ntverp.h>
 #endif
 #ifdef __APPLE__
   #include <mach-o/dyld.h>
 #endif
+#ifdef _AIX
+#include <dlfcn.h>
+#include <sys/debug.h>
+#include <sys/pseg.h>
+#endif
 
 #if defined(_LIBUNWIND_SUPPORT_SEH_UNWIND)
 // Provide a definition for the DISPATCHER_CONTEXT struct for old (Win7 and
 // earlier) SDKs.
 // MinGW-w64 has always provided this struct.
   #if defined(_WIN32) && defined(_LIBUNWIND_TARGET_X86_64) && \
       !defined(__MINGW32__) && VER_PRODUCTBUILD < 8000
 struct _DISPATCHER_CONTEXT {
virtual void setInfoBasedOnIPRegister(bool = false) {
     _LIBUNWIND_ABORT("setInfoBasedOnIPRegister not implemented");
   }
   virtual const char *getRegisterName(int) {
     _LIBUNWIND_ABORT("getRegisterName not implemented");
   }
 #ifdef __arm__
   virtual void saveVFPAsX() { _LIBUNWIND_ABORT("saveVFPAsX not implemented"); }
 #endif
+
+#ifdef _AIX
+  virtual uintptr_t getDataRelBase() {
+    _LIBUNWIND_ABORT("getDataRelBase not implemented");
+  }
+#endif
 };
 
 #if defined(_LIBUNWIND_SUPPORT_SEH_UNWIND) && defined(_WIN32)
 
 /// \c UnwindCursor contains all state (including all register values) during
 /// an unwind.  This is normally stack-allocated inside a unw_cursor_t.
 template <typename A, typename R>
 class UnwindCursor : public AbstractUnwindCursor {
public:
   virtual bool        isSignalFrame();
   virtual bool        getFunctionName(char *buf, size_t len, unw_word_t *off);
   virtual void        setInfoBasedOnIPRegister(bool isReturnAddress = false);
   virtual const char *getRegisterName(int num);
 #ifdef __arm__
   virtual void        saveVFPAsX();
 #endif
 
+#ifdef _AIX
+  virtual uintptr_t getDataRelBase();
+#endif
+
   // libunwind does not and should not depend on C++ library which means that we
   // need our own defition of inline placement new.
   static void *operator new(size_t, UnwindCursor<A, R> *p) { return p; }
 
 private:
 
 #if defined(_LIBUNWIND_ARM_EHABI)
   bool getInfoFromEHABISection(pint_t pc, const UnwindInfoSections &sects);
RUNTIME_FUNCTION *lookUpSEHUnwindInfo(pint_t pc, pint_t *base) {
     /* FIXME: Implement */
     *base = 0;
     return nullptr;
   }
   bool getInfoFromSEH(pint_t pc);
   int stepWithSEHData() { /* FIXME: Implement */ return 0; }
 #endif // defined(_LIBUNWIND_SUPPORT_SEH_UNWIND)
 
+#if defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
+  bool getInfoFromTBTable(pint_t pc, R &registers);
+  int stepWithTBTable(pint_t pc, tbtable *TBTable, R &registers,
+                      bool &isSignalFrame);
+  int stepWithTBTableData() {
+    return stepWithTBTable((pint_t)this->getReg(UNW_REG_IP),
+                           (tbtable *)_info.unwind_info, _registers,
+                           _isSignalFrame);
+  }
+#endif // defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
 
   A               &_addressSpace;
   R                _registers;
   unw_proc_info_t  _info;
   bool             _unwindInfoMissing;
   bool             _isSignalFrame;
 #if defined(_LIBUNWIND_TARGET_LINUX) && defined(_LIBUNWIND_TARGET_AARCH64)
   bool             _isSigReturn = false;

 }
 
 #ifdef __arm__
 template <typename A, typename R> void UnwindCursor<A, R>::saveVFPAsX() {
   _registers.saveVFPAsX();
 }
 #endif
 
+#ifdef _AIX
+template <typename A, typename R>
+uintptr_t UnwindCursor<A, R>::getDataRelBase() {
+  return (uintptr_t)_info.extra;
+}
+#endif
+
 template <typename A, typename R>
 const char *UnwindCursor<A, R>::getRegisterName(int regNum) {
   return _registers.getRegisterName(regNum);
 }
 
 template <typename A, typename R> bool UnwindCursor<A, R>::isSignalFrame() {
   return _isSignalFrame;
 }
#elif defined(_LIBUNWIND_TARGET_ARM)
   _info.lsda = 0; // FIXME
   _info.handler = 0; // FIXME
 #endif
   setLastPC(pc);
   return true;
 }
 #endif
 
+#if defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
+// The order of bits has_vec and longtbtable of the traceback table
+// structure declared in system header <sys/debug.h> is flipped in newer
+// AIX levels. To allow building libunwind on AIX levels that do not have the
+// fix, variable TBTableByte6 which points to the byte containing these bits
+// in the traceback table and the following masks are used in functions
+// getInfoFromTBTable() and stepWithTBTable() for checking these bits in the
+// correct order.
+#define _LIBUNWIND_TBTABLE_HAS_VEC_BIT 0x80
+#define _LIBUNWIND_TBTABLE_LONGTBTABLE_BIT 0x40
+
+// Exception handling info is present if set.
+#define _LIBUNWIND_TBTABLE_EH_INFO 0x08
+
+enum frameType : unw_word_t { oldFrame = 0, clangFrame = 1 };
+
+extern "C" {
+typedef _Unwind_Reason_Code __xlcxx_personality_v0_t(int, _Unwind_Action,
+                                                     uint64_t,
+                                                     _Unwind_Exception *,
+                                                     struct _Unwind_Context *);
+__attribute__((__weak__)) _Unwind_Reason_Code
+__xlcxx_personality_v0(int, _Unwind_Action, uint64_t, _Unwind_Exception *,
+                       struct _Unwind_Context *);
+}
+
+static __xlcxx_personality_v0_t *xlcPersonalityV0;
+static RWMutex xlcPersonalityV0InitLock;
+
+template <typename A, typename R>
+bool UnwindCursor<A, R>::getInfoFromTBTable(pint_t pc, R &registers) {
+  uint32_t *p = (uint32_t *)pc;
+
+  // Keep looking forward until a word of 0 is found. The traceback
+  // table starts at the following word.
+  while (*p)
+    ++p;
+  tbtable *TBTable = (tbtable *)(p + 1);
+
+  if (_LIBUNWIND_TRACING_UNWINDING) {
+    char functionBuf[512];
+    const char *functionName = functionBuf;
+    unw_word_t offset;
+    if (!getFunctionName(functionBuf, sizeof(functionBuf), &offset)) {
+      functionName = ".anonymous.";
+    }
+    _LIBUNWIND_TRACE_UNWINDING("%s: Look up traceback table of func=%s at %p",
+                               __func__, functionName, (void *)TBTable);
+  }
+
+  // If the traceback table does not contain necessary info, bypass this frame.
+  if (!TBTable->tb.has_tboff)
+    return false;
+
+  // Structure tbtable_ext contains important data we are looking for.
+  p = (uint32_t *)&TBTable->tb_ext;
+
+  // Skip field parminfo if it exists.
+  if (TBTable->tb.fixedparms || TBTable->tb.floatparms)
+    ++p;
+
+  // p now points to tb_offset, the offset from start of function to TB table.
+  unw_word_t start_ip = (unw_word_t)TBTable - *p - sizeof(uint32_t);
+  unw_word_t end_ip = (unw_word_t)TBTable;
+  ++p;
+
+  _LIBUNWIND_TRACE_UNWINDING("start_ip=%p, end_ip=%p\n", (void *)start_ip,
+                             (void *)end_ip);
+
+  // Skip field hand_mask if it exists.
+  if (TBTable->tb.int_hndl)
+    ++p;
+
+  // Pointer to the 6th byte of the traceback table.
+  uint8_t *TBTableByte6 = (uint8_t *)TBTable + 5;
+
+  unw_word_t lsda = 0;
+  unw_word_t handler = 0;
+  unw_word_t flags = frameType::oldFrame;
+
+  if (TBTable->tb.lang == TB_CPLUSPLUS && TBTable->tb.has_ctl) {
+    // State table info is available. The ctl_info field indicates the
+    // number of CTL anchors. There should be only one entry for the C++
+    // state table.
+    assert(*p == 1 && "libunwind: there must be only one ctl_info entry");
+    ++p;
+    // p points to the offset of the state table into the stack.
+    pint_t stateOffset = *p++;
+
+    int framePointerReg;
+
+    // Skip fields name_len and name if exist.
+    if (TBTable->tb.name_present) {
+      const uint16_t name_len = *((uint16_t *)p);
+      p = (uint32_t *)(((char *)p) + name_len + sizeof(name_len));
+    }
+
+    if (TBTable->tb.uses_alloca)
+      framePointerReg = *((char *)p);
+    else
+      framePointerReg = 1; // default frame pointer == SP
+
+    _LIBUNWIND_TRACE_UNWINDING("framePointerReg=%d, framePointer=%p, "
+                               "stateOffset=%#lx\n",
+                               framePointerReg,
+                               (void *)_registers.getRegister(framePointerReg),
+                               stateOffset);
+    lsda = _registers.getRegister(framePointerReg) + stateOffset;
+
+    // Resolve the function pointer to the state table personality if it has
+    // not already.
+    if (xlcPersonalityV0 == NULL) {
+      xlcPersonalityV0InitLock.lock();
+      if (xlcPersonalityV0 == NULL) {
+        // If libc++abi is statically linked in, symbol __xlcxx_personality_v0
+        // has been resolved at the link time.
+        xlcPersonalityV0 = &__xlcxx_personality_v0;
+        if (xlcPersonalityV0 == NULL) {
+          // libc++abi is dynamically linked. Resolve __xlcxx_personality_v0
+          // using dlopen().
+          const char libcxxabi[] = "libc++abi.a(libc++abi.so.1)";
+          void *libHandle;
+          libHandle = dlopen(libcxxabi, RTLD_MEMBER | RTLD_NOW);
+          if (libHandle == NULL) {
+            _LIBUNWIND_TRACE_UNWINDING("dlopen() failed with errno=%d\n",
+                                       errno);
+            assert(0 && "dlopen() failed");
+          }
+          xlcPersonalityV0 = reinterpret_cast<__xlcxx_personality_v0_t *>(
+              dlsym(libHandle, "__xlcxx_personality_v0"));
+          if (xlcPersonalityV0 == NULL) {
+            _LIBUNWIND_TRACE_UNWINDING("dlsym() failed with errno=%d\n", errno);
+            assert(0 && "dlsym() failed");
+          }
+          dlclose(libHandle);
+        }
+      }
+      xlcPersonalityV0InitLock.unlock();
+    }
+    handler = reinterpret_cast<unw_word_t>(xlcPersonalityV0);
+    _LIBUNWIND_TRACE_UNWINDING("State table: LSDA=%p, Personality=%p\n",
+                               (void *)lsda, (void *)handler);
+  } else if (*TBTableByte6 & _LIBUNWIND_TBTABLE_LONGTBTABLE_BIT) {
+    // Check traceback table bit longtbtable. This is equivelent to
+    // "if (TBTable->tb.longtbtable)".  If it is set, the range table
+    // info may be available.
+
+    // p points to field name len.
+    uint8_t *charPtr = (uint8_t *)p;
+
+    // Skip fields name_len and name if they exist.
+    if (TBTable->tb.name_present)
+      charPtr = charPtr + *((uint16_t *)charPtr) + sizeof(uint16_t);
+
+    // Skip field alloc_reg if it exists.
+    if (TBTable->tb.uses_alloca)
+      ++charPtr;
+
+    // Check traceback table bit has_vec. This is equivalent to
+    // "if (TBTable->tb.has_vec)". Skip struct vec_ext if it is set.
+    if (*TBTableByte6 & _LIBUNWIND_TBTABLE_HAS_VEC_BIT)
+      charPtr += sizeof(struct vec_ext);
+
+    // charPtr points to field xtbtable.
+    if (*charPtr & _LIBUNWIND_TBTABLE_EH_INFO) {
+      // eh_info is available.
+      charPtr++;
+      // The pointer is 4-byte aligned.
+      if ((uintptr_t)charPtr % 4)
+        charPtr += 4 - (uintptr_t)charPtr % 4;
+      uintptr_t *ehInfo = (uintptr_t *)*(uintptr_t *)(registers.getRegister(2) +
+                                                      *(uintptr_t *)charPtr);
+
+      // ehInfo points to structure en_info. The first member is version.
+      // Only version 0 is currently supported.
+      assert(*(uint32_t *)ehInfo == 0 &&
+             "libunwind: ehInfo version other than 0 is not supported");
+
+      // Increment ehInfo to point to member lsda.
+      ++ehInfo;
+      lsda = *ehInfo++;
+
+      // enInfo now points to member personality.
+      handler = *ehInfo;
+
+      // Mark this frame has the new EH info.
+      flags = frameType::clangFrame;
+
+      _LIBUNWIND_TRACE_UNWINDING("Range table: LSDA=%#lx, Personality=%#lx\n",
+                                 lsda, handler);
+    }
+  }
+
+  _info.start_ip = start_ip;
+  _info.end_ip = end_ip;
+  _info.lsda = lsda;
+  _info.handler = handler;
+  _info.gp = 0;
+  _info.flags = flags;
+  _info.format = 0;
+  _info.unwind_info = (unw_word_t)TBTable;
+  _info.unwind_info_size = 0;
+  _info.extra = registers.getRegister(2);
+
+  return true;
+}
+
+// Step back up the stack following the frame back link.
+template <typename A, typename R>
+int UnwindCursor<A, R>::stepWithTBTable(pint_t pc, tbtable *TBTable,
+                                        R &registers, bool &isSignalFrame) {
+  if (_LIBUNWIND_TRACING_UNWINDING) {
+    char functionBuf[512];
+    const char *functionName = functionBuf;
+    unw_word_t offset;
+    if (!getFunctionName(functionBuf, sizeof(functionBuf), &offset)) {
+      functionName = ".anonymous.";
+    }
+    _LIBUNWIND_TRACE_UNWINDING("%s: Look up traceback table of func=%s at %p",
+                               __func__, functionName, (void *)TBTable);
+  }
+
+#if defined(__powerpc64__)
+  // Instruction to reload TOC register "l r2,40(r1)"
+  const uint32_t loadTOCRegInst = 0xe8410028;
+  const int32_t unwPPCF0Index = UNW_PPC64_F0;
+  const int32_t unwPPCV0Index = UNW_PPC64_V0;
+#else
+  // Instruction to reload TOC register "l r2,20(r1)"
+  const uint32_t loadTOCRegInst = 0x80410014;
+  const int32_t unwPPCF0Index = UNW_PPC_F0;
+  const int32_t unwPPCV0Index = UNW_PPC_V0;
+#endif
+
+  R newRegisters = registers;
+
+  // lastStack points to the stack frame of the next routine up.
+  pint_t lastStack = *((pint_t *)registers.getSP());
+
+  // Return address is the address after call site instruction.
+  pint_t returnAddress;
+
+  if (isSignalFrame) {
+    _LIBUNWIND_TRACE_UNWINDING("Possible signal handler frame: lastStack=%p",
+                               (void *)lastStack);
+
+    sigcontext *sigContext = (sigcontext *)(((char *)lastStack) + STKMIN);
+    returnAddress = sigContext->sc_jmpbuf.jmp_context.iar;
+
+    _LIBUNWIND_TRACE_UNWINDING("From sigContext=%p, returnAddress=%p\n",
+                               (void *)sigContext, (void *)returnAddress);
+
+    if (returnAddress < 0x10000000) {
+      // Try again using STKMINALIGN
+      sigContext = (sigcontext *)(((char *)lastStack) + STKMINALIGN);
+      returnAddress = sigContext->sc_jmpbuf.jmp_context.iar;
+      if (returnAddress < 0x10000000) {
+        _LIBUNWIND_TRACE_UNWINDING("Bad returnAddress=%p\n",
+                                   (void *)returnAddress);
+        return UNW_EBADFRAME;
+      } else {
+        _LIBUNWIND_TRACE_UNWINDING("Tried again using STKMINALIGN: "
+                                   "sigContext=%p, returnAddress=%p. "
+                                   "Seems to be a valid address\n",
+                                   (void *)sigContext, (void *)returnAddress);
+      }
+    }
+    // Restore the condition register from sigcontext.
+    newRegisters.setCR(sigContext->sc_jmpbuf.jmp_context.cr);
+
+    // Restore GPRs from sigcontext.
+    for (int i = 0; i < 32; ++i)
+      newRegisters.setRegister(i, sigContext->sc_jmpbuf.jmp_context.gpr[i]);
+
+    // Restore FPRs from sigcontext.
+    for (int i = 0; i < 32; ++i)
+      newRegisters.setFloatRegister(i + unwPPCF0Index,
+                                    sigContext->sc_jmpbuf.jmp_context.fpr[i]);
+
+    // Restore vector registers if there is an associated extended context
+    // structure.
+    if (sigContext->sc_jmpbuf.jmp_context.msr & __EXTCTX) {
+      ucontext_t *uContext = (ucontext_t *)sigContext;
+      if (uContext->__extctx->__extctx_magic == __EXTCTX_MAGIC) {
+        for (int i = 0; i < 32; ++i)
+          newRegisters.setVectorRegister(
+              i + unwPPCV0Index,
+              *(v128 *)(&(uContext->__extctx->__vmx.__vr[i])));
+      }
+    }
+  } else {
+    // Step up a normal frame.
+    returnAddress = ((pint_t *)lastStack)[2];
+
+    _LIBUNWIND_TRACE_UNWINDING("Extract info from lastStack=%p, "
+                               "returnAddress=%p\n",
+                               (void *)lastStack, (void *)returnAddress);
+    _LIBUNWIND_TRACE_UNWINDING("fpr_regs=%d, gpr_regs=%d, saves_cr=%d\n",
+                               TBTable->tb.fpr_saved, TBTable->tb.gpr_saved,
+                               TBTable->tb.saves_cr);
+
+    // Restore FP registers.
+    char *ptrToRegs = (char *)lastStack;
+    double *FPRegs =
+        (double *)(ptrToRegs - (TBTable->tb.fpr_saved * sizeof(double)));
+    for (int i = 0; i < TBTable->tb.fpr_saved; ++i)
+      newRegisters.setFloatRegister(
+          32 - TBTable->tb.fpr_saved + i + unwPPCF0Index, FPRegs[i]);
+
+    // Restore GP registers.
+    ptrToRegs = (char *)FPRegs;
+    uintptr_t *GPRegs =
+        (uintptr_t *)(ptrToRegs - (TBTable->tb.gpr_saved * sizeof(uintptr_t)));
+    for (int i = 0; i < TBTable->tb.gpr_saved; ++i)
+      newRegisters.setRegister(32 - TBTable->tb.gpr_saved + i, GPRegs[i]);
+
+    // Restore Vector registers.
+    ptrToRegs = (char *)GPRegs;
+
+    // Pointer to the 6th byte of the traceback table.
+    uint8_t *TBTableByte6 = (uint8_t *)TBTable + 5;
+
+    // Restore vector registers only if this is a Clang frame. Also
+    // check if traceback table bit has_vec is set. If it is, structure
+    // vec_ext is available. This is equivelent to "if (TBTable->tb.has_vec)".
+    if (_info.flags == frameType::clangFrame &&
+        (*TBTableByte6 & _LIBUNWIND_TBTABLE_HAS_VEC_BIT)) {
+
+      // Get to the vec_ext structure to check if vector registers are saved.
+      uint32_t *p = (uint32_t *)&TBTable->tb_ext;
+
+      // Skip field parminfo if exists.
+      if (TBTable->tb.fixedparms || TBTable->tb.floatparms)
+        ++p;
+
+      // Skip field tb_offset if exists.
+      if (TBTable->tb.has_tboff)
+        ++p;
+
+      // Skip field hand_mask if exists.
+      if (TBTable->tb.int_hndl)
+        ++p;
+
+      // Skip fields ctl_info and ctl_info_disp if exist.
+      if (TBTable->tb.has_ctl) {
+        // Skip field ctl_info.
+        ++p;
+        // Skip field ctl_info_disp.
+        ++p;
+      }
+
+      // Skip fields name_len and name if exist.
+      // p is supposed to point to field name_len now.
+      uint8_t *charPtr = (uint8_t *)p;
+      if (TBTable->tb.name_present)
+        charPtr = charPtr + *((uint16_t *)charPtr) + sizeof(uint16_t);
+
+      // Skip field alloc_reg if it exists.
+      if (TBTable->tb.uses_alloca)
+        ++charPtr;
+
+      struct vec_ext *vec_ext = (struct vec_ext *)charPtr;
+
+      _LIBUNWIND_TRACE_UNWINDING("vr_saved=%d\n", vec_ext->vr_saved);
+
+      // Restore vector register(s) if saved on the stack.
+      if (vec_ext->vr_saved) {
+        // Saved vector registers are 16-byte aligned.
+        if ((uintptr_t)ptrToRegs % 16)
+          ptrToRegs += 16 - (uintptr_t)ptrToRegs % 16;
+        v128 *VecRegs =
+            (v128 *)(ptrToRegs - (vec_ext->vr_saved * sizeof(v128)));
+        for (int i = 0; i < vec_ext->vr_saved; ++i) {
+          newRegisters.setVectorRegister(
+              32 - vec_ext->vr_saved + i + unwPPCV0Index, VecRegs[i]);
+        }
+      }
+    }
+    if (TBTable->tb.saves_cr) {
+      // Get the saved condition register. The condition register is only
+      // a single word.
+      newRegisters.setCR(*((uint32_t *)(lastStack + sizeof(uintptr_t))));
+    }
+
+    // Restore the SP.
+    newRegisters.setSP(lastStack);
+
+    // The first instruction after return.
+    uint32_t firstInstruction = *(uint32_t *)returnAddress;
+
+    // Do we need to set the TOC register?
+    _LIBUNWIND_TRACE_UNWINDING("Current gpr2=%p\n",
+                               (void *)newRegisters.getRegister(2));
+    if (firstInstruction == loadTOCRegInst) {
+      _LIBUNWIND_TRACE_UNWINDING("Set gpr2=%p from frame\n",
+                                 (void *)((pint_t *)lastStack)[5]);
+      newRegisters.setRegister(2, ((pint_t *)lastStack)[5]);
+    }
+  }
+  _LIBUNWIND_TRACE_UNWINDING("lastStack=%p, returnAddress=%p, pc=%p\n",
+                             (void *)lastStack, (void *)returnAddress,
+                             (void *)pc);
+
+  // The return address is the address after call site instruction, so
+  // setting IP to that simualates a return.
+  newRegisters.setIP((uintptr_t)returnAddress);
+
+  // Simulate the step by replacing the register set with the new ones.
+  registers = newRegisters;
+
+  // Check if the next frame is a signal frame.
+  pint_t nextStack = *((pint_t *)registers.getSP());
+
+  // Return address is the address after call site instruction.
+  pint_t nextReturnAddress = ((pint_t *)nextStack)[2];
+
+  if (nextReturnAddress > 0x01 && nextReturnAddress < 0x10000) {
+    _LIBUNWIND_TRACE_UNWINDING("The next is a signal handler frame: "
+                               "nextStack=%p, next return address=%p\n",
+                               (void *)nextStack, (void *)nextReturnAddress);
+    isSignalFrame = true;
+  } else {
+    isSignalFrame = false;
+  }
+
+  return UNW_STEP_SUCCESS;
+}
+#endif // defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
 
 template <typename A, typename R>
 void UnwindCursor<A, R>::setInfoBasedOnIPRegister(bool isReturnAddress) {
 #if defined(_LIBUNWIND_TARGET_LINUX) && defined(_LIBUNWIND_TARGET_AARCH64)
   _isSigReturn = false;
 #endif
 
   pint_t pc = static_cast<pint_t>(this->getReg(UNW_REG_IP));
#endif
   }
 
   // If the last line of a function is a "throw" the compiler sometimes
   // emits no instructions after the call to __cxa_throw.  This means
   // the return address is actually the start of the next function.
   // To disambiguate this, back up the pc when we know it is a return
   // address.
   if (isReturnAddress)
+#if defined(_AIX)
+    // PC needs to be a 4-byte aligned address to be able to look for a
+    // word of 0 that indicates the start of the traceback table at the end
+    // of a function on AIX.
+    pc -= 4;
+#else
     --pc;
+#endif
 
   // Ask address space object to find unwind sections for this pc.
   UnwindInfoSections sects;
   if (_addressSpace.findUnwindSections(pc, sects)) {
 #if defined(_LIBUNWIND_SUPPORT_COMPACT_UNWIND)
     // If there is a compact unwind encoding table, look there first.
     if (sects.compact_unwind_section != 0) {
       if (this->getInfoFromCompactEncodingSection(pc, sects)) {

 #endif // defined(_LIBUNWIND_SUPPORT_COMPACT_UNWIND)
 
 #if defined(_LIBUNWIND_SUPPORT_SEH_UNWIND)
     // If there is SEH unwind info, look there next.
     if (this->getInfoFromSEH(pc))
       return;
 #endif
 
+#if defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
+    // If there is unwind info in the traceback table, look there next.
+    if (this->getInfoFromTBTable(pc, _registers))
+      return;
+#endif
+
 #if defined(_LIBUNWIND_SUPPORT_DWARF_UNWIND)
     // If there is dwarf unwind info, look there next.
     if (sects.dwarf_section != 0) {
       if (this->getInfoFromDwarfSection(pc, sects)) {
         // found info in dwarf, done
         return;
       }
     }
if (_isSigReturn) {
     result = this->stepThroughSigReturn();
   } else
 #endif
   {
 #if defined(_LIBUNWIND_SUPPORT_COMPACT_UNWIND)
     result = this->stepWithCompactEncoding();
 #elif defined(_LIBUNWIND_SUPPORT_SEH_UNWIND)
     result = this->stepWithSEHData();
+#elif defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
+    result = this->stepWithTBTableData();
 #elif defined(_LIBUNWIND_SUPPORT_DWARF_UNWIND)
     result = this->stepWithDwarfFDE();
 #elif defined(_LIBUNWIND_ARM_EHABI)
     result = this->stepWithEHABI();
 #else
   #error Need _LIBUNWIND_SUPPORT_COMPACT_UNWIND or \
               _LIBUNWIND_SUPPORT_SEH_UNWIND or \
               _LIBUNWIND_SUPPORT_DWARF_UNWIND or \

libunwind/src/UnwindLevel1-gcc-ext.c

 #endif
 }
 
 
 /// Called by personality handler during phase 2 to get base address for data
 /// relative encodings.
 _LIBUNWIND_EXPORT uintptr_t
 _Unwind_GetDataRelBase(struct _Unwind_Context *context) {
-  (void)context;
   _LIBUNWIND_TRACE_API("_Unwind_GetDataRelBase(context=%p)", (void *)context);
+#if defined(_AIX)
+  return unw_get_data_rel_base((unw_cursor_t *)context);
+#else
+  (void)context;
   _LIBUNWIND_ABORT("_Unwind_GetDataRelBase() not implemented");
+#endif
 }
 
 
 /// Called by personality handler during phase 2 to get base address for text
 /// relative encodings.
 _LIBUNWIND_EXPORT uintptr_t
 _Unwind_GetTextRelBase(struct _Unwind_Context *context) {
   (void)context;

libunwind/src/UnwindLevel1.c

_Unwind_GetLanguageSpecificData(struct _Unwind_Context *context) {
   unw_cursor_t *cursor = (unw_cursor_t *)context;
   unw_proc_info_t frameInfo;
   uintptr_t result = 0;
   if (__unw_get_proc_info(cursor, &frameInfo) == UNW_ESUCCESS)
     result = (uintptr_t)frameInfo.lsda;
   _LIBUNWIND_TRACE_API(
       "_Unwind_GetLanguageSpecificData(context=%p) => 0x%" PRIxPTR,
       (void *)context, result);
+#if !defined(_LIBUNWIND_SUPPORT_TBTAB_UNWIND)
   if (result != 0) {
     if (*((uint8_t *)result) != 0xFF)
       _LIBUNWIND_DEBUG_LOG("lsda at 0x%" PRIxPTR " does not start with 0xFF",
                            result);
   }
+#endif
   return result;
 }
 
 
 /// Called by personality handler during phase 2 to find the start of the
 /// function.
 _LIBUNWIND_EXPORT uintptr_t
 _Unwind_GetRegionStart(struct _Unwind_Context *context) {

libunwind/src/UnwindRegistersRestore.S

 //===-------------------- UnwindRegistersRestore.S ------------------------===//
 //
 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
 // See https://llvm.org/LICENSE.txt for license information.
 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
 //
 //===----------------------------------------------------------------------===//
 
 #include "assembly.h"
 
+#if !defined(_AIX)
   .text
+#endif
 
 #if !defined(__USING_SJLJ_EXCEPTIONS__)
 
 #if defined(__i386__)
 DEFINE_LIBUNWIND_FUNCTION(__libunwind_Registers_x86_jumpto)
 #
 # extern "C" void __libunwind_Registers_x86_jumpto(Registers_x86 *);
 #

 // void libunwind::Registers_ppc64::jumpto()
 //
 // On entry:
 //  thread_state pointer is in r3
 //
 
 // load register (GPR)
 #define PPC64_LR(n) \
   ld    n, (8 * (n + 2))(3)
 
   // restore integral registers
   // skip r0 for now
   // skip r1 for now
   PPC64_LR(2)
   // skip r3 for now
   // skip r4 for now
   // skip r5 for now
#define PPC64_LVS(n)         \
   PPC64_LVS(25)
   PPC64_LVS(26)
   PPC64_LVS(27)
   PPC64_LVS(28)
   PPC64_LVS(29)
   PPC64_LVS(30)
   PPC64_LVS(31)
 
-  // use VRSAVE to conditionally restore the remaining VS regs,
-  // that are where the V regs are mapped
+#define PPC64_CLVS_RESTORE(n)                    \
+  addi   4, 3, PPC64_OFFS_FP + n * 16           ;\
+  lxvd2x n, 0, 4
 
+#if !defined(_AIX)
+  // use VRSAVE to conditionally restore the remaining VS regs, that are
+  // where the V regs are mapped. In the AIX ABI, VRSAVE is not used.
   ld    5, PPC64_OFFS_VRSAVE(3)   // test VRsave
   cmpwi 5, 0
   beq   Lnovec
 
 // conditionally load VS
-#define PPC64_CLVS_BOTTOM(n)               \
-  beq    Ldone##n                         ;\
-  addi   4, 3, PPC64_OFFS_FP + n * 16     ;\
-  lxvd2x n, 0, 4                          ;\
-Ldone##n:
-
-#define PPC64_CLVSl(n)                    \
-  andis. 0, 5, (1 PPC_LEFT_SHIFT(47-n))  ;\
-PPC64_CLVS_BOTTOM(n)
+#define PPC64_CLVSl(n)                           \
+  andis. 0, 5, (1 PPC_LEFT_SHIFT(47-n))         ;\
+  beq    Ldone##n                               ;\
+  PPC64_CLVS_RESTORE(n)                         ;\
+Ldone##n:
 
-#define PPC64_CLVSh(n)                    \
-  andi.  0, 5, (1 PPC_LEFT_SHIFT(63-n))  ;\
-PPC64_CLVS_BOTTOM(n)
+#define PPC64_CLVSh(n)                           \
+  andi.  0, 5, (1 PPC_LEFT_SHIFT(63-n))         ;\
+  beq    Ldone##n                               ;\
+  PPC64_CLVS_RESTORE(n)                         ;\
+Ldone##n:
+
+#else
+
+#define PPC64_CLVSl(n) PPC64_CLVS_RESTORE(n)
+#define PPC64_CLVSh(n) PPC64_CLVS_RESTORE(n)
+
+#endif // !defined(_AIX)
 
   PPC64_CLVSl(32)
   PPC64_CLVSl(33)
   PPC64_CLVSl(34)
   PPC64_CLVSl(35)
   PPC64_CLVSl(36)
   PPC64_CLVSl(37)
   PPC64_CLVSl(38)
#define PPC64_LF(n) \
   PPC64_LF(26)
   PPC64_LF(27)
   PPC64_LF(28)
   PPC64_LF(29)
   PPC64_LF(30)
   PPC64_LF(31)
 
 #if defined(__ALTIVEC__)
-  // restore vector registers if any are in use
-  ld    5, PPC64_OFFS_VRSAVE(3)   // test VRsave
-  cmpwi 5, 0
-  beq   Lnovec
 
-  subi  4, 1, 16
-  // r4 is now a 16-byte aligned pointer into the red zone
-  // the _vectorScalarRegisters may not be 16-byte aligned
-  // so copy via red zone temp buffer
-
-#define PPC64_CLV_UNALIGNED_BOTTOM(n)            \
-  beq    Ldone##n                               ;\
-  ld     0, (PPC64_OFFS_V + n * 16)(3)          ;\
-  std    0, 0(4)                                ;\
-  ld     0, (PPC64_OFFS_V + n * 16 + 8)(3)      ;\
-  std    0, 8(4)                                ;\
-  lvx    n, 0, 4                                ;\
-Ldone  ## n:
+#define PPC64_CLV_UNALIGNED_RESTORE(n)       \
+  ld     0, (PPC64_OFFS_V + n * 16)(3)      ;\
+  std    0, 0(4)                            ;\
+  ld     0, (PPC64_OFFS_V + n * 16 + 8)(3)  ;\
+  std    0, 8(4)                            ;\
+  lvx    n, 0, 4
+
+#if !defined(_AIX)
+  // restore vector registers if any are in use. In the AIX ABI, VRSAVE is
+  // not used.
+  ld    5, PPC64_OFFS_VRSAVE(3)   // test VRsave
+  cmpwi 5, 0
+  beq   Lnovec
 
-#define PPC64_CLV_UNALIGNEDl(n)                 \
-  andis. 0, 5, (1 PPC_LEFT_SHIFT(15-n))        ;\
-PPC64_CLV_UNALIGNED_BOTTOM(n)
+#define PPC64_CLV_UNALIGNEDl(n)              \
+  andis. 0, 5, (1 PPC_LEFT_SHIFT(15-n))     ;\
+  beq    Ldone##n                           ;\
+  PPC64_CLV_UNALIGNED_RESTORE(n)            ;\
+Ldone  ## n:
 
-#define PPC64_CLV_UNALIGNEDh(n)                \
-  andi.  0, 5, (1 PPC_LEFT_SHIFT(31-n))       ;\
-PPC64_CLV_UNALIGNED_BOTTOM(n)
+#define PPC64_CLV_UNALIGNEDh(n)              \
+  andi.  0, 5, (1 PPC_LEFT_SHIFT(31-n))     ;\
+  beq    Ldone##n                           ;\
+  PPC64_CLV_UNALIGNED_RESTORE(n)            ;\
+Ldone  ## n:
+
+#else
+
+#define PPC64_CLV_UNALIGNEDl(n) PPC64_CLV_UNALIGNED_RESTORE(n)
+#define PPC64_CLV_UNALIGNEDh(n) PPC64_CLV_UNALIGNED_RESTORE(n)
+
+#endif // !defined(_AIX)
+
+  subi  4, 1, 16
+  // r4 is now a 16-byte aligned pointer into the red zone
+  // the _vectorScalarRegisters may not be 16-byte aligned
+  // so copy via red zone temp buffer
 
   PPC64_CLV_UNALIGNEDl(0)
   PPC64_CLV_UNALIGNEDl(1)
   PPC64_CLV_UNALIGNEDl(2)
   PPC64_CLV_UNALIGNEDl(3)
   PPC64_CLV_UNALIGNEDl(4)
   PPC64_CLV_UNALIGNEDl(5)
   PPC64_CLV_UNALIGNEDl(6)

 #endif
 
 Lnovec:
   ld    0, PPC64_OFFS_CR(3)
   mtcr  0
   ld    0, PPC64_OFFS_SRR0(3)
   mtctr 0
 
+#if defined(_AIX)
+  // After setting GPR1 to a higher address, AIX wipes out the original
+  // stack space below that address invalidated by the new GPR1 value. Use
+  // GPR0 to save the value of GPR3 in the context before it is wiped out.
+  // This compromises the content of GPR0 which is a volatile register.
+  ld 0, (8 * (3 + 2))(3)
+#else
   PPC64_LR(0)
+#endif
   PPC64_LR(5)
   PPC64_LR(4)
   PPC64_LR(1)
+#if defined(_AIX)
+  mr 3, 0
+#else
   PPC64_LR(3)
+#endif
   bctr
 
 #elif defined(__ppc__)
 
 DEFINE_LIBUNWIND_FUNCTION(_ZN9libunwind13Registers_ppc6jumptoEv)
 //
 // void libunwind::Registers_ppc::jumpto()
 //
#ifndef __NO_FPRS__
   lfd     27,376(3)
   lfd     28,384(3)
   lfd     29,392(3)
   lfd     30,400(3)
   lfd     31,408(3)
 #endif
 
 #if defined(__ALTIVEC__)
-  // restore vector registers if any are in use
+
+#define LOAD_VECTOR_RESTORE(_index)                 \
+  lwz     0, 424+_index*16(3)             SEPARATOR \
+  stw     0, 0(4)                         SEPARATOR \
+  lwz     0, 424+_index*16+4(3)           SEPARATOR \
+  stw     0, 4(4)                         SEPARATOR \
+  lwz     0, 424+_index*16+8(3)           SEPARATOR \
+  stw     0, 8(4)                         SEPARATOR \
+  lwz     0, 424+_index*16+12(3)          SEPARATOR \
+  stw     0, 12(4)                        SEPARATOR \
+  lvx     _index, 0, 4
+
+#if !defined(_AIX)
+  // restore vector registers if any are in use. In the AIX ABI, VRSAVE
+  // is not used.
   lwz     5, 156(3)       // test VRsave
   cmpwi   5, 0
   beq     Lnovec
 
-  subi    4, 1, 16
-  rlwinm  4, 4, 0, 0, 27  // mask low 4-bits
-  // r4 is now a 16-byte aligned pointer into the red zone
-  // the _vectorRegisters may not be 16-byte aligned so copy via red zone temp buffer
-
-
-#define LOAD_VECTOR_UNALIGNEDl(_index)          \
-  andis.  0, 5, (1 PPC_LEFT_SHIFT(15-_index)) SEPARATOR \
-  beq     Ldone ## _index             SEPARATOR \
-  lwz     0, 424+_index*16(3)         SEPARATOR \
-  stw     0, 0(%r4)                   SEPARATOR \
-  lwz     0, 424+_index*16+4(%r3)     SEPARATOR \
-  stw     0, 4(%r4)                   SEPARATOR \
-  lwz     0, 424+_index*16+8(%r3)     SEPARATOR \
-  stw     0, 8(%r4)                   SEPARATOR \
-  lwz     0, 424+_index*16+12(%r3)    SEPARATOR \
-  stw     0, 12(%r4)                  SEPARATOR \
-  lvx     _index, 0, 4                SEPARATOR \
+#define LOAD_VECTOR_UNALIGNEDl(_index)                   \
+  andis.  0, 5, (1 PPC_LEFT_SHIFT(15-_index))  SEPARATOR \
+  beq     Ldone ## _index                      SEPARATOR \
+  LOAD_VECTOR_RESTORE(_index)                  SEPARATOR \
   Ldone ## _index:
 
-#define LOAD_VECTOR_UNALIGNEDh(_index)          \
-  andi.   0, 5, (1 PPC_LEFT_SHIFT(31-_index)) SEPARATOR \
-  beq     Ldone ## _index             SEPARATOR \
-  lwz     0, 424+_index*16(3)         SEPARATOR \
-  stw     0, 0(4)                     SEPARATOR \
-  lwz     0, 424+_index*16+4(3)       SEPARATOR \
-  stw     0, 4(4)                     SEPARATOR \
-  lwz     0, 424+_index*16+8(3)       SEPARATOR \
-  stw     0, 8(%r4)                   SEPARATOR \
-  lwz     0, 424+_index*16+12(3)      SEPARATOR \
-  stw     0, 12(4)                    SEPARATOR \
-  lvx     _index, 0, 4                SEPARATOR \
+#define LOAD_VECTOR_UNALIGNEDh(_index)                   \
+  andi.   0, 5, (1 PPC_LEFT_SHIFT(31-_index))  SEPARATOR \
+  beq     Ldone ## _index                      SEPARATOR \
+  LOAD_VECTOR_RESTORE(_index)                  SEPARATOR \
   Ldone ## _index:
 
+#else
+
+#define LOAD_VECTOR_UNALIGNEDl(_index) LOAD_VECTOR_RESTORE(_index)
+#define LOAD_VECTOR_UNALIGNEDh(_index) LOAD_VECTOR_RESTORE(_index)
+
+#endif // !defined(_AIX)
+
+  subi    4, 1, 16
+  rlwinm  4, 4, 0, 0, 27  // mask low 4-bits
+  // r4 is now a 16-byte aligned pointer into the red zone
+  // the _vectorRegisters may not be 16-byte aligned so copy via red zone temp buffer
 
   LOAD_VECTOR_UNALIGNEDl(0)
   LOAD_VECTOR_UNALIGNEDl(1)
   LOAD_VECTOR_UNALIGNEDl(2)
   LOAD_VECTOR_UNALIGNEDl(3)
   LOAD_VECTOR_UNALIGNEDl(4)
   LOAD_VECTOR_UNALIGNEDl(5)
   LOAD_VECTOR_UNALIGNEDl(6)

libunwind/src/UnwindRegistersSave.S

 //===------------------------ UnwindRegistersSave.S -----------------------===//
 //
 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
 // See https://llvm.org/LICENSE.txt for license information.
 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
 //
 //===----------------------------------------------------------------------===//
 
 #include "assembly.h"
 
+#if !defined(_AIX)
     .text
+#endif
 
 #if !defined(__USING_SJLJ_EXCEPTIONS__)
 
 #if defined(__i386__)
 
 #
 # extern int __unw_getcontext(unw_context_t* thread_state)
 #

 #elif defined(__powerpc64__)
 
 //
 // extern int __unw_getcontext(unw_context_t* thread_state)
 //
 // On entry:
 //  thread_state pointer is in r3
 //
+#if defined(_AIX)
+DEFINE_LIBUNWIND_FUNCTION_AND_WEAKALIAS(__unw_getcontext, unw_getcontext)
+#else
 DEFINE_LIBUNWIND_FUNCTION(__unw_getcontext)
-
+#endif
 // store register (GPR)
 #define PPC64_STR(n) \
   std   n, (8 * (n + 2))(3)
 
   // save GPRs
   PPC64_STR(0)
   mflr  0
   std   0, PPC64_OFFS_SRR0(3) // store lr as ssr0

 #elif defined(__ppc__)
 
 //
 // extern int unw_getcontext(unw_context_t* thread_state)
 //
 // On entry:
 //  thread_state pointer is in r3
 //
+#if defined(_AIX)
+DEFINE_LIBUNWIND_FUNCTION_AND_WEAKALIAS(__unw_getcontext, unw_getcontext)
+#else
 DEFINE_LIBUNWIND_FUNCTION(__unw_getcontext)
+#endif
   stw     0,   8(3)
   mflr    0
   stw     0,   0(3) // store lr as ssr0
   stw     1,  12(3)
   stw     2,  16(3)
   stw     3,  20(3)
   stw     4,  24(3)
   stw     5,  28(3)

libunwind/src/Unwind_AIXExtras.cpp

+//===--------------------- Unwind_AIXExtras.cpp -------------------------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//
+//===----------------------------------------------------------------------===//
+
+// This file is only used for AIX.
+#if defined(_AIX)
+
+#include "config.h"
+#include "libunwind_ext.h"
+#include <sys/debug.h>
+
+namespace libunwind {
+// getFuncName
+// Get the function name from its traceback table.
+char *getFuncName(uintptr_t Pc, uint16_t &NameLen, unw_word_t *Offset) {
+  uint32_t *p = (uint32_t *)Pc;
+  *Offset = 0;
+
+  // Keep looking forward until a word of 0 is found. The traceback
+  // table starts at the following word.
+  while (*p)
+    p++;
+  tbtable *TBTable = (tbtable *)(p + 1);
+
+  if (TBTable->tb.name_present)
+    return NULL;
+
+  // Get to the name of the function.
+  p = (uint32_t *)&TBTable->tb_ext;
+
+  // Skip field parminfo if it exists.
+  if (TBTable->tb.fixedparms || TBTable->tb.floatparms)
+    p++;
+
+  // If the tb_offset field exisits, get the offset from the start of
+  // the function to pc. Skip the field.
+  if (TBTable->tb.has_tboff) {
+    unw_word_t StartIp = (uintptr_t)TBTable - *p - sizeof(uint32_t);
+    *Offset = Pc - StartIp;
+    p++;
+  }
+
+  // Skip field hand_mask if it exists.
+  if (TBTable->tb.int_hndl)
+    p++;
+
+  // Skip fields ctl_info and ctl_info_disp if they exist.
+  if (TBTable->tb.has_ctl) {
+    p += 1 + *p;
+  }
+
+  NameLen = *((uint16_t *)p);
+  return (char *)p + sizeof(uint16_t);
+}
+} // namespace libunwind
+#endif // defined(_AIX)

libunwind/src/assembly.h

 #   error "Unsupported __riscv_flen"
 #  endif
 # endif
 # define SEPARATOR ;
 #else
 #define SEPARATOR ;
 #endif
 
 #if defined(__powerpc64__) && (!defined(_CALL_ELF) || _CALL_ELF == 1)
 #define PPC64_OPD1 .section .opd,"aw",@progbits SEPARATOR
 #define PPC64_OPD2 SEPARATOR \
   .p2align 3 SEPARATOR \
   .quad .Lfunc_begin0 SEPARATOR \
   .quad .TOC.@tocbase SEPARATOR \
   .quad 0 SEPARATOR \
   .text SEPARATOR \
 .Lfunc_begin0:
 #else
#define WEAK_ALIAS(name, aliasname)                                            \
   EXPORT_SYMBOL(SYMBOL_NAME(aliasname)) SEPARATOR                              \
   WEAK_ALIAS2(SYMBOL_NAME(name), SYMBOL_NAME(aliasname))
 #endif
 
 #define NO_EXEC_STACK_DIRECTIVE
 
 #elif defined(__sparc__)
 
+#elif defined(_AIX)
+
+#if defined(__powerpc64__)
+#define PPC_RELOC_EXPR_LENGTH .llong
+#elif defined(__ppc__)
+#define PPC_RELOC_EXPR_LENGTH .long
+#endif
+
+// clang-format off
+#define DEFINE_LIBUNWIND_FUNCTION_AND_WEAKALIAS(name, aliasname)               \
+  .toc SEPARATOR                                                               \
+  .globl name SEPARATOR                                                        \
+  .globl .name SEPARATOR                                                       \
+  .csect name[DS] SEPARATOR                                                    \
+name:                                                                          \
+  .weak  aliasname[DS] SEPARATOR                                               \
+  .weak  .aliasname SEPARATOR                                                  \
+aliasname:                                                                     \
+  PPC_RELOC_EXPR_LENGTH .name, TOC[tc0], 0 SEPARATOR                           \
+  .csect .text[PR] SEPARATOR                                                   \
+.name:                                                                         \
+.aliasname:
+
+#define WEAK_ALIAS(name, aliasname)
+#define NO_EXEC_STACK_DIRECTIVE
+
+// clang-format on
 #else
 
 #error Unsupported target
 
 #endif
 
+#if defined(_AIX)
+  // clang-format off
+#define DEFINE_LIBUNWIND_FUNCTION(name)                                        \
+  .toc SEPARATOR                                                               \
+  .globl name SEPARATOR                                                        \
+  .globl .name SEPARATOR                                                       \
+  .csect name[DS] SEPARATOR                                                    \
+name:                                                                          \
+  PPC_RELOC_EXPR_LENGTH .name, TOC[tc0], 0 SEPARATOR                           \
+  .csect .text[PR] SEPARATOR                                                   \
+.name:
+  // clang-format on
+#else
 #define DEFINE_LIBUNWIND_FUNCTION(name)                                        \
   .globl SYMBOL_NAME(name) SEPARATOR                                           \
   HIDDEN_SYMBOL(SYMBOL_NAME(name)) SEPARATOR                                   \
   SYMBOL_IS_FUNC(SYMBOL_NAME(name)) SEPARATOR                                  \
   PPC64_OPD1                                                                   \
   SYMBOL_NAME(name):                                                           \
   PPC64_OPD2                                                                   \
   AARCH64_BTI
+#endif
 
 #if defined(__arm__)
 #if !defined(__ARM_ARCH)
 #define __ARM_ARCH 4
 #endif
 
 #if defined(__ARM_ARCH_4T__) || __ARM_ARCH >= 5
 #define ARM_HAS_BX

libunwind/src/config.h

#elif defined(_LIBUNWIND_IS_BAREMETAL)
   #if !defined(_LIBUNWIND_ARM_EHABI)
     #define _LIBUNWIND_SUPPORT_DWARF_UNWIND 1
     #define _LIBUNWIND_SUPPORT_DWARF_INDEX 1
   #endif
 #elif defined(__BIONIC__) && defined(_LIBUNWIND_ARM_EHABI)
   // For ARM EHABI, Bionic didn't implement dl_iterate_phdr until API 21. After
   // API 21, dl_iterate_phdr exists, but dl_unwind_find_exidx is much faster.
   #define _LIBUNWIND_USE_DL_UNWIND_FIND_EXIDX 1
+#elif defined(_AIX)
+// The traceback table at the end of each function is used for unwinding.
+#define _LIBUNWIND_SUPPORT_TBTAB_UNWIND 1
 #else
   // Assume an ELF system with a dl_iterate_phdr function.
   #define _LIBUNWIND_USE_DL_ITERATE_PHDR 1
   #if !defined(_LIBUNWIND_ARM_EHABI)
     #define _LIBUNWIND_SUPPORT_DWARF_UNWIND 1
     #define _LIBUNWIND_SUPPORT_DWARF_INDEX 1
   #endif
 #endif
 
 #if defined(_LIBUNWIND_HIDE_SYMBOLS)
   // The CMake file passes -fvisibility=hidden to control ELF/Mach-O visibility.
   #define _LIBUNWIND_EXPORT
   #define _LIBUNWIND_HIDDEN
 #else
-  #if !defined(__ELF__) && !defined(__MACH__)
-    #define _LIBUNWIND_EXPORT __declspec(dllexport)
-    #define _LIBUNWIND_HIDDEN
-  #else
-    #define _LIBUNWIND_EXPORT __attribute__((visibility("default")))
-    #define _LIBUNWIND_HIDDEN __attribute__((visibility("hidden")))
-  #endif
+#if !defined(__ELF__) && !defined(__MACH__) && !defined(_AIX)
 #endif
 
 #define STR(a) #a
 #define XSTR(a) STR(a)
 #define SYMBOL_NAME(name) XSTR(__USER_LABEL_PREFIX__) #name
 
 #if defined(__APPLE__)
 #if defined(_LIBUNWIND_HIDE_SYMBOLS)
 #define _LIBUNWIND_ALIAS_VISIBILITY(name) __asm__(".private_extern " name)
 #else
 #define _LIBUNWIND_ALIAS_VISIBILITY(name)
 #endif
 #define _LIBUNWIND_WEAK_ALIAS(name, aliasname)                                 \
   __asm__(".globl " SYMBOL_NAME(aliasname));                                   \
   __asm__(SYMBOL_NAME(aliasname) " = " SYMBOL_NAME(name));                     \
   _LIBUNWIND_ALIAS_VISIBILITY(SYMBOL_NAME(aliasname));
-#elif defined(__ELF__)
+#elif defined(__ELF__) || defined(_AIX)
 #define _LIBUNWIND_WEAK_ALIAS(name, aliasname)                                 \
   extern "C" _LIBUNWIND_EXPORT __typeof(name) aliasname                        \
       __attribute__((weak, alias(#name)));
 #elif defined(_WIN32)
 #if defined(__MINGW32__)
 #define _LIBUNWIND_WEAK_ALIAS(name, aliasname)                                 \
   extern "C" _LIBUNWIND_EXPORT __typeof(name) aliasname                        \
       __attribute__((alias(#name)));

libunwind/src/libunwind.cpp

 _LIBUNWIND_HIDDEN int __unw_is_signal_frame(unw_cursor_t *cursor) {
   _LIBUNWIND_TRACE_API("__unw_is_signal_frame(cursor=%p)",
                        static_cast<void *>(cursor));
   AbstractUnwindCursor *co = (AbstractUnwindCursor *)cursor;
   return co->isSignalFrame();
 }
 _LIBUNWIND_WEAK_ALIAS(__unw_is_signal_frame, unw_is_signal_frame)
 
+#ifdef _AIX
+_LIBUNWIND_EXPORT uintptr_t __unw_get_data_rel_base(unw_cursor_t *cursor) {
+  _LIBUNWIND_TRACE_API("unw_get_data_rel_base(cursor=%p)",
+                       static_cast<void *>(cursor));
+  AbstractUnwindCursor *co = (AbstractUnwindCursor *)cursor;
+  return co->getDataRelBase();
+}
+_LIBUNWIND_WEAK_ALIAS(__unw_get_data_rel_base, unw_get_data_rel_base)
+#endif
+
 #ifdef __arm__
 // Save VFP registers d0-d15 using FSTMIADX instead of FSTMIADD
 _LIBUNWIND_HIDDEN void __unw_save_vfp_as_X(unw_cursor_t *cursor) {
   _LIBUNWIND_TRACE_API("__unw_get_fpreg_save_vfp_as_X(cursor=%p)",
                        static_cast<void *>(cursor));
   AbstractUnwindCursor *co = (AbstractUnwindCursor *)cursor;
   return co->saveVFPAsX();
 }

libunwind/src/libunwind_ext.h

 #endif
 
 extern const char *__unw_regname(unw_cursor_t *, unw_regnum_t);
 extern int __unw_get_proc_info(unw_cursor_t *, unw_proc_info_t *);
 extern int __unw_is_fpreg(unw_cursor_t *, unw_regnum_t);
 extern int __unw_is_signal_frame(unw_cursor_t *);
 extern int __unw_get_proc_name(unw_cursor_t *, char *, size_t, unw_word_t *);
 
+#if defined(_AIX)
+extern uintptr_t __unw_get_data_rel_base(unw_cursor_t *);
+#endif
+
 // SPI
 extern void __unw_iterate_dwarf_unwind_cache(void (*func)(
     unw_word_t ip_start, unw_word_t ip_end, unw_word_t fde, unw_word_t mh));
 
 // IPI
 extern void __unw_add_dynamic_fde(unw_word_t fde);
 extern void __unw_remove_dynamic_fde(unw_word_t fde);