diff options
Diffstat (limited to 'src/ortho/llvm4-nodebug/ortho_code_main.adb')
-rw-r--r-- | src/ortho/llvm4-nodebug/ortho_code_main.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/ortho/llvm4-nodebug/ortho_code_main.adb b/src/ortho/llvm4-nodebug/ortho_code_main.adb index 4b36294d4..8e0563407 100644 --- a/src/ortho/llvm4-nodebug/ortho_code_main.adb +++ b/src/ortho/llvm4-nodebug/ortho_code_main.adb @@ -33,6 +33,10 @@ with Interfaces; with Interfaces.C; use Interfaces.C; procedure Ortho_Code_Main is + function GetDefaultNormalizedTargetTriple return Cstring; + pragma Import (C, GetDefaultNormalizedTargetTriple, + "LLVMGetDefaultNormalizedTargetTriple"); + -- Name of the output filename (given by option '-o'). Output : String_Acc := null; @@ -192,7 +196,7 @@ begin Module := ModuleCreateWithName (Module_Name'Address); -- Extract target triple - Triple := GetDefaultTargetTriple; + Triple := GetDefaultNormalizedTargetTriple; SetTarget (Module, Triple); -- Get Target |