diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-31 18:35:49 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-31 18:35:49 +0100 |
| commit | 1185783f6e8c1d65bf1207028dfe6f5163e188b5 (patch) | |
| tree | 9f9567d9dc5e3699192360ec13515dd90ba763bc /src/ortho/llvm4-nodebug/ortho_code_main.adb | |
| parent | 3882e494edd4515b085657a66bd1e20c8e7ade01 (diff) | |
| download | ghdl-1185783f6e8c1d65bf1207028dfe6f5163e188b5.tar.gz ghdl-1185783f6e8c1d65bf1207028dfe6f5163e188b5.tar.bz2 ghdl-1185783f6e8c1d65bf1207028dfe6f5163e188b5.zip | |
ortho/llvm4-nodebug: normalize the default target on llvm 7.0+
For #724
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 |