diff options
Diffstat (limited to 'src/ortho/llvm/ortho_llvm.adb')
| -rw-r--r-- | src/ortho/llvm/ortho_llvm.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ortho/llvm/ortho_llvm.adb b/src/ortho/llvm/ortho_llvm.adb index d57976a..8925c26 100644 --- a/src/ortho/llvm/ortho_llvm.adb +++ b/src/ortho/llvm/ortho_llvm.adb @@ -2086,6 +2086,7 @@ package body Ortho_LLVM is end if; if Decl = Null_ValueRef then Decl := AddFunction (Module, Id, Ftype); + AddFunctionAttr (Decl, NoUnwindAttribute + UWTable); end if; Res := (Kind => ON_Subprg_Decl, |