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